[commit: ghc] wip/T13861: fix stage 2 warnings (ae1a850)

[git at git.haskell.org]

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

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

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

commit ae1a85018c82b965bfa134666679381f327aa9ef
Author: Gabor Greif <ggreif at gmail.com>
Date:   Mon Aug 14 14:12:49 2017 +0200

    fix stage 2 warnings


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

ae1a85018c82b965bfa134666679381f327aa9ef
 compiler/simplStg/StgCse.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/compiler/simplStg/StgCse.hs b/compiler/simplStg/StgCse.hs
index 263f184..65b5cb8 100644
--- a/compiler/simplStg/StgCse.hs
+++ b/compiler/simplStg/StgCse.hs
@@ -133,13 +133,14 @@ instance NamedThing LaxDataCon where
 instance TrieMap ConAppMap where
     type Key ConAppMap = (LaxDataCon, [StgArg])
     emptyTM  = CAM emptyTM
-    lookupTM (dataCon, args) | traceLookup dataCon = undefined
+    lookupTM (dataCon, _) | 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 :: LaxDataCon -> Bool
 traceLookup l@(Lax dc) = pprTrace "lookupTM" (ppr dc <> (if getKey u < 0 then text " -" else text " ") <> ppr u') False
   where u = nameUnique . getName $ l
         u' = mkUniqueGrimily (abs(getKey u))