1 We add the option -fno-implicit-prelude here to tell the reader that
2 special names such as () and -> shouldn't be resolved to Prelude.()
3 and Prelude.-> (as they are normally). -- SDM 8/10/97
6 {-# OPTIONS -fno-implicit-prelude #-}
10 -- Everything from these modules
13 -- Everything corresponding to the Report's PreludeText
15 Read(readsPrec, readList),
16 Show(showsPrec, showList, show),
17 reads, shows, read, lex,
18 showChar, showString, readParen, showParen,
20 -- Everything corresponding to the Report's PreludeIO
22 ioError, userError, catch,
23 putChar, putStr, putStrLn, print,
24 getChar, getLine, getContents, interact,
25 readFile, writeFile, appendFile, readIO, readLn,
31 Char, String, Int, Integer, Float, Double, IO,
36 -- Includes tuple types + fst, snd, curry, uncurry
37 ()(..), -- The unit type
44 Num((+), (-), (*), negate, abs, signum, fromInteger, fromInt{-glaExt-}),
46 Integral(quot, rem, div, mod, quotRem, divMod, toInteger, toInt{-partain-}),
55 mapM, mapM_, sequence, sequence_, (=<<),
58 (&&), (||), not, otherwise,
59 subtract, even, odd, gcd, lcm, (^), (^^),
60 fromIntegral, realToFrac,
61 --exported by PrelTup: fst, snd, curry, uncurry,
62 id, const, (.), flip, ($), until,
63 asTypeOf, error, undefined,
69 import PrelList hiding ( takeUInt_append )
80 import PrelErr ( error )
85 ($!) :: (a -> b) -> a -> b
88 -- It is expected that compilers will recognize this and insert error
89 -- messages which are more appropriate to the context in which undefined
93 undefined = error "Prelude.undefined"