Commit 65d94135 authored by's avatar
Browse files

Remove redundant debug code

parent 6270b3e3
......@@ -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 $
Just ans -> -- pprTrace "Woo-hoo! exprIsConApp_maybe" doc $
Just ans
= analyse (substExpr (text "subst-expr-is-con-app") subst fun) args
subst = mkOpenSubst (mkInScopeSet (exprFreeVars fun)) pairs
-- doc = vcat [ppr fun, ppr expr, ppr pairs, ppr args]
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment