[commit: ghc] wip/T13861: better comment out some lines that gen warnings (9b4e21a)

[git at git.haskell.org]

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

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

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

commit 9b4e21a962f7805798d348f4a0df25932bf7bbca
Author: Gabor Greif <ggreif at gmail.com>
Date:   Sun Jul 30 18:15:19 2017 +0200

    better comment out some lines that gen warnings


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

9b4e21a962f7805798d348f4a0df25932bf7bbca
 compiler/simplStg/StgCse.hs | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/compiler/simplStg/StgCse.hs b/compiler/simplStg/StgCse.hs
index 85695da..d758f48 100644
--- a/compiler/simplStg/StgCse.hs
+++ b/compiler/simplStg/StgCse.hs
@@ -1,5 +1,4 @@
 {-# LANGUAGE TypeFamilies, LambdaCase #-}
-{-# OPTIONS_GHC -Wno-unused-matches -Wno-missing-signatures #-}
 
 {-|
 Note [CSE for Stg]
@@ -126,15 +125,15 @@ instance NamedThing LaxDataCon where
 instance TrieMap ConAppMap where
     type Key ConAppMap = (LaxDataCon, [StgArg])
     emptyTM  = CAM emptyTM
-    lookupTM (dataCon, args) | traceLookup dataCon = undefined
+    --lookupTM (dataCon, args) | traceLookup dataCon = undefined
     lookupTM (dataCon, args) = un_cam >.> lkDNamed dataCon >=> lookupTM args
     alterTM  (dataCon, args) f m =
         m { un_cam = un_cam m |> xtDNamed dataCon |>> alterTM args f }
     foldTM k = un_cam >.> foldTM (foldTM k)
     mapTM f  = un_cam >.> mapTM (mapTM f) >.> CAM
 
-traceLookup (Lax dc) = pprTrace "lookupTM" (ppr dc) False
-{-# NOINLINE traceLookup #-}
+--traceLookup (Lax dc) = pprTrace "lookupTM" (ppr dc) False
+--{-# NOINLINE traceLookup #-}
 
 -----------------
 -- The CSE Env --