Synnefo » snf-ganeti

import Network.Curl.Code

import Data.List

import Control.Monad

import Text.Printf (printf)

import Ganeti.HTools.Utils

  let url = formatHost master

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

  inst_body <- getUrl $ printf "%s/2/instances?bulk=1" url

  return $ do -- Result monad

    node_data <- node_body >>= getNodes

    let (node_names, node_idx) = assignIndices node_data

    inst_data <- inst_body >>= getInstances node_names

    let (_, inst_idx) = assignIndices inst_data

      verbose = optVerbose opts

      shownodes = optShowNodes opts

  let offline_names = optOffline opts

      all_nodes = Container.elems fixed_nl

      nl = Container.map (flip Node.setMdsk m_dsk . flip Node.setMcpu m_cpu)

           nm

  when (Container.size il == 0) $ do

         (if oneline then putStrLn $ formatOneline 0 0 0

          else printf "Cluster is empty, exiting.\n")