diff options
| author | simonpj@microsoft.com <unknown> | 2009-11-03 15:48:11 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2009-11-03 15:48:11 +0000 |
| commit | eeef817a869bdbfa8820608be081f133dad71071 (patch) | |
| tree | cd11384c39ee0c9f1ea92fbd4c638b807d87e739 /compiler | |
| parent | 45f9e9972d725b01a62e018a22b6b77c35ae850f (diff) | |
| download | haskell-eeef817a869bdbfa8820608be081f133dad71071.tar.gz | |
Comment only
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/deSugar/DsExpr.lhs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/deSugar/DsExpr.lhs b/compiler/deSugar/DsExpr.lhs index 11fddf57af..d8bd7cdeea 100644 --- a/compiler/deSugar/DsExpr.lhs +++ b/compiler/deSugar/DsExpr.lhs @@ -656,6 +656,7 @@ dsExplicitList elt_ty xs ; let (dynamic_prefix, static_suffix) = spanTail is_static xs' ; if opt_SimpleListLiterals -- -fsimple-list-literals || not (dopt Opt_EnableRewriteRules dflags) -- Rewrite rules off + -- Don't generate a build if there are no rules to eliminate it! || null dynamic_prefix -- Avoid build (\c n. foldr c n xs)! then return $ mkListExpr elt_ty xs' else mkBuildExpr elt_ty (mkSplitExplicitList dynamic_prefix static_suffix) } |