Synnefo » snf-ganeti

  , buildBeParamField

  , buildHvParamField

buildNdParamField =

  buildParamField "ndp" "node" ndParamTitles ndParamTypes ndParamGetter

-- | Beparams optimised lookup map.

beParamTypes :: Map.Map String FieldType

beParamTypes = Map.map vTypeToQFT C.besParameterTypes

-- | Builds the beparam fields for an object.

buildBeParamField :: (String -> ConfigData -> a -> ResultEntry)

                  -> String

                  -> FieldData a b

buildBeParamField =

  buildParamField "be" "backend" C.besParameterTitles beParamTypes

-- | Hvparams optimised lookup map.

hvParamTypes :: Map.Map String FieldType

hvParamTypes = Map.map vTypeToQFT C.hvsParameterTypes

-- | Builds the beparam fields for an object.

buildHvParamField :: (String -> ConfigData -> a -> ResultEntry)

                  -> String

                  -> FieldData a b

buildHvParamField =

  buildParamField "hv" "hypervisor" C.hvsParameterTitles hvParamTypes

-- | Builds a param field for a certain getter class

buildParamField :: String -- ^ Prefix

                -> String -- ^ Parameter group name

                -> Map.Map String String -- ^ Parameter title map

                -> Map.Map String FieldType -- ^ Parameter type map

                -> (String -> ConfigData -> a -> ResultEntry)

                -> String -- ^ The parameter name

                -> FieldData a b

buildParamField prefix paramGroupName titleMap typeMap getter field =

  let full_name = prefix ++ "/" ++ field

      title = fromMaybe full_name $ field `Map.lookup` titleMap

      qft = fromMaybe QFTOther $ field `Map.lookup` typeMap

      desc = "The \"" ++ field ++ "\" " ++ paramGroupName ++ " parameter"

  in ( FieldDefinition full_name title qft desc

     , FieldConfig (getter field), QffNormal

     )