Revision 5867e439
b/src/Ganeti/HsConstants.hs | ||
---|---|---|
499 | 499 |
-- * Admin states |
500 | 500 |
|
501 | 501 |
adminstDown :: String |
502 |
adminstDown = "down"
|
|
502 |
adminstDown = Types.adminStateToRaw AdminDown
|
|
503 | 503 |
|
504 | 504 |
adminstOffline :: String |
505 |
adminstOffline = "offline"
|
|
505 |
adminstOffline = Types.adminStateToRaw AdminOffline
|
|
506 | 506 |
|
507 | 507 |
adminstUp :: String |
508 |
adminstUp = "up"
|
|
508 |
adminstUp = Types.adminStateToRaw AdminUp
|
|
509 | 509 |
|
510 | 510 |
adminstAll :: FrozenSet String |
511 |
adminstAll = ConstantUtils.mkSet [adminstDown, adminstOffline, adminstUp] |
|
511 |
adminstAll = ConstantUtils.mkSet $ map Types.adminStateToRaw [minBound..] |
|
512 |
|
|
513 |
-- * Node roles |
|
514 |
|
|
515 |
nrDrained :: String |
|
516 |
nrDrained = Types.nodeRoleToRaw NRDrained |
|
517 |
|
|
518 |
nrMaster :: String |
|
519 |
nrMaster = Types.nodeRoleToRaw NRMaster |
|
520 |
|
|
521 |
nrMcandidate :: String |
|
522 |
nrMcandidate = Types.nodeRoleToRaw NRCandidate |
|
523 |
|
|
524 |
nrOffline :: String |
|
525 |
nrOffline = Types.nodeRoleToRaw NROffline |
|
526 |
|
|
527 |
nrRegular :: String |
|
528 |
nrRegular = Types.nodeRoleToRaw NRRegular |
|
529 |
|
|
530 |
nrAll :: FrozenSet String |
|
531 |
nrAll = ConstantUtils.mkSet $ map Types.nodeRoleToRaw [minBound..] |
|
512 | 532 |
|
513 | 533 |
-- * Allocator framework constants |
514 | 534 |
|
... | ... | |
913 | 933 |
fdLoop :: String |
914 | 934 |
fdLoop = Types.fileDriverToRaw FileLoop |
915 | 935 |
|
936 |
-- * Disk access mode |
|
937 |
|
|
938 |
diskRdonly :: String |
|
939 |
diskRdonly = Types.diskModeToRaw DiskRdOnly |
|
940 |
|
|
941 |
diskRdwr :: String |
|
942 |
diskRdwr = Types.diskModeToRaw DiskRdWr |
|
943 |
|
|
944 |
diskAccessSet :: FrozenSet String |
|
945 |
diskAccessSet = ConstantUtils.mkSet $ map Types.diskModeToRaw [minBound..] |
|
946 |
|
|
916 | 947 |
-- * Instance export mode |
917 | 948 |
|
918 | 949 |
exportModeLocal :: String |
... | ... | |
1021 | 1052 |
rebootTypes :: FrozenSet String |
1022 | 1053 |
rebootTypes = ConstantUtils.mkSet $ map Types.rebootTypeToRaw [minBound..] |
1023 | 1054 |
|
1055 |
-- * VTypes |
|
1056 |
|
|
1057 |
vtypeBool :: String |
|
1058 |
vtypeBool = Types.vTypeToRaw VTypeBool |
|
1059 |
|
|
1060 |
vtypeInt :: String |
|
1061 |
vtypeInt = Types.vTypeToRaw VTypeInt |
|
1062 |
|
|
1063 |
vtypeMaybeString :: String |
|
1064 |
vtypeMaybeString = Types.vTypeToRaw VTypeMaybeString |
|
1065 |
|
|
1066 |
-- | Size in MiBs |
|
1067 |
vtypeSize :: String |
|
1068 |
vtypeSize = Types.vTypeToRaw VTypeSize |
|
1069 |
|
|
1070 |
vtypeString :: String |
|
1071 |
vtypeString = Types.vTypeToRaw VTypeString |
|
1072 |
|
|
1073 |
enforceableTypes :: FrozenSet String |
|
1074 |
enforceableTypes = ConstantUtils.mkSet $ map Types.vTypeToRaw [minBound..] |
|
1075 |
|
|
1024 | 1076 |
-- * Possible values for NodeGroup.alloc_policy |
1025 | 1077 |
|
1026 | 1078 |
allocPolicyLastResort :: String |
... | ... | |
1037 | 1089 |
|
1038 | 1090 |
-- | Temporary external/shared storage parameters |
1039 | 1091 |
blockdevDriverManual :: String |
1040 |
blockdevDriverManual = "manual"
|
|
1092 |
blockdevDriverManual = Types.blockDriverToRaw BlockDrvManual
|
|
1041 | 1093 |
|
1042 | 1094 |
-- | Path generating random UUID |
1043 | 1095 |
randomUuidFile :: String |
Also available in: Unified diff