[project @ 2003-12-10 14:15:16 by simonmar]

[ghc-hetmet.git] / ghc / compiler / hsSyn / HsLit.lhs

diff --git a/ghc/compiler/hsSyn/HsLit.lhs b/ghc/compiler/hsSyn/HsLit.lhs
index a41d323..9840647 100644 (file)
--- a/ghc/compiler/hsSyn/HsLit.lhs
+++ b/ghc/compiler/hsSyn/HsLit.lhs
@@ -25,8 +25,8 @@ import Ratio  ( Rational )
 
 \begin{code}
 data HsLit
-  = HsChar         Int                 -- Character
-  | HsCharPrim     Int                 -- Unboxed character
+  = HsChar         Char                -- Character
+  | HsCharPrim     Char                -- Unboxed character
   | HsString       FastString          -- String
   | HsStringPrim    FastString         -- Packed string
   | HsInt          Integer             -- Genuinely an Int; arises from TcGenDeriv,