[commit: ghc] master: StgCmmExpr: Fix a duplication (5b8bec2)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/5b8bec25305eee2dc0ad9ec2cc385f2055abc892/ghc

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

commit 5b8bec25305eee2dc0ad9ec2cc385f2055abc892
Author: Ömer Sinan Ağacan <omeragacan at gmail.com>
Date:   Thu May 26 12:04:36 2016 -0400

    StgCmmExpr: Fix a duplication


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

5b8bec25305eee2dc0ad9ec2cc385f2055abc892
 compiler/codeGen/StgCmmExpr.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/codeGen/StgCmmExpr.hs b/compiler/codeGen/StgCmmExpr.hs
index a472191..79b9cd0 100644
--- a/compiler/codeGen/StgCmmExpr.hs
+++ b/compiler/codeGen/StgCmmExpr.hs
@@ -582,7 +582,6 @@ cgAlts gc_plan bndr (AlgAlt tycon) alts
                    tag_expr = cmmConstrTag1 dflags (CmmReg bndr_reg)
                    branches' = [(tag+1,branch) | (tag,branch) <- branches]
                 emitSwitch tag_expr branches' mb_deflt 1 fam_sz
-                return AssignedDirectly
 
            else         -- No, get tag from info table
                 do dflags <- getDynFlags
@@ -591,7 +590,8 @@ cgAlts gc_plan bndr (AlgAlt tycon) alts
                        untagged_ptr = cmmRegOffB bndr_reg (-1)
                        tag_expr = getConstrTag dflags (untagged_ptr)
                    emitSwitch tag_expr branches mb_deflt 0 (fam_sz - 1)
-                   return AssignedDirectly }
+
+        ; return AssignedDirectly }
 
 cgAlts _ _ _ _ = panic "cgAlts"
         -- UbxTupAlt and PolyAlt have only one alternative