client/src/Util/Either.hs


1
2
3
4
5
6
7

module Util.Either
  ( eitherToMaybe
  ) where

eitherToMaybe :: forall a b. Either a b -> Maybe b
eitherToMaybe (Right b) = Just b
eitherToMaybe _         = Nothing