Add andRestArguments to IDiskParams

In this way, we cann pass through the opaque parameters
required for disk creation and modification in the case of
external storage.
Signed-off-by: Klaus Aehlig <aehlig@google.com>
Reviewed-by: Petr Pudlak <pudlak@google.com>

src/Ganeti/OpParams.hs

@@ -357,6 +357,7 @@ $(buildObject "IDiskParams" "idisk"
   , optionalField $ simpleField C.idiskName   [t| NonEmptyString |]
   , optionalField $ simpleField C.idiskProvider [t| NonEmptyString |]
   , optionalField $ simpleField C.idiskSpindles [t| Int          |]
+  , andRestArguments "opaque"
   ])
 
 -- | Disk changes type for OpInstanceRecreateDisks. This is a bit

test/hs/Test/Ganeti/OpCodes.hs

@@ -95,7 +95,7 @@ instance Arbitrary IDiskParams where
   arbitrary = IDiskParams <$> arbitrary <*> arbitrary <*>
               genMaybe genNameNE <*> genMaybe genNameNE <*>
               genMaybe genNameNE <*> genMaybe genNameNE <*>
-              genMaybe genNameNE <*> arbitrary
+              genMaybe genNameNE <*> arbitrary <*> genAndRestArguments
 
 instance Arbitrary RecreateDisksInfo where
   arbitrary = oneof [ pure RecreateDisksAll