From b4fec12ba528ef6460b2dce61832d4bafa2800bd Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Mon, 18 Feb 2008 18:34:24 +0000 Subject: [PATCH] Make literals in the syntax tree strict --- compiler/hsSyn/HsLit.lhs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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. -- 1.7.10.4