Revision 2724417c src/Ganeti/HTools/Program/Hspace.hs
| b/src/Ganeti/HTools/Program/Hspace.hs | ||
|---|---|---|
| 395 | 395 |
-- having a single disk). |
| 396 | 396 |
instFromSpec :: RSpec -> DiskTemplate -> Int -> Instance.Instance |
| 397 | 397 |
instFromSpec spx dt su = |
| 398 |
Instance.create "new" (rspecMem spx) (rspecDsk spx) [rspecDsk spx] |
|
| 398 |
Instance.create "new" (rspecMem spx) (rspecDsk spx) |
|
| 399 |
[Instance.Disk (rspecDsk spx) (Just su)] |
|
| 399 | 400 |
(rspecCpu spx) Running [] True (-1) (-1) dt su [] |
| 400 | 401 |
|
| 401 | 402 |
combineTiered :: Maybe Int -> Cluster.AllocNodes -> Cluster.AllocResult -> |
Also available in: Unified diff