Either.hs « Utils « haskell « executable « src - ad-listener - Send a mail whenever a new add comes up.

about summary refs log tree commit diff

path: root/src/executable/haskell/Utils/Either.hs

blob: 5d62dcc0be365e7bda1a8d19780d87a2cb1e3316 (plain)

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)