Synnefo » snf-ganeti

  L.Query (Qlang.ItemTypeOpCode Qlang.QRNode)

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

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

-- | The input data for instance query.

queryInstancesMsg :: L.LuxiOp

-- | Construct a node from a JSON object.

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

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

    = do

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

  let convert a = genericConvert "Node" xname a

  xvm_capable <- convert "vm_capable" vm_capable

  xspindles <- convert "spindles" spindles

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

  node <- if xoffline || xdrained || not xvm_capable

            then return $ Node.create xname 0 0 0 0 0 0 True xspindles xgdx

            else do

              xdtotal  <- convert "dtotal" dtotal

              xdfree   <- convert "dfree" dfree

              xctotal  <- convert "ctotal" ctotal

  return (xname, node)

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