projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[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}
\section[Char]{Module @Char@}
\begin{code}
@@
-32,8
+33,11
@@
module Char
-- Implementation checked wrt. Haskell 98 lib report, 1/99.
) where
-- Implementation checked wrt. Haskell 98 lib report, 1/99.
) where
+#ifndef __HUGS__
import PrelBase
import PrelBase
+import PrelShow
import PrelRead (readLitChar, lexLitChar, digitToInt)
import PrelRead (readLitChar, lexLitChar, digitToInt)
-import {-# SOURCE #-} PrelErr ( error )
-
+#else
+isLatin1 c = True
+#endif
\end{code}
\end{code}