Revision bb63ccb0

b/src/Ganeti/OpCodes.hs
533 533 
  , ("OpNetworkDisconnect",
534 534 
     [ pGroupName
535 535 
     , pNetworkName
536 
     , pIpConflictsCheck
537 536 
     ])
538 537 
  , ("OpNetworkQuery", dOldQuery)
539 538 
  , ("OpRestrictedCommand",
b/test/hs/Test/Ganeti/OpCodes.hs
333 333 
        OpCodes.OpNetworkConnect <$> genNameNE <*> genNameNE <*>
334 334 
          arbitrary <*> genNameNE <*> arbitrary
335 335 
      "OP_NETWORK_DISCONNECT" ->
336 
        OpCodes.OpNetworkDisconnect <$> genNameNE <*> genNameNE <*> arbitrary
336 
        OpCodes.OpNetworkDisconnect <$> genNameNE <*> genNameNE
337 337 
      "OP_NETWORK_QUERY" ->
338 338 
        OpCodes.OpNetworkQuery <$> genFieldsNE <*> genNamesNE <*> arbitrary
339 339 
      "OP_RESTRICTED_COMMAND" ->

Also available in: Unified diff