[commit: ghc] wip/kavon-nosplit-llvm: kill dead debuggging code (756aae5)

[git at git.haskell.org]

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

On branch  : wip/kavon-nosplit-llvm
Link       : http://ghc.haskell.org/trac/ghc/changeset/756aae5da58752f34643c5f9e7110a3d771a8b6c/ghc

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

commit 756aae5da58752f34643c5f9e7110a3d771a8b6c
Author: Kavon Farvardin <kavon at farvard.in>
Date:   Wed May 16 17:34:22 2018 -0500

    kill dead debuggging code


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

756aae5da58752f34643c5f9e7110a3d771a8b6c
 compiler/codeGen/StgCmmMonad.hs | 10 ----------
 1 file changed, 10 deletions(-)

diff --git a/compiler/codeGen/StgCmmMonad.hs b/compiler/codeGen/StgCmmMonad.hs
index 38aabdb..db6b885 100644
--- a/compiler/codeGen/StgCmmMonad.hs
+++ b/compiler/codeGen/StgCmmMonad.hs
@@ -252,16 +252,6 @@ combineReturnKinds rks = foldl combine AssignedDirectly rks
         equals (x:xs) (y:ys) = cmmEqType_ignoring_ptrhood x y && equals xs ys
         equals _ _           = False
 
-        -- debugging only XXX(kavon)
-        cmmTy2String :: [CmmType] -> String
-        cmmTy2String tys = concat [showSDocUnsafe (ppr t) ++ ", " | t <- tys]
-
-        -- debugging only XXX(kavon)
-        tryCheck a b = res
-            where
-                !x = trace ("\ntrying to combine: \n\t[" ++ cmmTy2String a ++ "]\n\t[" ++ cmmTy2String b ++ "]\n") ()
-                res = check a b
-
 
 -- Note [sharing continuations]
 --