Synnefo » snf-ganeti » ganeti-local

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

  let convert v = annotateResult ("Node '" ++ xname ++ "'") (fromJVal v)

  xoffline <- convert offline

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

           else do

             xmtotal  <- convert mtotal

             xmnode   <- convert mnode

             xmfree   <- convert mfree

             xdfree   <- convert dfree

             xctotal  <- convert ctotal

             return $ Node.create xname xmtotal xmnode xmfree

  return (xname, node)

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

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

  let extract s = tryFromObj ("Node '" ++ name ++ "'") a s

  offline <- extract "offline"

           then return $ Node.create name 0 0 0 0 0 0 True

           else do

             mtotal  <- extract "mtotal"

             mnode   <- extract "mnode"

             mfree   <- extract "mfree"

             dfree   <- extract "dfree"

             ctotal  <- extract "ctotal"

             return $ Node.create name mtotal mnode mfree

  return (name, node)

-- | Builds the cluster data from an URL.