diff --git a/src/Ganeti/OpCodes.hs b/src/Ganeti/OpCodes.hs index ec9a34f861dcfce17994105b0da65138c41fb2c4..cd5466379c533d21a5b7d104ad09c42ac6b8b8b0 100644 --- a/src/Ganeti/OpCodes.hs +++ b/src/Ganeti/OpCodes.hs @@ -535,7 +535,6 @@ $(genOpCode "OpCode" , ("OpNetworkDisconnect", [ pGroupName , pNetworkName - , pIpConflictsCheck ]) , ("OpNetworkQuery", dOldQuery) , ("OpRestrictedCommand", diff --git a/test/hs/Test/Ganeti/OpCodes.hs b/test/hs/Test/Ganeti/OpCodes.hs index cf345d19b0a7d2f33be82ebce3261963921d3eeb..cc45f663d0758b04cfcefa55b0424bdc6fd6ba2a 100644 --- a/test/hs/Test/Ganeti/OpCodes.hs +++ b/test/hs/Test/Ganeti/OpCodes.hs @@ -333,7 +333,7 @@ instance Arbitrary OpCodes.OpCode where OpCodes.OpNetworkConnect <$> genNameNE <*> genNameNE <*> arbitrary <*> genNameNE <*> arbitrary "OP_NETWORK_DISCONNECT" -> - OpCodes.OpNetworkDisconnect <$> genNameNE <*> genNameNE <*> arbitrary + OpCodes.OpNetworkDisconnect <$> genNameNE <*> genNameNE "OP_NETWORK_QUERY" -> OpCodes.OpNetworkQuery <$> genFieldsNE <*> genNamesNE <*> arbitrary "OP_RESTRICTED_COMMAND" ->