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
