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