[commit: ghc] wip/T13861: WIP: cleanups (e0655ec)

[git at git.haskell.org]

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

On branch  : wip/T13861
Link       : http://ghc.haskell.org/trac/ghc/changeset/e0655ec059180eef447fee4050b4cdc405d23996/ghc

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

commit e0655ec059180eef447fee4050b4cdc405d23996
Author: Gabor Greif <ggreif at gmail.com>
Date:   Mon Jan 1 22:20:37 2018 +0100

    WIP: cleanups


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

e0655ec059180eef447fee4050b4cdc405d23996
 compiler/simplStg/StgCse.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/compiler/simplStg/StgCse.hs b/compiler/simplStg/StgCse.hs
index 2e1c4b2..0562ae5 100644
--- a/compiler/simplStg/StgCse.hs
+++ b/compiler/simplStg/StgCse.hs
@@ -427,13 +427,12 @@ mkStgCase scrut bndr ty alts | all isBndr alts = scrut
     lump ((DEFAULT, _, _):_) = Nothing
     lump alts
       | (lits@(_:_:_),rest) <- partition
-                (\case (_,_,StgLit l) -> True; _ -> False) alts
+                (\case (_,_,StgLit _) -> True; _ -> False) alts
       , let itsLit (_,_,StgLit l) = l
             itsLit _ = pprPanic "mkStgCase" (text "not StgLit")
             glits = groupBy ((==) `on` itsLit) lits
       , sglits@(((_,_,res):_:_):others) <- sortBy (comparing $ Down . length) glits
-      , let opt = Just ((DEFAULT, [], res) : concat others ++ rest)
-      = pprTrace "mkStgCase LIT" (ppr alts <+> text " --------> " <+> ppr opt) opt
+      = Just ((DEFAULT, [], res) : concat others ++ rest)
     lump alts | ((_:_:_),rest) <- partition isBndr alts
                  = Just ((DEFAULT, [], StgApp bndr []) : rest)
     lump alts