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

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


module Prelude(Ord(..)) where

instance Ord Ordering where
  compare LT  LT = EQ
  compare LT  _  = LT
  compare EQ  LT = GT
  compare EQ  EQ = EQ
  compare EQ  GT = LT
  compare GT  GT = EQ
  compare EQ  _  = GT

(Return to Plan 9 Home Page)