diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2012-07-20 20:09:02 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2012-07-20 20:09:02 +0100 |
| commit | 0b20ae911c7c7f6633246b199fc485ecc3d65458 (patch) | |
| tree | 1229c18c6159504dcc219b082e633c4446487d85 /compiler/coreSyn | |
| parent | 887e7c487e2a18c1ec08352f7bb76a1a8d4820f9 (diff) | |
| download | haskell-0b20ae911c7c7f6633246b199fc485ecc3d65458.tar.gz | |
Make SizeIs strict in the bag, which improves performance a bit
Diffstat (limited to 'compiler/coreSyn')
| -rw-r--r-- | compiler/coreSyn/CoreUnfold.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/coreSyn/CoreUnfold.lhs b/compiler/coreSyn/CoreUnfold.lhs index 85fd9ebaf5..866db37907 100644 --- a/compiler/coreSyn/CoreUnfold.lhs +++ b/compiler/coreSyn/CoreUnfold.lhs @@ -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 |