Synnefo » snf-ganeti

import Ganeti.BasicTypes

import qualified Ganeti.Constants as C

import Ganeti.Logging

import Ganeti.Objects

import Ganeti.THH

-- | AllInstancesInfo

--   Returns information about all running instances on the given nodes

$(buildObject "RpcCallAllInstancesInfo" "rpcCallAllInstInfo"

$(buildObject "RpcResultAllInstancesInfo" "rpcResAllInstInfo"

  [ simpleField "instances" [t| [(String, InstanceInfo)] |] ])

  rpcCallName _          = "all_instances_info"

  rpcCallTimeout _       = rpcTimeoutToRaw Urgent

  rpcCallAcceptOffline _ = False

instance Rpc RpcCallAllInstancesInfo RpcResultAllInstancesInfo where

  -- FIXME: Is there a simpler way to do it?

instance THH.PyValue Hypervisor where

  showValue = show . hypervisorToRaw

-- | Oob command type.

$(THH.declareLADT ''String "OobCommand"

  [ ("OobHealth",      "health")

import qualified Ganeti.JSON as JSON

import Ganeti.Types

genStorageUnit :: Gen StorageUnit

genStorageUnit = do

  storage_type <- arbitrary

  storage_units_list <- vectorOf num_nodes genStorageUnits

  return $ Map.fromList (zip node_uuids storage_units_list)

-- | Generate hypervisor specifications to be used for the NodeInfo call

genHvSpecs = do

  numhv <- choose (0, 5)

  hvs <- vectorOf numhv arbitrary

  let specs = zip hvs hvparams

  return specs

-- | Monadic check that, for an offline node and a call that does not

-- offline nodes, we get a OfflineNodeError response.