Revision 2e09344f
| b/src/Ganeti/OpParams.hs | ||
|---|---|---|
| 357 | 357 |
, optionalField $ simpleField C.idiskName [t| NonEmptyString |] |
| 358 | 358 |
, optionalField $ simpleField C.idiskProvider [t| NonEmptyString |] |
| 359 | 359 |
, optionalField $ simpleField C.idiskSpindles [t| Int |] |
| 360 |
, andRestArguments "opaque" |
|
| 360 | 361 |
]) |
| 361 | 362 |
|
| 362 | 363 |
-- | Disk changes type for OpInstanceRecreateDisks. This is a bit |
| b/test/hs/Test/Ganeti/OpCodes.hs | ||
|---|---|---|
| 95 | 95 |
arbitrary = IDiskParams <$> arbitrary <*> arbitrary <*> |
| 96 | 96 |
genMaybe genNameNE <*> genMaybe genNameNE <*> |
| 97 | 97 |
genMaybe genNameNE <*> genMaybe genNameNE <*> |
| 98 |
genMaybe genNameNE <*> arbitrary |
|
| 98 |
genMaybe genNameNE <*> arbitrary <*> genAndRestArguments
|
|
| 99 | 99 |
|
| 100 | 100 |
instance Arbitrary RecreateDisksInfo where |
| 101 | 101 |
arbitrary = oneof [ pure RecreateDisksAll |
Also available in: Unified diff