module Extension.Either (rightToMaybe) where

rightToMaybe :: Either e a -> Maybe a
rightToMaybe :: forall e a. Either e a -> Maybe a
rightToMaybe (Left e
_) = forall a. Maybe a
Nothing
rightToMaybe (Right a
a) = forall a. a -> Maybe a
Just a
a