diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-10-09 18:22:57 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-10-09 18:30:10 +0100 |
| commit | 30e7b73af1bc9ac7c34b020f84d11c50fadfcb2f (patch) | |
| tree | bcab10214c649ca5991621cd5bac4dad2d793129 /compiler/deSugar | |
| parent | 1255ff1cda34acef22c5df80389e4142970d0ee8 (diff) | |
| download | haskell-30e7b73af1bc9ac7c34b020f84d11c50fadfcb2f.tar.gz | |
Make -fsimple-list-literals a dynamic flag
Diffstat (limited to 'compiler/deSugar')
| -rw-r--r-- | compiler/deSugar/DsExpr.lhs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/compiler/deSugar/DsExpr.lhs b/compiler/deSugar/DsExpr.lhs index 88df581844..c4ee50f54d 100644 --- a/compiler/deSugar/DsExpr.lhs +++ b/compiler/deSugar/DsExpr.lhs @@ -40,7 +40,6 @@ import CoreFVs import MkCore import DynFlags -import StaticFlags import CostCentre import Id import VarSet @@ -688,8 +687,8 @@ dsExplicitList elt_ty xs = do { dflags <- getDynFlags ; xs' <- mapM dsLExpr xs ; let (dynamic_prefix, static_suffix) = spanTail is_static xs' - ; if opt_SimpleListLiterals -- -fsimple-list-literals - || not (dopt Opt_EnableRewriteRules dflags) -- Rewrite rules off + ; if dopt Opt_SimpleListLiterals dflags -- -fsimple-list-literals + || not (dopt Opt_EnableRewriteRules dflags) -- Rewrite rules off -- Don't generate a build if there are no rules to eliminate it! -- See Note [Desugaring RULE left hand sides] in Desugar || null dynamic_prefix -- Avoid build (\c n. foldr c n xs)! |