Revision 38d18416

b/test/hs/Test/Ganeti/OpCodes.hs
202 202
        OpCodes.OpNodeAdd <$> genNodeNameNE <*> emptyMUD <*> emptyMUD <*>
203 203
          genMaybe genNameNE <*> genMaybe genNameNE <*> arbitrary <*>
204 204
          genMaybe genNameNE <*> arbitrary <*> arbitrary <*> emptyMUD
205
      "OP_NODE_QUERY" ->
206
        OpCodes.OpNodeQuery <$> genFieldsNE <*> genNamesNE <*> arbitrary
207 205
      "OP_NODE_QUERYVOLS" ->
208 206
        OpCodes.OpNodeQueryvols <$> arbitrary <*> genNodeNamesNE
209 207
      "OP_NODE_QUERY_STORAGE" ->
......
281 279
        OpCodes.OpInstanceRecreateDisks <$> genFQDN <*> return Nothing <*>
282 280
          arbitrary <*> genNodeNamesNE <*> return Nothing <*>
283 281
          genMaybe genNameNE
284
      "OP_INSTANCE_QUERY" ->
285
        OpCodes.OpInstanceQuery <$> genFieldsNE <*> arbitrary <*> genNamesNE
286 282
      "OP_INSTANCE_QUERY_DATA" ->
287 283
        OpCodes.OpInstanceQueryData <$> arbitrary <*>
288 284
          genNodeNamesNE <*> arbitrary
......
308 304
      "OP_GROUP_ASSIGN_NODES" ->
309 305
        OpCodes.OpGroupAssignNodes <$> genNameNE <*> arbitrary <*>
310 306
          genNodeNamesNE <*> return Nothing
311
      "OP_GROUP_QUERY" ->
312
        OpCodes.OpGroupQuery <$> genFieldsNE <*> genNamesNE
313 307
      "OP_GROUP_SET_PARAMS" ->
314 308
        OpCodes.OpGroupSetParams <$> genNameNE <*> arbitrary <*>
315 309
          emptyMUD <*> genMaybe genEmptyContainer <*>
......
325 319
        OpCodes.OpOsDiagnose <$> genFieldsNE <*> genNamesNE
326 320
      "OP_EXT_STORAGE_DIAGNOSE" ->
327 321
        OpCodes.OpOsDiagnose <$> genFieldsNE <*> genNamesNE
328
      "OP_BACKUP_QUERY" ->
329
        OpCodes.OpBackupQuery <$> arbitrary <*> genNodeNamesNE
330 322
      "OP_BACKUP_PREPARE" ->
331 323
        OpCodes.OpBackupPrepare <$> genFQDN <*> return Nothing <*> arbitrary
332 324
      "OP_BACKUP_EXPORT" ->
......
367 359
          arbitrary <*> genNameNE <*> arbitrary
368 360
      "OP_NETWORK_DISCONNECT" ->
369 361
        OpCodes.OpNetworkDisconnect <$> genNameNE <*> genNameNE
370
      "OP_NETWORK_QUERY" ->
371
        OpCodes.OpNetworkQuery <$> genFieldsNE <*> arbitrary <*> genNamesNE
372 362
      "OP_RESTRICTED_COMMAND" ->
373 363
        OpCodes.OpRestrictedCommand <$> arbitrary <*> genNodeNamesNE <*>
374 364
          return Nothing <*> genNameNE

Also available in: Unified diff