From d4f62d4ea64cf909f71e9328da7c9d484a8a2f53 Mon Sep 17 00:00:00 2001
From: Iustin Pop <iustin@google.com>
Date: Sun, 15 Feb 2009 14:35:53 +0100
Subject: [PATCH] Replace a foldl by foldl'
---
src/Cluster.hs | 26 +++++++++++++-------------
1 file changed, 13 insertions(+), 13 deletions(-)
diff --git a/src/Cluster.hs b/src/Cluster.hs
index c4a83f2bb..b3ce190d1 100644
--- a/src/Cluster.hs
+++ b/src/Cluster.hs
@@ -613,19 +613,19 @@ fixNodes :: [(Int, Node.Node)]
-> [(Int, Instance.Instance)]
-> [(Int, Node.Node)]
fixNodes nl il =
- foldl (\accu (idx, inst) ->
- let
- assocEqual = (\ (i, _) (j, _) -> i == j)
- pdx = Instance.pnode inst
- sdx = Instance.snode inst
- pold = fromJust $ lookup pdx accu
- sold = fromJust $ lookup sdx accu
- pnew = Node.setPri pold idx
- snew = Node.setSec sold idx
- ac1 = deleteBy assocEqual (pdx, pold) accu
- ac2 = deleteBy assocEqual (sdx, sold) ac1
- ac3 = (pdx, pnew):(sdx, snew):ac2
- in ac3) nl il
+ foldl' (\accu (idx, inst) ->
+ let
+ assocEqual = (\ (i, _) (j, _) -> i == j)
+ pdx = Instance.pnode inst
+ sdx = Instance.snode inst
+ pold = fromJust $ lookup pdx accu
+ sold = fromJust $ lookup sdx accu
+ pnew = Node.setPri pold idx
+ snew = Node.setSec sold idx
+ ac1 = deleteBy assocEqual (pdx, pold) accu
+ ac2 = deleteBy assocEqual (sdx, sold) ac1
+ ac3 = (pdx, pnew):(sdx, snew):ac2
+ in ac3) nl il
{-| Initializer function that loads the data from a node and list file
--
GitLab