Synnefo » snf-ganeti

  vcpus <- extract "vcpus"

  tags  <- extract "tags"

  dt    <- extract "disk_template"

-- | Parses an instance as found in the cluster instance list.

parseInstance :: NameAssoc -- ^ The node name-to-index association list

queryInstancesMsg =

  L.Query L.QRInstance ["name", "disk_usage", "be/memory", "be/vcpus",

                        "status", "pnode", "snodes", "tags", "oper_ram",

-- | The input data for cluster query.

queryClusterInfoMsg :: L.LuxiOp

              -> Result (String, Instance.Instance)

parseInstance ktn [ name, disk, mem, vcpus

                  , status, pnode, snodes, tags, oram

  xname <- annotateResult "Parsing new instance" (fromJValWithStatus name)

  let convert a = genericConvert "Instance" xname a

  xdisk <- convert "disk_usage" disk

  xtags <- convert "tags" tags

  xauto_balance <- convert "auto_balance" auto_balance

  xdt <- convert "disk_template" disk_template

  let inst = Instance.create xname xmem xdisk xvcpus

  return (xname, inst)

parseInstance _ v = fail ("Invalid instance query result: " ++ show v)

  tags <- extract "tags" a

  auto_balance <- extract "auto_balance" beparams

  dt <- extract "disk_template" a

  let inst = Instance.create name mem disk vcpus running tags

  return (name, inst)

-- | Construct a node from a JSON object.