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