Synnefo » snf-ganeti » ganeti-local

{-# LANGUAGE BangPatterns, CPP #-}

module Ganeti.HTools.Rapi

import Data.Maybe (fromMaybe)

#ifndef NO_CURL

-- | Append the default port if not passed in.

formatHost :: String -> String

formatHost master =

    else "https://" ++ master ++ ":" ++ show C.defaultRapiPort

-- | Parse a instance list in JSON format.

             -> String

             -> Result [(String, Instance.Instance)]

getInstances ktn body =

-- | Parse a node list in JSON format.

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

getNodes ktg body = loadJSArray "Parsing node data" body >>=

-- | Parse a group list in JSON format.

getGroups :: String -> Result [(String, Group.Group)]

getGroups body = loadJSArray "Parsing group data" body >>=

-- | Construct an instance from a JSON object.

parseInstance :: NameAssoc