Revision 30dd3377 src/Ganeti/HTools/Backend/Simu.hs
b/src/Ganeti/HTools/Backend/Simu.hs | ||
---|---|---|
78 | 78 |
(apol, ncount, disk, mem, cpu, spindles) <- parseDesc spec $ |
79 | 79 |
sepSplit ',' spec |
80 | 80 |
let nodes = map (\idx -> |
81 |
Node.create (printf "node-%02d-%03d" grpIndex idx) |
|
82 |
(fromIntegral mem) 0 mem |
|
83 |
(fromIntegral disk) disk |
|
84 |
(fromIntegral cpu) False spindles grpIndex |
|
81 |
flip Node.setMaster (grpIndex == 1 && idx == 1) $ |
|
82 |
Node.create (printf "node-%02d-%03d" grpIndex idx) |
|
83 |
(fromIntegral mem) 0 mem |
|
84 |
(fromIntegral disk) disk |
|
85 |
(fromIntegral cpu) False spindles grpIndex |
|
85 | 86 |
) [1..ncount] |
86 | 87 |
grp = Group.create (printf "group-%02d" grpIndex) |
87 | 88 |
(printf "fake-uuid-%02d" grpIndex) apol defIPolicy [] |
Also available in: Unified diff