Commit 2ca1b52d authored by Klaus Aehlig's avatar Klaus Aehlig
Browse files

Add missing spindles paramter to idisk



When spindles where added to Ganeti, apparently it was forgotten
to add the parameter to the Haskell data type as well. Do this now.
Signed-off-by: default avatarKlaus Aehlig <aehlig@google.com>
Reviewed-by: default avatarPetr Pudlak <pudlak@google.com>
parent 9e448d7f
......@@ -349,6 +349,7 @@ $(buildObject "IDiskParams" "idisk"
, optionalField $ simpleField C.idiskVg [t| NonEmptyString |]
, optionalField $ simpleField C.idiskMetavg [t| NonEmptyString |]
, optionalField $ simpleField C.idiskName [t| NonEmptyString |]
, optionalField $ simpleField C.idiskSpindles [t| Int |]
])
-- | Disk changes type for OpInstanceRecreateDisks. This is a bit
......
......@@ -94,7 +94,8 @@ instance Arbitrary INicParams where
instance Arbitrary IDiskParams where
arbitrary = IDiskParams <$> arbitrary <*> arbitrary <*>
genMaybe genNameNE <*> genMaybe genNameNE <*>
genMaybe genNameNE <*> genMaybe genNameNE
genMaybe genNameNE <*> genMaybe genNameNE <*>
arbitrary
instance Arbitrary RecreateDisksInfo where
arbitrary = oneof [ pure RecreateDisksAll
......
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