[commit: ghc] master: Use seq rather than (==) to force the size (928f536)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/928f536cc5a7d333335795b658bb3072f1b5df18/ghc

>---------------------------------------------------------------

commit 928f536cc5a7d333335795b658bb3072f1b5df18
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Mon Jun 1 08:49:09 2015 +0100

    Use seq rather than (==) to force the size
    
    Just a minor refactoring


>---------------------------------------------------------------

928f536cc5a7d333335795b658bb3072f1b5df18
 compiler/simplCore/SimplCore.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/simplCore/SimplCore.hs b/compiler/simplCore/SimplCore.hs
index da27c35..d83ab89 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]