Revision c324da14 src/Ganeti/HTools/Backend/Rapi.hs
b/src/Ganeti/HTools/Backend/Rapi.hs | ||
---|---|---|
155 | 155 |
let vm_cap' = fromMaybe True vm_cap |
156 | 156 |
ndparams <- extract "ndparams" >>= asJSObject |
157 | 157 |
spindles <- tryFromObj desc (fromJSObject ndparams) "spindle_count" |
158 |
excl_stor <- tryFromObj desc (fromJSObject ndparams) "exclusive_storage" |
|
158 | 159 |
guuid <- annotateResult desc $ maybeFromObj a "group.uuid" |
159 | 160 |
guuid' <- lookupGroup ktg name (fromMaybe defaultGroupID guuid) |
160 | 161 |
node <- if offline || drained || not vm_cap' |
161 |
then return $ Node.create name 0 0 0 0 0 0 True 0 guuid' |
|
162 |
then return $ Node.create name 0 0 0 0 0 0 True 0 guuid' False
|
|
162 | 163 |
else do |
163 | 164 |
mtotal <- extract "mtotal" |
164 | 165 |
mnode <- extract "mnode" |
... | ... | |
169 | 170 |
tags <- extract "tags" |
170 | 171 |
return . flip Node.setNodeTags tags $ |
171 | 172 |
Node.create name mtotal mnode mfree dtotal dfree ctotal False |
172 |
spindles guuid' |
|
173 |
spindles guuid' excl_stor
|
|
173 | 174 |
return (name, node) |
174 | 175 |
|
175 | 176 |
-- | Construct a group from a JSON object. |
Also available in: Unified diff