lebd/src/Util.hs

6 lines
102 B
Haskell
Raw Normal View History

module Util where
mapFirst :: (a -> a) -> [a] -> [a]
mapFirst f (x:xs) = f x : xs
mapFirst _ [] = []