Revision 318c0a6c src/Ganeti/HTools/Node.hs
b/src/Ganeti/HTools/Node.hs | ||
---|---|---|
586 | 586 |
-- Returns Nothing if the node list is empty. |
587 | 587 |
mkNodeGraph :: List -> Instance.List -> Maybe Graph.Graph |
588 | 588 |
mkNodeGraph nl il = |
589 |
liftM (`Graph.buildG` instancesToEdges il) (nodesToBounds nl) |
|
589 |
liftM (`Graph.buildG` (filterValid . instancesToEdges $ il)) |
|
590 |
(nodesToBounds nl) |
|
591 |
where |
|
592 |
filterValid = filter (\(x,y) -> IntMap.member x nl && IntMap.member y nl) |
|
590 | 593 |
|
591 | 594 |
-- * Display functions |
592 | 595 |
|
Also available in: Unified diff