Revision 2ca1b52d
b/src/Ganeti/OpParams.hs | ||
---|---|---|
349 | 349 |
, optionalField $ simpleField C.idiskVg [t| NonEmptyString |] |
350 | 350 |
, optionalField $ simpleField C.idiskMetavg [t| NonEmptyString |] |
351 | 351 |
, optionalField $ simpleField C.idiskName [t| NonEmptyString |] |
352 |
, optionalField $ simpleField C.idiskSpindles [t| Int |] |
|
352 | 353 |
]) |
353 | 354 |
|
354 | 355 |
-- | Disk changes type for OpInstanceRecreateDisks. This is a bit |
b/test/hs/Test/Ganeti/OpCodes.hs | ||
---|---|---|
94 | 94 |
instance Arbitrary IDiskParams where |
95 | 95 |
arbitrary = IDiskParams <$> arbitrary <*> arbitrary <*> |
96 | 96 |
genMaybe genNameNE <*> genMaybe genNameNE <*> |
97 |
genMaybe genNameNE <*> genMaybe genNameNE |
|
97 |
genMaybe genNameNE <*> genMaybe genNameNE <*> |
|
98 |
arbitrary |
|
98 | 99 |
|
99 | 100 |
instance Arbitrary RecreateDisksInfo where |
100 | 101 |
arbitrary = oneof [ pure RecreateDisksAll |
Also available in: Unified diff