let extract s = tryFromObj ("Node '" ++ name ++ "'") a s
offline <- extract "offline"
drained <- extract "drained"
+ guuid <- extract "group.uuid"
node <- (if offline || drained
- then return $ Node.create name 0 0 0 0 0 0 True
+ then return $ Node.create name 0 0 0 0 0 0 True guuid
else do
mtotal <- extract "mtotal"
mnode <- extract "mnode"
dfree <- extract "dfree"
ctotal <- extract "ctotal"
return $ Node.create name mtotal mnode mfree
- dtotal dfree ctotal False)
+ dtotal dfree ctotal False guuid)
return (name, node)
-- | Loads the raw cluster data from an URL.