ghc/lib/prelude/ITup0.hs

   1 module PreludeBuiltin where
   2
   3 --- 0-tuple (trivial type "()" ) ---------------------------------
   4
   5 import Cls
   6 import Core
   7 import IChar
   8 import IList
   9 import List             ( (++), foldr )
  10 import PS               ( _PackedString, _unpackPS )
  11 import Text
  12
  13 instance Eq () where
  14     () == () = True
  15     () /= () = False
  16
  17 instance Ord () where
  18     () <= () = True
  19     () <  () = False
  20     () >= () = True
  21     () >  () = False
  22     max () () = ()
  23     min () () = ()
  24     _tagCmp () () = _EQ
  25
  26 instance Text () where
  27     readsPrec p    = readParen False
  28                             (\r -> [((),t) | ("(",s) <- lex r,
  29                                              (")",t) <- lex s ] )
  30     showsPrec p () = showString "()"
  31
  32 instance Ix () where
  33     range   ((), ())    = [()]
  34     index   ((), ()) () = 0
  35     inRange ((), ()) () = True
  36
  37 instance Enum () where
  38     enumFrom ()         = [()]
  39     enumFromThen () ()  = [()]
  40     enumFromTo () ()    = [()]
  41     enumFromThenTo () () () = [()]
  42
  43 -- ToDo: something for Binary