Revision c939b58e hbal.hs
| b/hbal.hs | ||
|---|---|---|
| 206 | 206 |
|
| 207 | 207 |
when (length offline_wrong > 0) $ do |
| 208 | 208 |
hPrintf stderr "Wrong node name(s) set as offline: %s\n" |
| 209 |
(commaJoin offline_wrong) |
|
| 209 |
(commaJoin offline_wrong) :: IO ()
|
|
| 210 | 210 |
exitWith $ ExitFailure 1 |
| 211 | 211 |
|
| 212 | 212 |
let nm = Container.map (\n -> if elem (Node.idx n) offline_indices |
| ... | ... | |
| 328 | 328 |
when (verbose > 3) $ |
| 329 | 329 |
do |
| 330 | 330 |
printf "Original: mem=%d disk=%d\n" |
| 331 |
(Cluster.csFmem ini_cs) (Cluster.csFdsk ini_cs) |
|
| 331 |
(Cluster.csFmem ini_cs) (Cluster.csFdsk ini_cs) :: IO ()
|
|
| 332 | 332 |
printf "Final: mem=%d disk=%d\n" |
| 333 | 333 |
(Cluster.csFmem fin_cs) (Cluster.csFdsk fin_cs) |
| 334 | 334 |
when oneline $ |
Also available in: Unified diff