Ordering(LT, EQ, GT),
Char, String, Int, Integer, Float, Double, IO,
Rational,
-#ifdef __GLASGOW_HASKELL__
+#if defined(__GLASGOW_HASKELL__) || defined(__NHC__)
-- Restore export of (:) until we get to 5.05
- []((:), []), -- Not legal Haskell 98; available through built-in syntax
+ []((:), []), -- Not legal Haskell 98;
+ -- ... available through built-in syntax
+ module Data.Tuple, -- Includes tuple types
+ ()(..), -- Not legal Haskell 98
+ (->), -- ... available through built-in syntax
+#endif
+#ifdef __HUGS__
+ (:), -- Not legal Haskell 98
#endif
-
- module Data.Tuple,
- -- Includes tuple types + fst, snd, curry, uncurry
- -- ()(..), -- Not legal Haskell 98
- -- (->), -- ... available through built-in syntax
-- * Basic type classes
Eq((==), (/=)),
(&&), (||), not, otherwise,
subtract, even, odd, gcd, lcm, (^), (^^),
fromIntegral, realToFrac,
- --exported by Data.Tuple: fst, snd, curry, uncurry,
+ fst, snd, curry, uncurry,
id, const, (.), flip, ($), until,
asTypeOf, error, undefined,
seq, ($!)
) where
+#ifndef __HUGS__
import Control.Monad
import System.IO
import Text.Read
import Data.Maybe
import Data.Bool
import Data.Tuple
+#endif
#ifdef __GLASGOW_HASKELL__
import GHC.Base
import GHC.Err ( error, undefined )
#endif
+#ifdef __HUGS__
+import Hugs.Prelude
+#endif
+
+#ifndef __HUGS__
infixr 0 $!
($!) :: (a -> b) -> a -> b
f $! x = x `seq` f x
-
+#endif