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

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


module Prelude(Ord(..)) where

instance Ord Bool where
  compare False False = EQ
  compare False True  = LT
  compare True  False = GT
  compare True  True  = EQ

(Return to Plan 9 Home Page)