Synnefo » snf-ganeti

import qualified Text.JSON as J

import Ganeti.BasicTypes

import qualified Ganeti.Constants as C

import Ganeti.Errors

import Ganeti.JSON

-- | Retrieves the instance hypervisor params, missing values filled with

-- cluster defaults.

  -- First get the defaults of the parent

  let hvName = hypervisorToRaw . instHypervisor $ inst

      hvParamMap = fromContainer . clusterHvparams $ configCluster cfg

  -- Then the child

      childHvParams = fromContainer . instHvparams $ inst

  -- Helper function

  in GenericContainer $ fillFn (fillFn parentHvParams osHvParams) childHvParams

-- | Retrieves the instance backend params, missing values filled with cluster