[project @ 2001-08-04 06:19:54 by ken]

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

diff --git a/ghc/lib/std/Char.lhs b/ghc/lib/std/Char.lhs
index b00345d..1fbc390 100644 (file)
--- a/ghc/lib/std/Char.lhs
+++ b/ghc/lib/std/Char.lhs
@@ -1,7 +1,8 @@
+% -----------------------------------------------------------------------------
+% $Id: Char.lhs,v 1.8 2000/12/11 17:51:34 simonmar Exp $
 %
-% (c) The AQUA Project, Glasgow University, 1994-1999
+% (c) The University of Glasgow, 1994-2000
 %
-
 \section[Char]{Module @Char@}
 
 \begin{code}
@@ -32,8 +33,11 @@ module Char
      -- Implementation checked wrt. Haskell 98 lib report, 1/99.
     ) where
 
+#ifndef __HUGS__
 import PrelBase
+import PrelShow
 import PrelRead (readLitChar, lexLitChar, digitToInt)
-import {-# SOURCE #-} PrelErr   ( error )
-
+#else
+isLatin1 c = True
+#endif
 \end{code}