[commit: ghc] wip/cross-constr-cse: better comment out some lines that gen warnings (66d1a57)

[git at git.haskell.org]

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

On branch  : wip/cross-constr-cse
Link       : http://ghc.haskell.org/trac/ghc/changeset/66d1a577c560dc2ca5bbcf9cda8a86df4e2f86a3/ghc

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

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

    better comment out some lines that gen warnings


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

66d1a577c560dc2ca5bbcf9cda8a86df4e2f86a3
 compiler/simplStg/StgCse.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/compiler/simplStg/StgCse.hs b/compiler/simplStg/StgCse.hs
index 91a96ec..6690f82 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]
@@ -124,7 +123,7 @@ 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 }