Revision e5f02e15

b/src/Cluster.hs
598 598 
                   assocEqual = (\ (i, _) (j, _) -> i == j)
599 599 
                   pdx = Instance.pnode inst
600 600 
                   sdx = Instance.snode inst
601 
                   pold = fromJust $ lookup pdx nl
602 
                   sold = fromJust $ lookup sdx nl
601 
                   pold = fromJust $ lookup pdx accu
602 
                   sold = fromJust $ lookup sdx accu
603 603 
                   pnew = Node.setPri pold idx
604 604 
                   snew = Node.setSec sold idx
605 605 
                   ac1 = deleteBy assocEqual (pdx, pold) accu

Also available in: Unified diff