Synnefo » snf-ganeti

{-

This program is free software; you can redistribute it and/or modify

it under the terms of the GNU General Public License as published by

queryNodesMsg =

  L.Query L.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

  xoffline <- convert "offline" offline

  xdrained <- convert "drained" drained

  xvm_capable <- convert "vm_capable" vm_capable

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

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

            else do

              xmtotal  <- convert "mtotal" mtotal

              xmnode   <- convert "mnode" mnode

              xdfree   <- convert "dfree" dfree

              xctotal  <- convert "ctotal" ctotal

              return $ Node.create xname xmtotal xmnode xmfree

  return (xname, node)

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