X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FhsSyn%2FHsLit.lhs;h=a85bc627ecdbb29c2d047646a0a03fbd0399f165;hb=91e6d821eaa22a7fb9c66fc30ffa4a2436411966;hp=51455e23fc9499b1e9c4e47c2dde1d23e75ce9b3;hpb=3475fa6c804e0818b9c55d8939e4bd34fa1b06c1;p=ghc-hetmet.git

diff --git a/compiler/hsSyn/HsLit.lhs b/compiler/hsSyn/HsLit.lhs
index 51455e2..a85bc62 100644
--- a/compiler/hsSyn/HsLit.lhs
+++ b/compiler/hsSyn/HsLit.lhs
@@ -55,9 +55,9 @@ instance Eq HsLit where
   _                 == _                 = False
 
 data HsOverLit id 	-- An overloaded literal
-  = HsIntegral   Integer    (SyntaxExpr id)  PostTcType	-- Integer-looking literals;
-  | HsFractional Rational   (SyntaxExpr id)  PostTcType	-- Frac-looking literals
-  | HsIsString   FastString (SyntaxExpr id)  PostTcType	-- String-looking literals
+  = HsIntegral   !Integer    (SyntaxExpr id)  PostTcType	-- Integer-looking literals;
+  | HsFractional !Rational   (SyntaxExpr id)  PostTcType	-- Frac-looking literals
+  | HsIsString   !FastString (SyntaxExpr id)  PostTcType	-- String-looking literals
   -- Before type checking, the SyntaxExpr is 'fromInteger' or 'fromRational'
   -- After type checking, it is (fromInteger 3) or lit_78; that is,
   -- the expression that should replace the literal.