Revision d2204b1a test/hs/Test/Ganeti/OpCodes.hs
b/test/hs/Test/Ganeti/OpCodes.hs | ||
---|---|---|
263 | 263 |
OpCodes.OpInstanceSetParams <$> genFQDN <*> arbitrary <*> |
264 | 264 |
arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> |
265 | 265 |
pure emptyJSObject <*> arbitrary <*> pure emptyJSObject <*> |
266 |
arbitrary <*> genMaybe genNodeNameNE <*> genMaybe genNameNE <*> |
|
267 |
pure emptyJSObject <*> arbitrary <*> arbitrary <*> arbitrary |
|
266 |
arbitrary <*> genMaybe genNodeNameNE <*> genMaybe genNodeNameNE <*> |
|
267 |
genMaybe genNameNE <*> pure emptyJSObject <*> arbitrary <*> |
|
268 |
arbitrary <*> arbitrary |
|
268 | 269 |
"OP_INSTANCE_GROW_DISK" -> |
269 | 270 |
OpCodes.OpInstanceGrowDisk <$> genFQDN <*> arbitrary <*> |
270 | 271 |
arbitrary <*> arbitrary <*> arbitrary |
Also available in: Unified diff