Revision 5a4a3b7f
b/htools/Ganeti/HTools/IAlloc.hs | ||
---|---|---|
66 | 66 |
mem <- extract "memory" |
67 | 67 |
vcpus <- extract "vcpus" |
68 | 68 |
tags <- extract "tags" |
69 |
dt <- extract "disk_template" |
|
69 | 70 |
let running = "running" |
70 |
return (n, Instance.create n mem disk vcpus running tags True 0 0 DTDrbd8)
|
|
71 |
return (n, Instance.create n mem disk vcpus running tags True 0 0 dt)
|
|
71 | 72 |
|
72 | 73 |
-- | Parses an instance as found in the cluster instance list. |
73 | 74 |
parseInstance :: NameAssoc -- ^ The node name-to-index association list |
b/htools/Ganeti/HTools/Rapi.hs | ||
---|---|---|
119 | 119 |
running <- extract "status" a |
120 | 120 |
tags <- extract "tags" a |
121 | 121 |
auto_balance <- extract "auto_balance" beparams |
122 |
dt <- extract "disk_template" a |
|
122 | 123 |
let inst = Instance.create name mem disk vcpus running tags |
123 |
auto_balance pnode snode DTDrbd8
|
|
124 |
auto_balance pnode snode dt
|
|
124 | 125 |
return (name, inst) |
125 | 126 |
|
126 | 127 |
-- | Construct a node from a JSON object. |
Also available in: Unified diff