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
OpCodes.OpNetworkAdd <$> genNameNE <*> arbitrary <*> genIp4Net <*>
genMaybe genIp4Addr <*> pure Nothing <*> pure Nothing <*>
genMaybe genMacPrefix <*> genMaybe (listOf genIp4Addr) <*>
(genTags >>= mapM mkNonEmpty)
arbitrary <*> (genTags >>= mapM mkNonEmpty)
"OP_NETWORK_REMOVE" ->
OpCodes.OpNetworkRemove <$> genNameNE <*> arbitrary
"OP_NETWORK_SET_PARAMS" ->
......
......@@ -492,6 +492,7 @@ $(genOpCode "OpCode"
, pNetworkGateway6
, pNetworkMacPrefix
, pNetworkAddRsvdIps
, pIpConflictsCheck
, pInstTags
])
, ("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