Synnefo » snf-ganeti

     ["name", "mtotal", "mnode", "mfree", "dtotal", "dfree",

      "ctotal", "offline", "drained", "vm_capable",

      "ndp/spindle_count", "group.uuid", "tags",

-- | The input data for instance query.

queryInstancesMsg :: L.LuxiOp

parseNode :: NameAssoc -> [(JSValue, JSValue)] -> Result (String, Node.Node)

parseNode ktg [ name, mtotal, mnode, mfree, dtotal, dfree

              , ctotal, offline, drained, vm_capable, spindles, g_uuid

    = do

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

  let convert a = genericConvert "Node" xname a

  xoffline <- convert "offline" offline

  xdrained <- convert "drained" drained

  xvm_capable <- convert "vm_capable" vm_capable

  xgdx   <- convert "group.uuid" g_uuid >>= lookupGroup ktg xname

  xtags <- convert "tags" tags

  xexcl_stor <- convert "exclusive_storage" excl_stor

  let live = not xoffline && not xdrained && xvm_capable

      lvconvert def n d = eitherLive live def $ convert n d

  xmtotal <- lvconvert 0.0 "mtotal" mtotal

  xmnode <- lvconvert 0 "mnode" mnode

  xmfree <- lvconvert 0 "mfree" mfree

  xctotal <- lvconvert 0.0 "ctotal" ctotal

  let node = flip Node.setNodeTags xtags $

             Node.create xname xmtotal xmnode xmfree xdtotal xdfree

  return (xname, node)

parseNode _ v = fail ("Invalid node query result: " ++ show v)