Synnefo » snf-ganeti

  , isOk

  , isBad

  , eitherToResult

  ) where

import Control.Monad

eitherToResult :: Either String a -> Result a

eitherToResult (Left s) = Bad s

eitherToResult (Right v) = Ok v

  , fromJVal

  , asJSObject

  , asObjectList

  )

  where

import qualified Text.JSON as J

-- * JSON-related functions

-- | A type alias for the list-based representation of J.JSObject.

-- | Coneverts a list of JSON values into a list of JSON objects.

asObjectList :: (Monad m) => [J.JSValue] -> m [J.JSObject J.JSValue]

asObjectList = mapM asJSObject

import qualified Ganeti.HTools.Group as Group

import qualified Ganeti.HTools.Node as Node

import qualified Ganeti.HTools.Instance as Instance

                            fromObj)

{-# ANN module "HLint: ignore Eta reduce" #-}

defGroup :: Group.Group

defGroup = flip Group.setIdx 0 $

defGroupList :: Group.List

defGroupList = Container.fromList [(Group.idx defGroup, defGroup)]

  , Score

  , Weight

  , GroupID

  , AllocPolicy(..)

  , allocPolicyFromRaw

  , allocPolicyToRaw

  , isOk

  , isBad

  , eitherToResult

  , Element(..)

  , FailMode(..)

  , FailStats

-- | The Group UUID type.

type GroupID = String

-- | The Group allocation policy type.

--

-- Note that the order of constructors is important as the automatic

  , fromJResult

  , tryRead

  , formatTable

  , parseUnit

  ) where

import Data.Char (toUpper)

import Data.List

import Debug.Trace

-- we will re-export these for our existing users

import Ganeti.HTools.JSON

       -> a            -- ^ first result which has a True condition, or default

select def = maybe def snd . find fst

-- * Parsing utility functions

                    ) (zip3 vtrans numpos mlens)

   in transpose expnd

-- | Tries to extract number and scale from the given string.

--

-- Input must be in the format NUMBER+ SPACE* [UNIT]. If no unit is