Revision 5cfa6c37 test/hs/Test/Ganeti/OpCodes.hs

b/test/hs/Test/Ganeti/OpCodes.hs
318 318 
        OpCodes.OpTestDummy <$> pure J.JSNull <*> pure J.JSNull <*>
319 319 
          pure J.JSNull <*> pure J.JSNull
320 320 
      "OP_NETWORK_ADD" ->
321 
        OpCodes.OpNetworkAdd <$> genNameNE <*> arbitrary <*> genIp4Net <*>
321 
        OpCodes.OpNetworkAdd <$> genNameNE <*> genIp4Net <*>
322 322 
          genMaybe genIp4Addr <*> pure Nothing <*> pure Nothing <*>
323 323 
          genMaybe genMacPrefix <*> genMaybe (listOf genIp4Addr) <*>
324 324 
          arbitrary <*> (genTags >>= mapM mkNonEmpty)
325 325 
      "OP_NETWORK_REMOVE" ->
326 326 
        OpCodes.OpNetworkRemove <$> genNameNE <*> arbitrary
327 327 
      "OP_NETWORK_SET_PARAMS" ->
328 
        OpCodes.OpNetworkSetParams <$> genNameNE <*> arbitrary <*>
328 
        OpCodes.OpNetworkSetParams <$> genNameNE <*>
329 329 
          genMaybe genIp4Addr <*> pure Nothing <*> pure Nothing <*>
330 330 
          genMaybe genMacPrefix <*> genMaybe (listOf genIp4Addr) <*>
331 331 
          genMaybe (listOf genIp4Addr)

Also available in: Unified diff