From: simonpj@microsoft.com <unknown>
Date: Tue, 1 Jun 2010 15:41:51 +0000 (+0000)
Subject: Remove redundant debug code
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=65d9413573466e789ba2b1c5c7c74339df0f16ed

Remove redundant debug code
---

diff --git a/compiler/coreSyn/CoreUnfold.lhs b/compiler/coreSyn/CoreUnfold.lhs
index e73e4b0..0a398d1 100644
--- a/compiler/coreSyn/CoreUnfold.lhs
+++ b/compiler/coreSyn/CoreUnfold.lhs
@@ -1265,11 +1265,7 @@ exprIsConApp_maybe id_unf expr
 	= Nothing
 
     beta fun pairs args
-        = case analyse (substExpr (text "subst-expr-is-con-app") subst fun) args of
-	    Nothing  -> -- pprTrace "Bale out! exprIsConApp_maybe" doc $
-	    	        Nothing
-	    Just ans -> -- pprTrace "Woo-hoo! exprIsConApp_maybe" doc $
-                        Just ans
+        = analyse (substExpr (text "subst-expr-is-con-app") subst fun) args
         where
           subst = mkOpenSubst (mkInScopeSet (exprFreeVars fun)) pairs
 	  -- doc = vcat [ppr fun, ppr expr, ppr pairs, ppr args]