diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2016-05-10 11:57:02 +0200 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-05-12 15:16:07 +0200 |
| commit | ba46dd060f959e3c96a74c1546946c3f8bf84dd0 (patch) | |
| tree | faa22032f485d0222bb102645971dd82e76236c2 /compiler/simplCore/FloatIn.hs | |
| parent | e996e85f003e783fc8f9af0da653cdd0058d9646 (diff) | |
| download | haskell-wip/foldl.tar.gz | |
Use strict foldlswip/foldl
Diffstat (limited to 'compiler/simplCore/FloatIn.hs')
| -rw-r--r-- | compiler/simplCore/FloatIn.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/simplCore/FloatIn.hs b/compiler/simplCore/FloatIn.hs index f32b5a387b..d315d649a6 100644 --- a/compiler/simplCore/FloatIn.hs +++ b/compiler/simplCore/FloatIn.hs @@ -30,7 +30,7 @@ import VarSet import Util import DynFlags import Outputable -import Data.List( mapAccumL ) +import Data.List ( mapAccumL, foldl' ) {- Top-level interface function, @floatInwards@. Note that we do not @@ -426,9 +426,9 @@ fiExpr dflags to_drop (_, AnnCase scrut case_bndr ty alts) alts_ty_fvs = map alt_ty_fvs alts all_alts_ty_fvs = unionDVarSets alts_ty_fvs alt_fvs (_con, args, rhs) - = foldl delDVarSet (freeVarsOf rhs) (case_bndr:args) + = foldl' delDVarSet (freeVarsOf rhs) (case_bndr:args) alt_ty_fvs (_con, args, rhs) - = foldl delDVarSet (freeVarsOfType rhs) (case_bndr:args) + = foldl' delDVarSet (freeVarsOfType rhs) (case_bndr:args) -- Delete case_bndr and args from free vars of rhs -- to get free vars of alt |