Commit 1dbceab9 authored by Iustin Pop's avatar Iustin Pop
Browse files

Fix Haskell OpNetworkAdd

Commit 213076fe

 (“Fix locking in networks”) changed Python OpNetworkAdd
without corresponding Haskell definition changes.
Signed-off-by: default avatarIustin Pop <iustin@google.com>
Reviewed-by: default avatarGuido Trotter <ultrotter@google.com>
parent 67fc4de7
...@@ -317,7 +317,7 @@ instance Arbitrary OpCodes.OpCode where ...@@ -317,7 +317,7 @@ instance Arbitrary OpCodes.OpCode where
OpCodes.OpNetworkAdd <$> genNameNE <*> arbitrary <*> genIp4Net <*> OpCodes.OpNetworkAdd <$> genNameNE <*> arbitrary <*> genIp4Net <*>
genMaybe genIp4Addr <*> pure Nothing <*> pure Nothing <*> genMaybe genIp4Addr <*> pure Nothing <*> pure Nothing <*>
genMaybe genMacPrefix <*> genMaybe (listOf genIp4Addr) <*> genMaybe genMacPrefix <*> genMaybe (listOf genIp4Addr) <*>
(genTags >>= mapM mkNonEmpty) arbitrary <*> (genTags >>= mapM mkNonEmpty)
"OP_NETWORK_REMOVE" -> "OP_NETWORK_REMOVE" ->
OpCodes.OpNetworkRemove <$> genNameNE <*> arbitrary OpCodes.OpNetworkRemove <$> genNameNE <*> arbitrary
"OP_NETWORK_SET_PARAMS" -> "OP_NETWORK_SET_PARAMS" ->
......
...@@ -492,6 +492,7 @@ $(genOpCode "OpCode" ...@@ -492,6 +492,7 @@ $(genOpCode "OpCode"
, pNetworkGateway6 , pNetworkGateway6
, pNetworkMacPrefix , pNetworkMacPrefix
, pNetworkAddRsvdIps , pNetworkAddRsvdIps
, pIpConflictsCheck
, pInstTags , pInstTags
]) ])
, ("OpNetworkRemove", , ("OpNetworkRemove",
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment