Revision d84ddec2 src/Ganeti/HsConstants.hs

b/src/Ganeti/HsConstants.hs
3301 3301
maxNics :: Int
3302 3302
maxNics = Types.maxNics
3303 3303

  
3304
-- | SSCONF file prefix
3305
ssconfFileprefix :: String
3306
ssconfFileprefix = "ssconf_"
3307

  
3308
-- * SSCONF keys
3309

  
3310
ssClusterName :: String
3311
ssClusterName = "cluster_name"
3312

  
3313
ssClusterTags :: String
3314
ssClusterTags = "cluster_tags"
3315

  
3316
ssFileStorageDir :: String
3317
ssFileStorageDir = "file_storage_dir"
3318

  
3319
ssSharedFileStorageDir :: String
3320
ssSharedFileStorageDir = "shared_file_storage_dir"
3321

  
3322
ssMasterCandidates :: String
3323
ssMasterCandidates = "master_candidates"
3324

  
3325
ssMasterCandidatesIps :: String
3326
ssMasterCandidatesIps = "master_candidates_ips"
3327

  
3328
ssMasterIp :: String
3329
ssMasterIp = "master_ip"
3330

  
3331
ssMasterNetdev :: String
3332
ssMasterNetdev = "master_netdev"
3333

  
3334
ssMasterNetmask :: String
3335
ssMasterNetmask = "master_netmask"
3336

  
3337
ssMasterNode :: String
3338
ssMasterNode = "master_node"
3339

  
3340
ssNodeList :: String
3341
ssNodeList = "node_list"
3342

  
3343
ssNodePrimaryIps :: String
3344
ssNodePrimaryIps = "node_primary_ips"
3345

  
3346
ssNodeSecondaryIps :: String
3347
ssNodeSecondaryIps = "node_secondary_ips"
3348

  
3349
ssOfflineNodes :: String
3350
ssOfflineNodes = "offline_nodes"
3351

  
3352
ssOnlineNodes :: String
3353
ssOnlineNodes = "online_nodes"
3354

  
3355
ssPrimaryIpFamily :: String
3356
ssPrimaryIpFamily = "primary_ip_family"
3357

  
3358
ssInstanceList :: String
3359
ssInstanceList = "instance_list"
3360

  
3361
ssReleaseVersion :: String
3362
ssReleaseVersion = "release_version"
3363

  
3364
ssHypervisorList :: String
3365
ssHypervisorList = "hypervisor_list"
3366

  
3367
ssMaintainNodeHealth :: String
3368
ssMaintainNodeHealth = "maintain_node_health"
3369

  
3370
ssUidPool :: String
3371
ssUidPool = "uid_pool"
3372

  
3373
ssNodegroups :: String
3374
ssNodegroups = "nodegroups"
3375

  
3376
ssNetworks :: String
3377
ssNetworks = "networks"
3378

  
3379
-- | This is not a complete SSCONF key, but the prefix for the
3380
-- hypervisor keys
3381
ssHvparamsPref :: String
3382
ssHvparamsPref = "hvparams_"
3383

  
3384
-- * Hvparams keys
3385

  
3386
ssHvparamsXenChroot :: String
3387
ssHvparamsXenChroot = ssHvparamsPref ++ htChroot
3388

  
3389
ssHvparamsXenFake :: String
3390
ssHvparamsXenFake = ssHvparamsPref ++ htFake
3391

  
3392
ssHvparamsXenHvm :: String
3393
ssHvparamsXenHvm = ssHvparamsPref ++ htXenHvm
3394

  
3395
ssHvparamsXenKvm :: String
3396
ssHvparamsXenKvm = ssHvparamsPref ++ htKvm
3397

  
3398
ssHvparamsXenLxc :: String
3399
ssHvparamsXenLxc = ssHvparamsPref ++ htLxc
3400

  
3401
ssHvparamsXenPvm :: String
3402
ssHvparamsXenPvm = ssHvparamsPref ++ htXenPvm
3403

  
3404
validSsHvparamsKeys :: FrozenSet String
3405
validSsHvparamsKeys =
3406
  ConstantUtils.mkSet [ssHvparamsXenChroot,
3407
                       ssHvparamsXenLxc,
3408
                       ssHvparamsXenFake,
3409
                       ssHvparamsXenHvm,
3410
                       ssHvparamsXenKvm,
3411
                       ssHvparamsXenPvm]
3412

  
3413
ssFilePerms :: Int
3414
ssFilePerms = 0o444
3415

  
3304 3416
-- * Confd
3305 3417

  
3306 3418
confdProtocolVersion :: Int

Also available in: Unified diff