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