module Base (
module X,
($!),
) where
#if defined(__GLASGOW_HASKELL__) && ( __GLASGOW_HASKELL__ >= 600 )
import GHC.Num as X
import GHC.Enum as X
import GHC.Real as X
import GHC.Float as X
import GHC.Show as X (
Show(..)
)
import GHC.Exts as X (
Constraint
, Ptr
, FunPtr
)
import GHC.Base as X (
(++)
, seq
, asTypeOf
, ord
, maxInt
, minInt
)
import System.IO as X (
print
, putStr
, putStrLn
)
import GHC.Types as X (
Bool
, Char
, Int
, Word
, Ordering
, IO
#if ( __GLASGOW_HASKELL__ >= 710 )
, Coercible
#endif
)
infixr 0 $!
($!) :: (a -> b) -> a -> b
f $! x = let !vx = x in f vx
#endif
#if defined(__SHC_HASKELL__)
import SHC.Prim as X
import SHC.Types as X
import SHC.Classes as X
#endif