Revision 06fb841e Ganeti/HTools/Cluster.hs

b/Ganeti/HTools/Cluster.hs
854 854 
findSplitInstances :: Node.List -> Instance.List -> [Instance.Instance]
855 855 
findSplitInstances nl il =
856 856 
  filter (not . isOk . instanceGroup nl) (Container.elems il)
857 
  where isOk x = case x of
858 
          Bad _ -> False
859 
          _ -> True
860 857 

  		





  861
  858
  
    
-- | Splits a cluster into the component node groups


  		





  862
  859
  
    
splitCluster :: Node.List -> Instance.List ->


  		












Also available in:
  Unified diff