Revision 67ec18c0 src/Ganeti/HTools/Backend/Luxi.hs
b/src/Ganeti/HTools/Backend/Luxi.hs | ||
---|---|---|
194 | 194 |
xvm_capable <- convert "vm_capable" vm_capable |
195 | 195 |
xspindles <- convert "spindles" spindles |
196 | 196 |
xgdx <- convert "group.uuid" g_uuid >>= lookupGroup ktg xname |
197 |
let live = not xoffline && not xdrained && xvm_capable
|
|
197 |
let live = not xoffline && xvm_capable |
|
198 | 198 |
lvconvert def n d = eitherLive live def $ convert n d |
199 | 199 |
xmtotal <- lvconvert 0.0 "mtotal" mtotal |
200 | 200 |
xmnode <- lvconvert 0 "mnode" mnode |
... | ... | |
203 | 203 |
xdfree <- lvconvert 0 "dfree" dfree |
204 | 204 |
xctotal <- lvconvert 0.0 "ctotal" ctotal |
205 | 205 |
let node = Node.create xname xmtotal xmnode xmfree xdtotal xdfree |
206 |
xctotal (not live) xspindles xgdx |
|
206 |
xctotal (not live || xdrained) xspindles xgdx
|
|
207 | 207 |
return (xname, node) |
208 | 208 |
|
209 | 209 |
parseNode _ v = fail ("Invalid node query result: " ++ show v) |
Also available in: Unified diff