Commit 65d94135 authored by simonpj@microsoft.com's avatar simonpj@microsoft.com
Browse files

Remove redundant debug code

parent 6270b3e3
...@@ -1265,11 +1265,7 @@ exprIsConApp_maybe id_unf expr ...@@ -1265,11 +1265,7 @@ exprIsConApp_maybe id_unf expr
= Nothing = Nothing
beta fun pairs args beta fun pairs args
= case analyse (substExpr (text "subst-expr-is-con-app") subst fun) args of = analyse (substExpr (text "subst-expr-is-con-app") subst fun) args
Nothing -> -- pprTrace "Bale out! exprIsConApp_maybe" doc $
Nothing
Just ans -> -- pprTrace "Woo-hoo! exprIsConApp_maybe" doc $
Just ans
where where
subst = mkOpenSubst (mkInScopeSet (exprFreeVars fun)) pairs subst = mkOpenSubst (mkInScopeSet (exprFreeVars fun)) pairs
-- doc = vcat [ppr fun, ppr expr, ppr pairs, ppr args] -- 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