Commit 42fda604 authored by Jose A. Lopes's avatar Jose A. Lopes

Add 'instance_communication_network' to 'OpClusterSetParams'

... and update the unit tests.
Signed-off-by: default avatarJose A. Lopes <jabolopes@google.com>
Reviewed-by: default avatarHelga Velroyen <helgav@google.com>
parent fcafd191
......@@ -239,6 +239,7 @@ $(genOpCode "OpCode"
, pClusterFileStorageDir
, pClusterSharedFileStorageDir
, pClusterGlusterStorageDir
, pInstanceCommunicationNetwork
],
[])
, ("OpClusterRedistConf",
......
......@@ -108,6 +108,7 @@ module Ganeti.OpParams
, pClusterFileStorageDir
, pClusterSharedFileStorageDir
, pClusterGlusterStorageDir
, pInstanceCommunicationNetwork
, pVgName
, pEnabledHypervisors
, pHypervisor
......@@ -587,6 +588,10 @@ pClusterGlusterStorageDir =
renameField "ClusterGlusterStorageDir" $
optionalStringField "gluster_storage_dir"
pInstanceCommunicationNetwork :: Field
pInstanceCommunicationNetwork =
optionalStringField "instance_communication_network"
-- | Volume group name.
pVgName :: Field
pVgName =
......
......@@ -207,6 +207,7 @@ instance Arbitrary OpCodes.OpCode where
<*> genMaybe genName -- file_storage_dir
<*> genMaybe genName -- shared_file_storage_dir
<*> genMaybe genName -- gluster_file_storage_dir
<*> arbitrary -- instance_communication_network
"OP_CLUSTER_REDIST_CONF" -> pure OpCodes.OpClusterRedistConf
"OP_CLUSTER_ACTIVATE_MASTER_IP" ->
pure OpCodes.OpClusterActivateMasterIp
......
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