/usr/web/sources/contrib/fernan/nhc98/src/prelude/Prelude/Ord_Either.hs

Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/Prelude/Ord_Either.hs


module Prelude(Ord(..)) where

instance (Ord a, Ord b) => Ord (Either a b) where
  compare (Left a)  (Left b)  = compare a b
  compare (Left a)  (Right b) = LT
  compare (Right a) (Left b)  = GT
  compare (Right a) (Right b) = compare a b

(Return to Plan 9 Home Page)