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