Synnefo » snf-ganeti » ganeti-local

  vm_cap  <- annotateResult desc $ maybeFromObj a "vm_capable"

  let vm_cap' = fromMaybe True vm_cap

  ndparams <- extract "ndparams" >>= asJSObject

  excl_stor <- tryFromObj desc (fromJSObject ndparams) "exclusive_storage"

  guuid   <- annotateResult desc $ maybeFromObj a "group.uuid"

  guuid' <-  lookupGroup ktg name (fromMaybe defaultGroupID guuid)

  let live = not offline && not drained && vm_cap'

      lvextract def = eitherLive live def . extract

  mtotal <- lvextract 0.0 "mtotal"

  mnode <- lvextract 0 "mnode"

  mfree <- lvextract 0 "mfree"

  tags <- extract "tags"

  let node = flip Node.setNodeTags tags $

             Node.create name mtotal mnode mfree dtotal dfree ctotal (not live)

  return (name, node)

-- | Construct a group from a JSON object.