+{-# OPTIONS -fno-implicit-prelude #-}
module Data.Dynamic where
data Dynamic
#ifdef __GLASGOW_HASKELL__
import GHC.Ptr
import GHC.IOBase
-import GHC.Err
import GHC.Base
import GHC.Num
import GHC.List
+++ /dev/null
----------------------------------------------------------------------------
--- PrelErr.hi-boot
---
--- This hand-written interface file is the initial bootstrap version
--- for PrelErr.hi.
--- It doesn't need to give "error" a type signature,
--- because it's wired into the compiler
----------------------------------------------------------------------------
-
-module GHC.Err where
-
--- We can't give an accurate type for error, because it mentions an open
--- type variable, but fortunately it doesn't matter what type we
--- give here because the compiler will use its wired-in version. But we have
--- to mention 'error' so that it gets exported from this .hi-boot
--- file.
-error :: GHC.Base.String -> a
-
--- divide by zero is needed quite early
-divZeroError :: a
--- /dev/null
+\begin{code}
+{-# OPTIONS -fno-implicit-prelude #-}
+---------------------------------------------------------------------------
+-- Ghc.Err.hs-boot
+---------------------------------------------------------------------------
+
+module GHC.Err( error, divZeroError ) where
+
+-- The type signature for 'error' is a gross hack.
+-- First, we can't give an accurate type for error, because it mentions
+-- an open type variable.
+-- Second, we can't even say error :: [Char] -> a, because Char is defined
+-- in GHC.Base, and that would make Err.lhs-boot mutually recursive
+-- with GHC.Base.
+-- Fortunately it doesn't matter what type we give here because the
+-- compiler will use its wired-in version. But we have
+-- to mention 'error' so that it gets exported from this .hi-boot
+-- file.
+error :: a
+
+-- divide by zero is needed quite early
+divZeroError :: a
+\end{code}
import {-# SOURCE #-} GHC.Err
import GHC.Base
-import GHC.List
import GHC.Enum
import GHC.Show
+++ /dev/null
-module GHC.Unicode where
-
-isAscii :: GHC.Base.Char -> GHC.Base.Bool
-isLatin1 :: GHC.Base.Char -> GHC.Base.Bool
-isControl :: GHC.Base.Char -> GHC.Base.Bool
-isPrint :: GHC.Base.Char -> GHC.Base.Bool
-isSpace :: GHC.Base.Char -> GHC.Base.Bool
-isUpper :: GHC.Base.Char -> GHC.Base.Bool
-isLower :: GHC.Base.Char -> GHC.Base.Bool
-isAlpha :: GHC.Base.Char -> GHC.Base.Bool
-isDigit :: GHC.Base.Char -> GHC.Base.Bool
-isOctDigit :: GHC.Base.Char -> GHC.Base.Bool
-isHexDigit :: GHC.Base.Char -> GHC.Base.Bool
-isAlphaNum :: GHC.Base.Char -> GHC.Base.Bool
--- /dev/null
+{-# OPTIONS -fno-implicit-prelude #-}
+
+module GHC.Unicode where
+import GHC.Base( Char, Bool )
+
+isAscii :: Char -> Bool
+isLatin1 :: Char -> Bool
+isControl :: Char -> Bool
+isPrint :: Char -> Bool
+isSpace :: Char -> Bool
+isUpper :: Char -> Bool
+isLower :: Char -> Bool
+isAlpha :: Char -> Bool
+isDigit :: Char -> Bool
+isOctDigit :: Char -> Bool
+isHexDigit :: Char -> Bool
+isAlphaNum :: Char -> Bool