1 module PreludeBuiltin where
3 --- 0-tuple (trivial type "()" ) ---------------------------------
9 import List ( (++), foldr )
10 import PS ( _PackedString, _unpackPS )
28 instance Text () where
29 readsPrec p = readParen False
30 (\r -> [((),t) | ("(",s) <- lex r,
32 showsPrec p () = showString "()"
33 readList = _readList (readsPrec 0)
34 showList = _showList (showsPrec 0)
39 inRange ((), ()) () = True
41 instance Enum () where
43 enumFromThen () () = [()]
44 enumFromTo () () = [()]
45 enumFromThenTo () () () = [()]
47 -- ToDo: something for Binary