Revision 981bb5cf htools/Ganeti/HTools/Rapi.hs
b/htools/Ganeti/HTools/Rapi.hs | ||
---|---|---|
124 | 124 |
auto_balance <- extract "auto_balance" beparams |
125 | 125 |
dt <- extract "disk_template" a |
126 | 126 |
let inst = Instance.create name mem disk vcpus running tags |
127 |
auto_balance pnode snode dt |
|
127 |
auto_balance pnode snode dt 1
|
|
128 | 128 |
return (name, inst) |
129 | 129 |
|
130 | 130 |
-- | Construct a node from a JSON object. |
Also available in: Unified diff