Revision b75430d9
| b/src/Ganeti/OpParams.hs | ||
|---|---|---|
| 355 | 355 |
, optionalField $ simpleField C.idiskVg [t| NonEmptyString |] |
| 356 | 356 |
, optionalField $ simpleField C.idiskMetavg [t| NonEmptyString |] |
| 357 | 357 |
, optionalField $ simpleField C.idiskName [t| NonEmptyString |] |
| 358 |
, optionalField $ simpleField C.idiskProvider [t| NonEmptyString |] |
|
| 358 | 359 |
, optionalField $ simpleField C.idiskSpindles [t| Int |] |
| 359 | 360 |
]) |
| 360 | 361 |
|
| 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 |
arbitrary |
|
| 98 |
genMaybe genNameNE <*> arbitrary
|
|
| 99 | 99 |
|
| 100 | 100 |
instance Arbitrary RecreateDisksInfo where |
| 101 | 101 |
arbitrary = oneof [ pure RecreateDisksAll |
Also available in: Unified diff