Revision 14fbd75b
| b/htools/Ganeti/HTools/Program/Hinfo.hs | ||
|---|---|---|
| 126 | 126 |
gl_size (plural gl_size "node group" "node groups")::IO () |
| 127 | 127 |
|
| 128 | 128 |
let csf = commonSuffix nl il |
| 129 |
when (not (null csf) && verbose > 1) $
|
|
| 129 |
when (not (null csf) && verbose > 2) $
|
|
| 130 | 130 |
printf "Note: Stripping common suffix of '%s' from names\n" csf |
| 131 | 131 |
|
| 132 | 132 |
-- | Main function. |
| ... | ... | |
| 142 | 142 |
|
| 143 | 143 |
(ClusterData gl fixed_nl ilf ctags ipol) <- loadExternalData opts |
| 144 | 144 |
|
| 145 |
when (verbose > 1) $ do |
|
| 146 |
putStrLn $ "Loaded cluster tags: " ++ intercalate "," ctags |
|
| 145 |
putStrLn $ "Loaded cluster tags: " ++ intercalate "," ctags |
|
| 146 |
|
|
| 147 |
when (verbose > 2) $ do |
|
| 147 | 148 |
putStrLn $ "Loaded cluster ipolicy: " ++ show ipol |
| 148 |
putStrLn $ "Loaded node groups: " ++ show gl |
|
| 149 | 149 |
|
| 150 | 150 |
nlf <- setNodeStatus opts fixed_nl |
| 151 | 151 |
|
Also available in: Unified diff