From ac79dfe9cb51f38e122af9a404d50aead8a9e8b0 Mon Sep 17 00:00:00 2001 From: Richard Lupton Date: Sat, 17 Aug 2019 13:34:51 +0100 Subject: Remove Bag fold specialisations (#16969) --- compiler/deSugar/DsBinds.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'compiler/deSugar/DsBinds.hs') 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) -- cgit v1.2.1