diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2015-06-01 08:49:09 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2015-06-01 17:08:46 +0100 |
| commit | 928f536cc5a7d333335795b658bb3072f1b5df18 (patch) | |
| tree | bd22b1e5406345bb6f5fa64f7ee7c35c99508c6a /compiler | |
| parent | 1c3832597b3e75456fc61628c4cd289d211c733b (diff) | |
| download | haskell-928f536cc5a7d333335795b658bb3072f1b5df18.tar.gz | |
Use seq rather than (==) to force the size
Just a minor refactoring
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/simplCore/SimplCore.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/simplCore/SimplCore.hs b/compiler/simplCore/SimplCore.hs index da27c3557f..d83ab89bd6 100644 --- a/compiler/simplCore/SimplCore.hs +++ b/compiler/simplCore/SimplCore.hs @@ -599,7 +599,7 @@ simplifyPgmIO pass@(CoreDoSimplify max_iterations mode) -- Try and force thunks off the binds; significantly reduces -- space usage, especially with -O. JRS, 000620. | let sz = coreBindsSize binds - , sz == sz -- Force it + , () <- sz `seq` () -- Force it = do { -- Occurrence analysis let { -- Note [Vectorisation declarations and occurrences] |