[commit: ghc] ghc-7.8: Fix last-minute typo in SetLevels commit ef44a4 (76ba0d6)

[git at git.haskell.org]

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

On branch  : ghc-7.8
Link       : http://ghc.haskell.org/trac/ghc/changeset/76ba0d6d4748d9cc00c6486aae8dcb2a8cd6a1c1/ghc

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

commit 76ba0d6d4748d9cc00c6486aae8dcb2a8cd6a1c1
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Tue Mar 11 12:47:57 2014 +0000

    Fix last-minute typo in SetLevels commit ef44a4
    
    Sorry about that...
    
    (cherry picked from commit 41f803105999ffe51a40d3c72d5994520496b7ea)


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

76ba0d6d4748d9cc00c6486aae8dcb2a8cd6a1c1
 compiler/simplCore/SetLevels.lhs |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/compiler/simplCore/SetLevels.lhs b/compiler/simplCore/SetLevels.lhs
index cc72164..6edadb8 100644
--- a/compiler/simplCore/SetLevels.lhs
+++ b/compiler/simplCore/SetLevels.lhs
@@ -479,7 +479,8 @@ lvlMFE strict_ctxt env ann_expr@(fvs, _)
        ; return (Let (NonRec (TB var (FloatMe dest_lvl)) expr')
                      (mkVarApps (Var var) abs_vars)) }
   where
-    is_bot   = exprIsBottom (deAnnotate ann_expr) -- Note [Bottoming floats]
+    expr     = deAnnotate ann_expr
+    is_bot   = exprIsBottom expr      -- Note [Bottoming floats]
     dest_lvl = destLevel env fvs (isFunction ann_expr) is_bot
     abs_vars = abstractVars dest_lvl env fvs