diff options
| author | simonpj@microsoft.com <unknown> | 2011-03-02 11:43:17 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2011-03-02 11:43:17 +0000 |
| commit | 61899158575bc64e692d6ab350c43c5d8ec1d8e2 (patch) | |
| tree | 56388d16d6756b08d5976a4f0fe1d3e35a9a1cfb /compiler/simplCore/Simplify.lhs | |
| parent | 91b687878a17368056e7178471205392ed08fafe (diff) | |
| download | haskell-61899158575bc64e692d6ab350c43c5d8ec1d8e2.tar.gz | |
Make -fno-enable-rewrite-rules work properly
I'd failed to propagate the Opt_EnableRewriteRules flag properly,
which meant that -fno-enable-rewrite-rules didn't disable all
rewrites. This patch fixes it.
Diffstat (limited to 'compiler/simplCore/Simplify.lhs')
| -rw-r--r-- | compiler/simplCore/Simplify.lhs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/simplCore/Simplify.lhs b/compiler/simplCore/Simplify.lhs index b82dd31691..8249c89425 100644 --- a/compiler/simplCore/Simplify.lhs +++ b/compiler/simplCore/Simplify.lhs @@ -1391,9 +1391,10 @@ tryRules env rules fn args call_cont trace_dump dflags rule rule_rhs stuff | not (dopt Opt_D_dump_rule_firings dflags) , not (dopt Opt_D_dump_rule_rewrites dflags) = stuff - | not (dopt Opt_D_dump_rule_rewrites dflags) + | not (dopt Opt_D_dump_rule_rewrites dflags) = pprTrace "Rule fired:" (ftext (ru_name rule)) stuff + | otherwise = pprTrace "Rule fired" (vcat [text "Rule:" <+> ftext (ru_name rule), |