Commit b4fec12b authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Make literals in the syntax tree strict

parent 24fa3d0d
...@@ -55,9 +55,9 @@ instance Eq HsLit where ...@@ -55,9 +55,9 @@ instance Eq HsLit where
_ == _ = False _ == _ = False
data HsOverLit id -- An overloaded literal data HsOverLit id -- An overloaded literal
= HsIntegral Integer (SyntaxExpr id) PostTcType -- Integer-looking literals; = HsIntegral !Integer (SyntaxExpr id) PostTcType -- Integer-looking literals;
| HsFractional Rational (SyntaxExpr id) PostTcType -- Frac-looking literals | HsFractional !Rational (SyntaxExpr id) PostTcType -- Frac-looking literals
| HsIsString FastString (SyntaxExpr id) PostTcType -- String-looking literals | HsIsString !FastString (SyntaxExpr id) PostTcType -- String-looking literals
-- Before type checking, the SyntaxExpr is 'fromInteger' or 'fromRational' -- Before type checking, the SyntaxExpr is 'fromInteger' or 'fromRational'
-- After type checking, it is (fromInteger 3) or lit_78; that is, -- After type checking, it is (fromInteger 3) or lit_78; that is,
-- the expression that should replace the literal. -- the expression that should replace the literal.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment