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