Revision 241cea1e src/Ganeti/HTools/Program/Hspace.hs
b/src/Ganeti/HTools/Program/Hspace.hs | ||
---|---|---|
390 | 390 |
return (sortReasons reasons, new_nl, length new_ixes, tieredSpecMap new_ixes) |
391 | 391 |
|
392 | 392 |
-- | Create an instance from a given spec. |
393 |
-- For values not implied by the resorce specification (like distribution of |
|
394 |
-- of the disk space to individual disks), sensible defaults are guessed (e.g., |
|
395 |
-- having a single disk). |
|
393 | 396 |
instFromSpec :: RSpec -> DiskTemplate -> Int -> Instance.Instance |
394 | 397 |
instFromSpec spx = |
395 |
Instance.create "new" (rspecMem spx) (rspecDsk spx) |
|
398 |
Instance.create "new" (rspecMem spx) (rspecDsk spx) [rspecDsk spx]
|
|
396 | 399 |
(rspecCpu spx) Running [] True (-1) (-1) |
397 | 400 |
|
398 | 401 |
-- | Main function. |
Also available in: Unified diff