X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FcoreSyn%2FCoreUnfold.lhs;h=0a398d1bebcd4831f3caabc6c332a79e73c7c379;hb=5e4375adca19f66803c3ad47fb1ba2c2ac6b4b62;hp=e73e4b07c5b72b9d683d554820acd49917a77de3;hpb=a90dc3907a491bfb478262441534b24fb0eb22f4;p=ghc-hetmet.git

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]