Commit b75430d9 authored by Ilias Tsitsimpis's avatar Ilias Tsitsimpis Committed by Klaus Aehlig
Browse files

Add 'provider' to IDiskParams



IDISK_PROVIDER was included in python's IDISK_PARAMS, so it
should also be included in the Haskell code.

Now that luxid creates and enqueues jobs, without this patch the
ExtStorage interface is broken as the user can not pass the disk
provider to instance related commands.
Signed-off-by: default avatarIlias Tsitsimpis <iliastsi@grnet.gr>
Signed-off-by: default avatarKlaus Aehlig <aehlig@google.com>
Reviewed-by: default avatarKlaus Aehlig <aehlig@google.com>
parent 45f75526
......@@ -355,6 +355,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.idiskProvider [t| NonEmptyString |]
, optionalField $ simpleField C.idiskSpindles [t| Int |]
])
......
......@@ -95,7 +95,7 @@ instance Arbitrary IDiskParams where
arbitrary = IDiskParams <$> arbitrary <*> arbitrary <*>
genMaybe genNameNE <*> genMaybe genNameNE <*>
genMaybe genNameNE <*> genMaybe genNameNE <*>
arbitrary
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