Minor modifications needed in order make hs-tests does not give any errors.
Signed-off-by: Dimitris Aragiorgis <[email protected]> --- src/Ganeti/OpCodes.hs | 1 + src/Ganeti/OpParams.hs | 5 +++++ test/hs/Test/Ganeti/OpCodes.hs | 2 +- 3 files changed, 7 insertions(+), 1 deletion(-) diff --git a/src/Ganeti/OpCodes.hs b/src/Ganeti/OpCodes.hs index de3b300..0a857ba 100644 --- a/src/Ganeti/OpCodes.hs +++ b/src/Ganeti/OpCodes.hs @@ -435,6 +435,7 @@ $(genOpCode "OpCode" , pWaitForSync , pOffline , pIpConflictsCheck + , pHotplug ]) , ("OpInstanceGrowDisk", [ pInstanceName diff --git a/src/Ganeti/OpParams.hs b/src/Ganeti/OpParams.hs index 0e934d0..eff2c59 100644 --- a/src/Ganeti/OpParams.hs +++ b/src/Ganeti/OpParams.hs @@ -99,6 +99,7 @@ module Ganeti.OpParams , pHvState , pDiskState , pIgnoreIpolicy + , pHotplug , pAllowRuntimeChgs , pInstDisks , pDiskTemplate @@ -752,6 +753,10 @@ pDiskState = optionalField $ simpleField "disk_state" [t| UncheckedDict |] pIgnoreIpolicy :: Field pIgnoreIpolicy = defaultFalse "ignore_ipolicy" +-- | Whether to hotplug device. +pHotplug :: Field +pHotplug = defaultFalse "hotplug" + -- | Allow runtime changes while migrating. pAllowRuntimeChgs :: Field pAllowRuntimeChgs = defaultTrue "allow_runtime_changes" diff --git a/test/hs/Test/Ganeti/OpCodes.hs b/test/hs/Test/Ganeti/OpCodes.hs index 6b90f10..f200f84 100644 --- a/test/hs/Test/Ganeti/OpCodes.hs +++ b/test/hs/Test/Ganeti/OpCodes.hs @@ -277,7 +277,7 @@ instance Arbitrary OpCodes.OpCode where pure emptyJSObject <*> arbitrary <*> genMaybe genNodeNameNE <*> return Nothing <*> genMaybe genNodeNameNE <*> return Nothing <*> genMaybe genNameNE <*> pure emptyJSObject <*> arbitrary <*> - arbitrary <*> arbitrary + arbitrary <*> arbitrary <*> arbitrary "OP_INSTANCE_GROW_DISK" -> OpCodes.OpInstanceGrowDisk <$> genFQDN <*> return Nothing <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary -- 1.7.10.4
