X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FhsSyn%2FHsLit.lhs;h=98406478c903ce4a9ef5d24cb4d53d8021abfa00;hb=550421384b8364cdaf3135f7859c9f7d7ee1fff1;hp=a41d323a472900a0d452e4021ab9632477d201b3;hpb=60ea58ab5cbf8428997d5aa8ec9163a50fe5aed3;p=ghc-hetmet.git

diff --git a/ghc/compiler/hsSyn/HsLit.lhs b/ghc/compiler/hsSyn/HsLit.lhs
index a41d323..9840647 100644
--- 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,