diff options
| author | simonpj@microsoft.com <unknown> | 2010-06-01 15:41:51 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2010-06-01 15:41:51 +0000 |
| commit | 65d9413573466e789ba2b1c5c7c74339df0f16ed (patch) | |
| tree | d432080b95edae8b04cdc883a49be757449e13b0 | |
| parent | 6270b3e37ee9cb00529e4bb341291e1e3447e8eb (diff) | |
| download | haskell-65d9413573466e789ba2b1c5c7c74339df0f16ed.tar.gz | |
Remove redundant debug code
| -rw-r--r-- | compiler/coreSyn/CoreUnfold.lhs | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/compiler/coreSyn/CoreUnfold.lhs b/compiler/coreSyn/CoreUnfold.lhs index e73e4b07c5..0a398d1beb 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] |