Revision 981bb5cf htools/Ganeti/HTools/Program/Hspace.hs
| b/htools/Ganeti/HTools/Program/Hspace.hs | ||
|---|---|---|
| 389 | 389 |
instFromSpec :: RSpec -> DiskTemplate -> Instance.Instance |
| 390 | 390 |
instFromSpec spx disk_template = |
| 391 | 391 |
Instance.create "new" (rspecMem spx) (rspecDsk spx) |
| 392 |
(rspecCpu spx) Running [] True (-1) (-1) disk_template |
|
| 392 |
(rspecCpu spx) Running [] True (-1) (-1) disk_template 1
|
|
| 393 | 393 |
|
| 394 | 394 |
-- | Main function. |
| 395 | 395 |
main :: Options -> [String] -> IO () |
Also available in: Unified diff