diff --git a/htest/Test/Ganeti/OpCodes.hs b/htest/Test/Ganeti/OpCodes.hs index a0ce5d85cc72f4fe29236f6ba42b6d5371d4bc90..46f35b1f637212a0fec552817d9d6c60c5090217 100644 --- a/htest/Test/Ganeti/OpCodes.hs +++ b/htest/Test/Ganeti/OpCodes.hs @@ -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" -> diff --git a/htools/Ganeti/OpCodes.hs b/htools/Ganeti/OpCodes.hs index 51fa1b9878effb07d44d3f8b07f91465492f4cd8..520662c62e181a02ead06d96c32bc1cec9fc4bf0 100644 --- a/htools/Ganeti/OpCodes.hs +++ b/htools/Ganeti/OpCodes.hs @@ -492,6 +492,7 @@ $(genOpCode "OpCode" , pNetworkGateway6 , pNetworkMacPrefix , pNetworkAddRsvdIps + , pIpConflictsCheck , pInstTags ]) , ("OpNetworkRemove",