RepMin for lists

gistfile1.txt

module RepListMin where

repListMin :: [Int] -> [Int]
repListMin xs = res
  where
    (m, res) = repListMin' m xs


repListMin' :: Int -> [Int] -> (Int, [Int])
repListMin' m [x] = (x, [m])
repListMin' m (x:xs) = (newmin, m:ls)
  where
      (cmin, ls) = repListMin' m xs
      newmin = min cmin x