Revision 33e44f0c Ganeti/HTools/CLI.hs
b/Ganeti/HTools/CLI.hs | ||
---|---|---|
34 | 34 |
, shTemplate |
35 | 35 |
, defaultLuxiSocket |
36 | 36 |
, maybePrintNodes |
37 |
, maybePrintInsts |
|
37 | 38 |
-- * The options |
38 | 39 |
, oDataFile |
39 | 40 |
, oDiskMoves |
... | ... | |
429 | 430 |
hPutStrLn stderr "" |
430 | 431 |
hPutStrLn stderr (msg ++ " status:") |
431 | 432 |
hPutStrLn stderr $ fn fields |
433 |
|
|
434 |
|
|
435 |
-- | Optionally print the instance list. |
|
436 |
maybePrintInsts :: Bool -- ^ Whether to print the instance list |
|
437 |
-> String -- ^ Type of the instance map (e.g. initial) |
|
438 |
-> String -- ^ The instance data |
|
439 |
-> IO () |
|
440 |
maybePrintInsts do_print msg instdata = |
|
441 |
when do_print $ do |
|
442 |
hPutStrLn stderr "" |
|
443 |
hPutStrLn stderr $ msg ++ " instance map:" |
|
444 |
hPutStr stderr instdata |
Also available in: Unified diff