Revision 1dbceab9 htest/Test/Ganeti/OpCodes.hs

b/htest/Test/Ganeti/OpCodes.hs
317 317 
        OpCodes.OpNetworkAdd <$> genNameNE <*> arbitrary <*> genIp4Net <*>
318 318 
          genMaybe genIp4Addr <*> pure Nothing <*> pure Nothing <*>
319 319 
          genMaybe genMacPrefix <*> genMaybe (listOf genIp4Addr) <*>
320 
          (genTags >>= mapM mkNonEmpty)
320 
          arbitrary <*> (genTags >>= mapM mkNonEmpty)
321 321 
      "OP_NETWORK_REMOVE" ->
322 322 
        OpCodes.OpNetworkRemove <$> genNameNE <*> arbitrary
323 323 
      "OP_NETWORK_SET_PARAMS" ->

Also available in: Unified diff