Revision 2724417c src/Ganeti/HTools/Backend/Rapi.hs
b/src/Ganeti/HTools/Backend/Rapi.hs | ||
---|---|---|
122 | 122 |
let owner_name = "Instance '" ++ name ++ "', error while parsing data" |
123 | 123 |
let extract s x = tryFromObj owner_name x s |
124 | 124 |
disk <- extract "disk_usage" a |
125 |
disks <- extract "disk.sizes" a |
|
125 |
dsizes <- extract "disk.sizes" a |
|
126 |
dspindles <- tryArrayMaybeFromObj owner_name a "disk.spindles" |
|
126 | 127 |
beparams <- liftM fromJSObject (extract "beparams" a) |
127 | 128 |
omem <- extract "oper_ram" a |
128 | 129 |
mem <- case omem of |
... | ... | |
139 | 140 |
auto_balance <- extract "auto_balance" beparams |
140 | 141 |
dt <- extract "disk_template" a |
141 | 142 |
su <- extract "spindle_use" beparams |
143 |
let disks = zipWith Instance.Disk dsizes dspindles |
|
142 | 144 |
let inst = Instance.create name mem disk disks vcpus running tags |
143 | 145 |
auto_balance pnode snode dt su [] |
144 | 146 |
return (name, inst) |
Also available in: Unified diff