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

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


module Prelude(Ord(..)) where

instance Ord a => Ord (Maybe a) where
  compare Nothing  Nothing  = EQ
  compare Nothing  (Just b) = LT
  compare (Just a) Nothing  = GT
  compare (Just a) (Just b) = compare a b

(Return to Plan 9 Home Page)