Revision d676dbea test/hs/Test/Ganeti/OpCodes.hs
b/test/hs/Test/Ganeti/OpCodes.hs | ||
---|---|---|
75 | 75 |
instance Arbitrary INicParams where |
76 | 76 |
arbitrary = INicParams <$> genMaybe genNameNE <*> genMaybe genName <*> |
77 | 77 |
genMaybe genNameNE <*> genMaybe genNameNE <*> genMaybe genNameNE |
78 |
<*> genMaybe genNameNE |
|
78 | 79 |
|
79 | 80 |
instance Arbitrary IDiskParams where |
80 | 81 |
arbitrary = IDiskParams <$> arbitrary <*> arbitrary <*> |
Also available in: Unified diff