Commit d9fe1d1d authored by lewie's avatar lewie

[project @ 2001-04-17 22:11:00 by lewie]

Stomp some debug output.
parent d923f167
......@@ -500,7 +500,6 @@ spec_one env fn rhs (pats, n)
spec_id = mkUserLocal spec_occ spec_uniq (exprType spec_rhs) fn_loc
rule = Rule rule_name pat_fvs pats (mkVarApps (Var spec_id) bndrs)
in
pprTrace "SpecConstr" (pprCoreRule (ppr fn) rule) $
returnUs (rule, (spec_id, spec_rhs))
\end{code}
......
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