Revision 1b0a6356 htools/Ganeti/HTools/Program/Hbal.hs

b/htools/Ganeti/HTools/Program/Hbal.hs
273 273 
         exitWith ExitSuccess
274 274 

  		





  275
  275
  
    
  let split_insts = Cluster.findSplitInstances nlf ilf


  		





  276
  
  
    
  when (not . null $ split_insts) $ do


  		





  
  276
  
    
  unless (null split_insts) $ do


  		





  277
  277
  
    
    hPutStrLn stderr "Found instances belonging to multiple node groups:"


  		





  278
  278
  
    
    mapM_ (\i -> hPutStrLn stderr $ "  " ++ Instance.name i) split_insts


  		





  279
  279
  
    
    hPutStrLn stderr "Aborting."


  		












Also available in:
  Unified diff