src/Utils/Either.hs


1
2
3
4
5
6
7

module Utils.Either
  ( mapLeft
  ) where

mapLeft :: (a -> c) -> Either a b -> Either c b
mapLeft f (Left l) = Left (f l)
mapLeft _ (Right r) = (Right r)