lebd/src/Util.hs

5 lines
102 B
Haskell

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