Synnefo » snf-ganeti » ganeti-local

parseNode ktg a = do

  name <- tryFromObj "Parsing new node" a "name"

  let desc = "Node '" ++ name ++ "', error while parsing data"

  offline <- extract "offline"

  drained <- extract "drained"

  vm_cap  <- annotateResult desc $ maybeFromObj a "vm_capable"

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

  let live = not offline && vm_cap'

      lvextract def = eitherLive live def . extract

  sptotal <- if excl_stor

             then lvextract 0 "sptotal"

             else tryFromObj desc (fromJSObject ndparams) "spindle_count"

  mtotal <- lvextract 0.0 "mtotal"

  mnode <- lvextract 0 "mnode"

  mfree <- lvextract 0 "mfree"

  ctotal <- lvextract 0.0 "ctotal"

  cnos <- lvextract 0 "cnos"

  tags <- extract "tags"