1 2
module Either(Either(..)) where data Either a b = Left a | Right b deriving (Eq, Ord, Text, Binary)