Revision 1a7eff0e hbal.hs
b/hbal.hs | ||
---|---|---|
317 | 317 |
|
318 | 318 |
when (optShowNodes opts) $ |
319 | 319 |
do |
320 |
let (orig_mem, orig_disk, _, _, _) = Cluster.totalResources nl
|
|
321 |
(final_mem, final_disk, _, _, _) = Cluster.totalResources fin_nl
|
|
320 |
let ini_cs = Cluster.totalResources nl
|
|
321 |
fin_cs = Cluster.totalResources fin_nl
|
|
322 | 322 |
putStrLn "" |
323 | 323 |
putStrLn "Final cluster status:" |
324 | 324 |
putStrLn $ Cluster.printNodes fin_nl |
325 | 325 |
when (verbose > 3) $ |
326 | 326 |
do |
327 |
printf "Original: mem=%d disk=%d\n" orig_mem orig_disk |
|
328 |
printf "Final: mem=%d disk=%d\n" final_mem final_disk |
|
327 |
printf "Original: mem=%d disk=%d\n" |
|
328 |
(Cluster.cs_fmem ini_cs) (Cluster.cs_fdsk ini_cs) |
|
329 |
printf "Final: mem=%d disk=%d\n" |
|
330 |
(Cluster.cs_fmem fin_cs) (Cluster.cs_fdsk fin_cs) |
|
329 | 331 |
when oneline $ |
330 | 332 |
putStrLn $ formatOneline ini_cv (length ord_plc) fin_cv |
Also available in: Unified diff