Revision 7002d873 test/hs/Test/Ganeti/OpCodes.hs

b/test/hs/Test/Ganeti/OpCodes.hs
276 276 
          pure emptyJSObject <*> arbitrary <*> genMaybe genNodeNameNE <*>
277 277 
          return Nothing <*> genMaybe genNodeNameNE <*> return Nothing <*>
278 278 
          genMaybe genNameNE <*> pure emptyJSObject <*> arbitrary <*>
279 
          arbitrary <*> arbitrary
279 
          arbitrary <*> arbitrary <*> arbitrary
280 280 
      "OP_INSTANCE_GROW_DISK" ->
281 281 
        OpCodes.OpInstanceGrowDisk <$> genFQDN <*> return Nothing <*>
282 282 
          arbitrary <*> arbitrary <*> arbitrary <*> arbitrary

Also available in: Unified diff