Revision 1b0a6356 htools/Ganeti/HTools/Program/Hspace.hs
| b/htools/Ganeti/HTools/Program/Hspace.hs | ||
|---|---|---|
| 95 | 95 |
-- | Efficiency generic function. |
| 96 | 96 |
effFn :: (Cluster.CStats -> Integer) |
| 97 | 97 |
-> (Cluster.CStats -> Double) |
| 98 |
-> (Cluster.CStats -> Double)
|
|
| 98 |
-> Cluster.CStats -> Double
|
|
| 99 | 99 |
effFn fi ft cs = fromIntegral (fi cs) / ft cs |
| 100 | 100 |
|
| 101 | 101 |
-- | Memory efficiency. |
| ... | ... | |
| 271 | 271 |
[False, False, False, True, True, True] |
| 272 | 272 |
|
| 273 | 273 |
-- | Formats nicely a list of resources. |
| 274 |
formatResources :: a -> [(String, (a->String))] -> String
|
|
| 274 |
formatResources :: a -> [(String, a->String)] -> String
|
|
| 275 | 275 |
formatResources res = |
| 276 | 276 |
intercalate ", " . map (\(a, fn) -> a ++ " " ++ fn res) |
| 277 | 277 |
|
| ... | ... | |
| 298 | 298 |
where req_nodes = Instance.requiredNodes disk_template |
| 299 | 299 |
prefix = specPrefix spec |
| 300 | 300 |
|
| 301 |
printISpec False ispec spec disk_template = do
|
|
| 301 |
printISpec False ispec spec disk_template = |
|
| 302 | 302 |
printf "%s instance spec is:\n %s, using disk\ |
| 303 | 303 |
\ template '%s'.\n" |
| 304 | 304 |
(specDescription spec) |
Also available in: Unified diff