[commit: ghc] master: StgCmmExpr: Remove a redundant list (59250dc)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/59250dce325a6115c8419cb8578025f0d76184d2/ghc

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

commit 59250dce325a6115c8419cb8578025f0d76184d2
Author: Ömer Sinan Ağacan <omeragacan at gmail.com>
Date:   Fri May 27 10:47:50 2016 -0400

    StgCmmExpr: Remove a redundant list


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

59250dce325a6115c8419cb8578025f0d76184d2
 compiler/codeGen/StgCmmExpr.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/codeGen/StgCmmExpr.hs b/compiler/codeGen/StgCmmExpr.hs
index 79b9cd0..a697ff6 100644
--- a/compiler/codeGen/StgCmmExpr.hs
+++ b/compiler/codeGen/StgCmmExpr.hs
@@ -404,7 +404,7 @@ cgCase (StgApp v []) bndr alt_type@(PrimAlt _) alts
        ; v_info <- getCgIdInfo v
        ; emitAssign (CmmLocal (idToReg dflags (NonVoid bndr)))
                     (idInfoToAmode v_info)
-       ; bindArgsToRegs [NonVoid bndr]
+       ; bindArgToReg (NonVoid bndr)
        ; cgAlts (NoGcInAlts,AssignedDirectly) (NonVoid bndr) alt_type alts }
   where
     reps_compatible = idPrimRep v == idPrimRep bndr