Revision 2c9336a4 htools/Ganeti/HTools/Program/Hspace.hs
b/htools/Ganeti/HTools/Program/Hspace.hs | ||
---|---|---|
295 | 295 |
printISpec True ispec spec disk_template = do |
296 | 296 |
printKeys $ map (\(a, fn) -> (prefix ++ "_" ++ a, fn ispec)) specData |
297 | 297 |
printKeys [ (prefix ++ "_RQN", printf "%d" req_nodes) ] |
298 |
printKeys [ (prefix ++ "_DISK_TEMPLATE", dtToString disk_template) ] |
|
298 |
printKeys [ (prefix ++ "_DISK_TEMPLATE", |
|
299 |
diskTemplateToString disk_template) ] |
|
299 | 300 |
where req_nodes = Instance.requiredNodes disk_template |
300 | 301 |
prefix = specPrefix spec |
301 | 302 |
|
... | ... | |
303 | 304 |
printf "%s instance spec is:\n %s, using disk\ |
304 | 305 |
\ template '%s'.\n" |
305 | 306 |
(specDescription spec) |
306 |
(formatResources ispec specData) (dtToString disk_template)
|
|
307 |
(formatResources ispec specData) (diskTemplateToString disk_template)
|
|
307 | 308 |
|
308 | 309 |
-- | Prints the tiered results. |
309 | 310 |
printTiered :: Bool -> [(RSpec, Int)] -> Double |
Also available in: Unified diff