Revision 2724417c src/Ganeti/HTools/Backend/IAlloc.hs
b/src/Ganeti/HTools/Backend/IAlloc.hs | ||
---|---|---|
85 | 85 |
let errorMessage = "invalid data for instance '" ++ n ++ "'" |
86 | 86 |
let extract x = tryFromObj errorMessage a x |
87 | 87 |
disk <- extract "disk_space_total" |
88 |
disks <- extract "disks" >>= toArray >>= asObjectList >>= |
|
89 |
mapM (flip (tryFromObj errorMessage) "size" . fromJSObject) |
|
88 |
jsdisks <- extract "disks" >>= toArray >>= asObjectList |
|
89 |
dsizes <- mapM (flip (tryFromObj errorMessage) "size" . fromJSObject) jsdisks |
|
90 |
dspindles <- mapM (annotateResult errorMessage . |
|
91 |
flip maybeFromObj "spindles" . fromJSObject) jsdisks |
|
92 |
let disks = zipWith Instance.Disk dsizes dspindles |
|
90 | 93 |
mem <- extract "memory" |
91 | 94 |
vcpus <- extract "vcpus" |
92 | 95 |
tags <- extract "tags" |
Also available in: Unified diff