Revision 1c3231aa src/Ganeti/OpParams.hs
b/src/Ganeti/OpParams.hs | ||
---|---|---|
61 | 61 |
, pForce |
62 | 62 |
, pIgnoreOfflineNodes |
63 | 63 |
, pNodeName |
64 |
, pNodeUuid |
|
64 | 65 |
, pNodeNames |
66 |
, pNodeUuids |
|
65 | 67 |
, pGroupName |
66 | 68 |
, pMigrationMode |
67 | 69 |
, pMigrationLive |
... | ... | |
82 | 84 |
, pIpConflictsCheck |
83 | 85 |
, pNoRemember |
84 | 86 |
, pMigrationTargetNode |
87 |
, pMigrationTargetNodeUuid |
|
85 | 88 |
, pMoveTargetNode |
89 |
, pMoveTargetNodeUuid |
|
86 | 90 |
, pStartupPaused |
87 | 91 |
, pVerbose |
88 | 92 |
, pDebugSimulateErrors |
... | ... | |
144 | 148 |
, pNames |
145 | 149 |
, pNodes |
146 | 150 |
, pRequiredNodes |
151 |
, pRequiredNodeUuids |
|
147 | 152 |
, pStorageType |
148 | 153 |
, pStorageChanges |
149 | 154 |
, pMasterCandidate |
... | ... | |
153 | 158 |
, pPowered |
154 | 159 |
, pIallocator |
155 | 160 |
, pRemoteNode |
161 |
, pRemoteNodeUuid |
|
156 | 162 |
, pEvacMode |
157 | 163 |
, pInstCreateMode |
158 | 164 |
, pNoInstall |
159 | 165 |
, pInstOs |
160 | 166 |
, pPrimaryNode |
167 |
, pPrimaryNodeUuid |
|
161 | 168 |
, pSecondaryNode |
169 |
, pSecondaryNodeUuid |
|
162 | 170 |
, pSourceHandshake |
163 | 171 |
, pSourceInstance |
164 | 172 |
, pSourceShutdownTimeout |
165 | 173 |
, pSourceX509Ca |
166 | 174 |
, pSrcNode |
175 |
, pSrcNodeUuid |
|
167 | 176 |
, pSrcPath |
168 | 177 |
, pStartInstance |
169 | 178 |
, pInstTags |
... | ... | |
188 | 197 |
, pTargetGroups |
189 | 198 |
, pExportMode |
190 | 199 |
, pExportTargetNode |
200 |
, pExportTargetNodeUuid |
|
191 | 201 |
, pRemoveInstance |
192 | 202 |
, pIgnoreRemoveFailures |
193 | 203 |
, pX509KeyName |
... | ... | |
200 | 210 |
, pDelayDuration |
201 | 211 |
, pDelayOnMaster |
202 | 212 |
, pDelayOnNodes |
213 |
, pDelayOnNodeUuids |
|
203 | 214 |
, pDelayRepeat |
204 | 215 |
, pIAllocatorDirection |
205 | 216 |
, pIAllocatorMode |
... | ... | |
563 | 574 |
pNodeName :: Field |
564 | 575 |
pNodeName = simpleField "node_name" [t| NonEmptyString |] |
565 | 576 |
|
577 |
-- | A node UUID (for single-node LUs). |
|
578 |
pNodeUuid :: Field |
|
579 |
pNodeUuid = optionalField $ simpleField "node_uuid" [t| NonEmptyString |] |
|
580 |
|
|
566 | 581 |
-- | List of nodes. |
567 | 582 |
pNodeNames :: Field |
568 | 583 |
pNodeNames = |
569 | 584 |
defaultField [| [] |] $ simpleField "node_names" [t| [NonEmptyString] |] |
570 | 585 |
|
586 |
-- | List of node UUIDs. |
|
587 |
pNodeUuids :: Field |
|
588 |
pNodeUuids = |
|
589 |
optionalField $ simpleField "node_uuids" [t| [NonEmptyString] |] |
|
590 |
|
|
571 | 591 |
-- | A required node group name (for single-group LUs). |
572 | 592 |
pGroupName :: Field |
573 | 593 |
pGroupName = simpleField "group_name" [t| NonEmptyString |] |
... | ... | |
656 | 676 |
pMigrationTargetNode :: Field |
657 | 677 |
pMigrationTargetNode = optionalNEStringField "target_node" |
658 | 678 |
|
679 |
-- | Target node UUID for instance migration/failover. |
|
680 |
pMigrationTargetNodeUuid :: Field |
|
681 |
pMigrationTargetNodeUuid = optionalNEStringField "target_node_uuid" |
|
682 |
|
|
659 | 683 |
-- | Target node for instance move (required). |
660 | 684 |
pMoveTargetNode :: Field |
661 | 685 |
pMoveTargetNode = |
662 | 686 |
renameField "MoveTargetNode" $ |
663 | 687 |
simpleField "target_node" [t| NonEmptyString |] |
664 | 688 |
|
689 |
-- | Target node UUID for instance move. |
|
690 |
pMoveTargetNodeUuid :: Field |
|
691 |
pMoveTargetNodeUuid = |
|
692 |
renameField "MoveTargetNodeUuid" . optionalField $ |
|
693 |
simpleField "target_node_uuid" [t| NonEmptyString |] |
|
694 |
|
|
665 | 695 |
-- | Pause instance at startup. |
666 | 696 |
pStartupPaused :: Field |
667 | 697 |
pStartupPaused = defaultFalse "startup_paused" |
... | ... | |
990 | 1020 |
pRequiredNodes = |
991 | 1021 |
renameField "ReqNodes " $ simpleField "nodes" [t| [NonEmptyString] |] |
992 | 1022 |
|
1023 |
-- | Required list of node names. |
|
1024 |
pRequiredNodeUuids :: Field |
|
1025 |
pRequiredNodeUuids = |
|
1026 |
renameField "ReqNodeUuids " . optionalField $ |
|
1027 |
simpleField "node_uuids" [t| [NonEmptyString] |] |
|
1028 |
|
|
993 | 1029 |
-- | Storage type. |
994 | 1030 |
pStorageType :: Field |
995 | 1031 |
pStorageType = simpleField "storage_type" [t| StorageType |] |
... | ... | |
1027 | 1063 |
pRemoteNode :: Field |
1028 | 1064 |
pRemoteNode = optionalNEStringField "remote_node" |
1029 | 1065 |
|
1066 |
-- | New secondary node UUID. |
|
1067 |
pRemoteNodeUuid :: Field |
|
1068 |
pRemoteNodeUuid = optionalNEStringField "remote_node_uuid" |
|
1069 |
|
|
1030 | 1070 |
-- | Node evacuation mode. |
1031 | 1071 |
pEvacMode :: Field |
1032 | 1072 |
pEvacMode = renameField "EvacMode" $ simpleField "mode" [t| NodeEvacMode |] |
... | ... | |
1048 | 1088 |
pPrimaryNode :: Field |
1049 | 1089 |
pPrimaryNode = optionalNEStringField "pnode" |
1050 | 1090 |
|
1091 |
-- | Primary node UUID for an instance. |
|
1092 |
pPrimaryNodeUuid :: Field |
|
1093 |
pPrimaryNodeUuid = optionalNEStringField "pnode_uuid" |
|
1094 |
|
|
1051 | 1095 |
-- | Secondary node for an instance. |
1052 | 1096 |
pSecondaryNode :: Field |
1053 | 1097 |
pSecondaryNode = optionalNEStringField "snode" |
1054 | 1098 |
|
1099 |
-- | Secondary node UUID for an instance. |
|
1100 |
pSecondaryNodeUuid :: Field |
|
1101 |
pSecondaryNodeUuid = optionalNEStringField "snode_uuid" |
|
1102 |
|
|
1055 | 1103 |
-- | Signed handshake from source (remote import only). |
1056 | 1104 |
pSourceHandshake :: Field |
1057 | 1105 |
pSourceHandshake = |
... | ... | |
1076 | 1124 |
pSrcNode :: Field |
1077 | 1125 |
pSrcNode = optionalNEStringField "src_node" |
1078 | 1126 |
|
1127 |
-- | Source node for import. |
|
1128 |
pSrcNodeUuid :: Field |
|
1129 |
pSrcNodeUuid = optionalNEStringField "src_node_uuid" |
|
1130 |
|
|
1079 | 1131 |
-- | Source directory for import. |
1080 | 1132 |
pSrcPath :: Field |
1081 | 1133 |
pSrcPath = optionalNEStringField "src_path" |
... | ... | |
1181 | 1233 |
renameField "ExportTarget" $ |
1182 | 1234 |
simpleField "target_node" [t| ExportTarget |] |
1183 | 1235 |
|
1236 |
-- | Export target node UUID field. |
|
1237 |
pExportTargetNodeUuid :: Field |
|
1238 |
pExportTargetNodeUuid = |
|
1239 |
renameField "ExportTargetNodeUuid" . optionalField $ |
|
1240 |
simpleField "target_node_uuid" [t| NonEmptyString |] |
|
1241 |
|
|
1184 | 1242 |
-- | Whether to remove instance after export. |
1185 | 1243 |
pRemoveInstance :: Field |
1186 | 1244 |
pRemoveInstance = defaultFalse "remove_instance" |
... | ... | |
1241 | 1299 |
defaultField [| [] |] $ |
1242 | 1300 |
simpleField "on_nodes" [t| [NonEmptyString] |] |
1243 | 1301 |
|
1302 |
-- | on_node_uuids field for 'OpTestDelay'. |
|
1303 |
pDelayOnNodeUuids :: Field |
|
1304 |
pDelayOnNodeUuids = |
|
1305 |
renameField "DelayOnNodeUuids" . optionalField $ |
|
1306 |
simpleField "on_node_uuids" [t| [NonEmptyString] |] |
|
1307 |
|
|
1244 | 1308 |
-- | Repeat parameter for OpTestDelay. |
1245 | 1309 |
pDelayRepeat :: Field |
1246 | 1310 |
pDelayRepeat = |
Also available in: Unified diff