Revision b4bae394 htools/Ganeti/HTools/Cluster.hs

b/htools/Ganeti/HTools/Cluster.hs
603 603
-- | Build failure stats out of a list of failures.
604 604
collapseFailures :: [FailMode] -> FailStats
605 605
collapseFailures flst =
606
    map (\k -> (k, length $ filter (k ==) flst)) [minBound..maxBound]
606
    map (\k -> (k, foldl' (\a e -> if e == k then a + 1 else a) 0 flst))
607
            [minBound..maxBound]
607 608

  
608 609
-- | Update current Allocation solution and failure stats with new
609 610
-- elements.

Also available in: Unified diff