Make SizeIs strict in the bag, which improves performance a bit
authorSimon Peyton Jones <simonpj@microsoft.com>
Fri, 20 Jul 2012 19:09:02 +0000 (20:09 +0100)
committerSimon Peyton Jones <simonpj@microsoft.com>
Fri, 20 Jul 2012 19:09:02 +0000 (20:09 +0100)
compiler/coreSyn/CoreUnfold.lhs

index 85fd9eb..866db37 100644 (file)
@@ -752,7 +752,7 @@ Code for manipulating sizes
 \begin{code}
 data ExprSize = TooBig
              | SizeIs FastInt          -- Size found
-                      (Bag (Id,Int))   -- Arguments cased herein, and discount for each such
+                      !(Bag (Id,Int))  -- Arguments cased herein, and discount for each such
                       FastInt          -- Size to subtract if result is scrutinised 
                                        -- by a case expression