Synnefo » snf-ganeti » ganeti-local

              ridx <- lookupNode kti rname rname

              return $ Relocate ridx

        other -> fail $ ("Invalid request type '" ++ other ++ "'")

  return $ Request rqtype map_n map_i csf

formatResponse :: Bool -> String -> [String] -> String

import Ganeti.HTools.Types

-- | Lookups a node into an assoc list

lookupNode :: (Monad m) => NameAssoc -> String -> String -> m Int

lookupNode ktn inst node =

{-| Initializer function that loads the data from a node and list file

    and massages it into the correct format. -}

          -> Result (NodeList, InstanceList, String)

  let

      nl2 = fixNodes nl il

      il3 = Container.fromAssocList il

    return (name, node)

loadData :: String -- ^ Cluster/URL to use as source

loadData master = do -- IO monad

  let url = formatHost master

  node_body <- getUrl $ printf "%s/2/nodes?bulk=1" url

    node_data <- node_body >>= getNodes

    let (node_names, node_idx) = assignIndices node_data

    inst_data <- inst_body >>= getInstances node_names

loadData :: String -- ^ Node data in string format

         -> String -- ^ Instance data in string format

loadData nfile ifile = do -- IO monad

  ndata <- readFile nfile

  idata <- readFile ifile

    {- node file: name t_mem n_mem f_mem t_disk f_disk -}

    (ktn, nl) <- loadTabular ndata loadNode

    {- instance file: name mem disk status pnode snode -}