Revision 95c0c0bc test/hs/Test/Ganeti/OpCodes.hs

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

Also available in: Unified diff