X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FsimplCore%2FSimplUtils.lhs;h=1fdde7f2096e936d22eb18536fbe980efbb197e7;hb=cef4b33c4155f4225035fdae17bc410d229c805e;hp=be5c4b3e6a24a45f2b2626fdc3aae0da69ba0051;hpb=1d2f5511ad8f33a4702ee7670193a525e9a9d757;p=ghc-hetmet.git

diff --git a/compiler/simplCore/SimplUtils.lhs b/compiler/simplCore/SimplUtils.lhs
index be5c4b3..1fdde7f 100644
--- a/compiler/simplCore/SimplUtils.lhs
+++ b/compiler/simplCore/SimplUtils.lhs
@@ -797,7 +797,7 @@ activeInline env id
 activeRule :: DynFlags -> SimplEnv -> Maybe (Activation -> Bool)
 -- Nothing => No rules at all
 activeRule dflags env
-  | not (dopt Opt_RewriteRules dflags)
+  | not (dopt Opt_EnableRewriteRules dflags)
   = Nothing	-- Rewriting is off
   | otherwise
   = case getMode env of