Commit 7f045b94 authored by Petr Pudlak's avatar Petr Pudlak

Add a constant listing all possible ssconf keys

.. available for both Python and Haskell
Signed-off-by: default avatarPetr Pudlak <pudlak@google.com>
Reviewed-by: default avatarHelga Velroyen <helgav@google.com>
parent 4a4e841b
......@@ -49,6 +49,7 @@ import Control.Arrow ((***),(&&&))
import Data.List ((\\))
import Data.Map (Map)
import qualified Data.Map as Map (empty, fromList, keys, insert)
import Data.Monoid
import qualified AutoConf
import Ganeti.ConstantUtils (PythonChar(..), FrozenSet, Protocol(..),
......@@ -3906,6 +3907,40 @@ ssFilePerms = 0o444
ssEnabledUserShutdown :: String
ssEnabledUserShutdown = "enabled_user_shutdown"
validSsKeys :: FrozenSet String
validSsKeys = ConstantUtils.mkSet
[ ssClusterName
, ssClusterTags
, ssFileStorageDir
, ssSharedFileStorageDir
, ssGlusterStorageDir
, ssMasterCandidates
, ssMasterCandidatesIps
, ssMasterCandidatesCerts
, ssMasterIp
, ssMasterNetdev
, ssMasterNetmask
, ssMasterNode
, ssNodeList
, ssNodePrimaryIps
, ssNodeSecondaryIps
, ssNodeVmCapable
, ssOfflineNodes
, ssOnlineNodes
, ssPrimaryIpFamily
, ssInstanceList
, ssReleaseVersion
, ssHypervisorList
, ssMaintainNodeHealth
, ssUidPool
, ssNodegroups
, ssNetworks
, ssEnabledUserShutdown
]
<>
validSsHvparamsKeys
-- | Cluster wide default parameters
defaultEnabledHypervisor :: String
defaultEnabledHypervisor = htXenPvm
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment