Revision a7e1fd89 htools/Ganeti/HTools/Program/Hbal.hs
| b/htools/Ganeti/HTools/Program/Hbal.hs | ||
|---|---|---|
| 301 | 301 |
|
| 302 | 302 |
-- hbal doesn't currently handle split clusters |
| 303 | 303 |
let split_insts = Cluster.findSplitInstances nl il |
| 304 |
unless (null split_insts) $ do |
|
| 304 |
unless (null split_insts || verbose <= 1) $ do
|
|
| 305 | 305 |
hPutStrLn stderr "Found instances belonging to multiple node groups:" |
| 306 | 306 |
mapM_ (\i -> hPutStrLn stderr $ " " ++ Instance.name i) split_insts |
| 307 |
hPutStrLn stderr "Aborting." |
|
| 308 |
exitWith $ ExitFailure 1 |
|
| 307 |
hPutStrLn stderr "These instances will not be moved." |
|
| 309 | 308 |
|
| 310 | 309 |
printf "Loaded %d nodes, %d instances\n" |
| 311 | 310 |
(Container.size nl) |
Also available in: Unified diff