Revision 318c0a6c

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