Synnefo » snf-ganeti » ganeti-local

import Data.Maybe (fromMaybe, isJust, fromJust)

import Data.List

import Control.Monad

import Text.JSON (JSObject, JSValue(JSArray),

                  makeObj, encodeStrict, decodeStrict, fromJSObject, showJSON)

-- The result is a tuple of eventual warning messages and the parsed

-- request; if parsing the input data fails, we'll return a 'Bad'

-- value.

          -> Result ([String], Request) -- ^ Result tuple

  decoded <- fromJResult "Parsing input IAllocator message" (decodeStrict body)

  let obj = fromJSObject decoded

      extrObj x = tryFromObj "invalid iallocator message" obj x

  let (kti, il) = assignIndices iobj

  -- cluster tags

  ctags <- extrObj "cluster_tags"

  let (msgs, fix_nl) = checkData (cdNodes cdata1) (cdInstances cdata1)

      cdata = cdata1 { cdNodes = fix_nl }

      map_n = cdNodes cdata

-- | Reads the request from the data file(s).

readRequest :: FilePath -> IO Request

readRequest fp = do

  input_data <- case fp of

                  "-" -> getContents

                  _   -> readFile fp

    Bad err -> exitErr err

    Ok (fix_msgs, rq) -> maybeShowWarnings fix_msgs >> return rq