/usr/web/sources/contrib/fernan/nhc98/src/prelude/PreludeText/Show_Ordering.hs

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


module Prelude(Show(..)) where

instance Show Ordering where
  showsPrec p LT = showString "LT"
  showsPrec p EQ = showString "EQ"
  showsPrec p GT = showString "GT"

  showsType a = showString "Ordering"

(Return to Plan 9 Home Page)