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
_ == _ = 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.
......
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