Revision b75430d9 test/hs/Test/Ganeti/OpCodes.hs
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