diff options
| author | Richard Lupton <richard.lupton@gmail.com> | 2019-08-17 13:34:51 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-08-19 02:12:00 -0400 |
| commit | ac79dfe9cb51f38e122af9a404d50aead8a9e8b0 (patch) | |
| tree | ed4b2acdc3f5613460ee0cffbec4f71bc1df518e /compiler/simplCore | |
| parent | 2a394246da84c17e1b5103bde320b8ca4ce1158a (diff) | |
| download | haskell-ac79dfe9cb51f38e122af9a404d50aead8a9e8b0.tar.gz | |
Remove Bag fold specialisations (#16969)
Diffstat (limited to 'compiler/simplCore')
| -rw-r--r-- | compiler/simplCore/FloatOut.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/simplCore/FloatOut.hs b/compiler/simplCore/FloatOut.hs index 1f1dd5c4ba..015d096a0a 100644 --- a/compiler/simplCore/FloatOut.hs +++ b/compiler/simplCore/FloatOut.hs @@ -629,7 +629,7 @@ flattenTopFloats (FB tops ceils defs) addTopFloatPairs :: Bag CoreBind -> [(Id,CoreExpr)] -> [(Id,CoreExpr)] addTopFloatPairs float_bag prs - = foldrBag add prs float_bag + = foldr add prs float_bag where add (NonRec b r) prs = (b,r):prs add (Rec prs1) prs2 = prs1 ++ prs2 @@ -673,7 +673,7 @@ plusMinor = M.unionWith unionBags install :: Bag FloatBind -> CoreExpr -> CoreExpr install defn_groups expr - = foldrBag wrapFloat expr defn_groups + = foldr wrapFloat expr defn_groups partitionByLevel :: Level -- Partitioning level |