module Util.Either
  ( eitherToMaybe
  ) where

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