Revision 86aa9ba3 htools/Ganeti/HTools/Node.hs
b/htools/Ganeti/HTools/Node.hs | ||
---|---|---|
73 | 73 |
, mkNodeGraph |
74 | 74 |
) where |
75 | 75 |
|
76 |
import Data.List hiding (group) |
|
77 |
import qualified Data.Map as Map |
|
76 |
import Control.Monad (liftM, liftM2) |
|
78 | 77 |
import qualified Data.Foldable as Foldable |
79 |
import qualified Data.IntMap as IntMap
|
|
78 |
import Data.Function (on)
|
|
80 | 79 |
import qualified Data.Graph as Graph |
80 |
import qualified Data.IntMap as IntMap |
|
81 |
import Data.List hiding (group) |
|
82 |
import qualified Data.Map as Map |
|
81 | 83 |
import Data.Ord (comparing) |
82 | 84 |
import Text.Printf (printf) |
83 |
import Control.Monad (liftM, liftM2) |
|
84 | 85 |
|
85 | 86 |
import qualified Ganeti.HTools.Container as Container |
86 | 87 |
import qualified Ganeti.HTools.Instance as Instance |
... | ... | |
683 | 684 |
computeGroups :: [Node] -> [(T.Gdx, [Node])] |
684 | 685 |
computeGroups nodes = |
685 | 686 |
let nodes' = sortBy (comparing group) nodes |
686 |
nodes'' = groupBy (\a b -> group a == group b) nodes'
|
|
687 |
nodes'' = groupBy ((==) `on` group) nodes'
|
|
687 | 688 |
in map (\nl -> (group (head nl), nl)) nodes'' |
Also available in: Unified diff