module Data.Either ( Either(..) , either -- :: (a -> c) -> (b -> c) -> Either a b -> c ) where import Prelude