[commit: ghc] master: Fix last-minute typo in SetLevels commit ef44a4 (41f8031)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/41f803105999ffe51a40d3c72d5994520496b7ea/ghc

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

commit 41f803105999ffe51a40d3c72d5994520496b7ea
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...


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

41f803105999ffe51a40d3c72d5994520496b7ea
 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