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

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


module Prelude(Ord(..)) where

instance Ord Char where
  c <= c'      = fromEnum c <= fromEnum c'
  compare c c' = compare (fromEnum c) (fromEnum c')

(Return to Plan 9 Home Page)