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/deSugar/DsBinds.hs | |
| parent | 2a394246da84c17e1b5103bde320b8ca4ce1158a (diff) | |
| download | haskell-ac79dfe9cb51f38e122af9a404d50aead8a9e8b0.tar.gz | |
Remove Bag fold specialisations (#16969)
Diffstat (limited to 'compiler/deSugar/DsBinds.hs')
| -rw-r--r-- | compiler/deSugar/DsBinds.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/deSugar/DsBinds.hs b/compiler/deSugar/DsBinds.hs index 96855a61b7..4a6a463b2d 100644 --- a/compiler/deSugar/DsBinds.hs +++ b/compiler/deSugar/DsBinds.hs @@ -1164,7 +1164,7 @@ mk_ev_binds ds_binds = map ds_scc (stronglyConnCompFromEdgedVerticesUniq edges) where edges :: [ Node EvVar (EvVar,CoreExpr) ] - edges = foldrBag ((:) . mk_node) [] ds_binds + edges = foldr ((:) . mk_node) [] ds_binds mk_node :: (Id, CoreExpr) -> Node EvVar (EvVar,CoreExpr) mk_node b@(var, rhs) |