Revision a041ebb5 htools/Ganeti/HTools/Rapi.hs
b/htools/Ganeti/HTools/Rapi.hs | ||
---|---|---|
122 | 122 |
else readEitherString (head snodes) >>= lookupNode ktn name) |
123 | 123 |
running <- extract "status" a |
124 | 124 |
tags <- extract "tags" a |
125 |
let inst = Instance.create name mem disk vcpus running tags True pnode snode |
|
125 |
auto_balance <- extract "auto_balance" beparams |
|
126 |
let inst = Instance.create name mem disk vcpus running tags |
|
127 |
auto_balance pnode snode |
|
126 | 128 |
return (name, inst) |
127 | 129 |
|
128 | 130 |
-- | Construct a node from a JSON object. |
Also available in: Unified diff