[commit: ghc] newcg: fix a bug (b9d3e60)

[Simon Marlow]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : newcg

http://hackage.haskell.org/trac/ghc/changeset/b9d3e608a67af2bec0fd201d789b985b4aff1cd4

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

commit b9d3e608a67af2bec0fd201d789b985b4aff1cd4
Author: Simon Marlow <marlowsd at gmail.com>
Date:   Wed Feb 8 15:47:28 2012 +0000

    fix a bug

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

 compiler/codeGen/StgCmmUtils.hs |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/codeGen/StgCmmUtils.hs b/compiler/codeGen/StgCmmUtils.hs
index 391dc16..16f741e 100644
--- a/compiler/codeGen/StgCmmUtils.hs
+++ b/compiler/codeGen/StgCmmUtils.hs
@@ -752,8 +752,8 @@ mk_lit_switch scrut deflt [(lit,blk)]
     ne      = if isFloatType cmm_ty then MO_F_Ne rep else MO_Ne rep
 
 mk_lit_switch scrut deflt_blk_id branches
-  = do hi_blk <- mk_lit_switch scrut deflt_blk_id lo_branches
-       lo_blk <- mk_lit_switch scrut deflt_blk_id hi_branches
+  = do lo_blk <- mk_lit_switch scrut deflt_blk_id lo_branches
+       hi_blk <- mk_lit_switch scrut deflt_blk_id hi_branches
        mkCmmIfThenElse cond lo_blk hi_blk
   where
     n_branches = length branches