[project @ 1998-02-02 17:27:26 by simonm]

[ghc-hetmet.git] / ghc / lib / std / PrelBase.lhs

diff --git a/ghc/lib/ghc/PrelBase.lhs b/ghc/lib/std/PrelBase.lhs
similarity index 99%
rename from ghc/lib/ghc/PrelBase.lhs
rename to ghc/lib/std/PrelBase.lhs
index c8b4da1..3f5bc1d 100644 (file)
--- a/ghc/lib/ghc/PrelBase.lhs
+++ b/ghc/lib/std/PrelBase.lhs
@@ -9,12 +9,12 @@
 
 module PrelBase(
        module PrelBase,
-       module GHC              -- Re-export GHC, to avoid lots of people having
-                               -- to import it explicitly
+       module PrelGHC          -- Re-export PrelGHC, to avoid lots of people 
+                               -- having to import it explicitly
   ) where
 
-import {-# SOURCE #-} GHCerr ( error )
-import GHC
+import {-# SOURCE #-} PrelErr ( error )
+import PrelGHC
 
 infixr 9  .
 infixl 9  !!
@@ -791,7 +791,7 @@ intToDigit :: Int -> Char
 intToDigit i
  | i >= 0  && i <=  9   =  toEnum (fromEnum '0' + i)
  | i >= 10 && i <= 15   =  toEnum (fromEnum 'a' + i -10)
- | otherwise           =  error ("Char.intToDigit: not a digit: " ++ show i) -- ....
+ | otherwise           =  error "Char.intToDigit: not a digit" ++ show i)
 
 \end{code}