Fix Haskell OpNetworkAdd

Commit 213076fe (“Fix locking in networks”) changed Python OpNetworkAdd
without corresponding Haskell definition changes.

Signed-off-by: Iustin Pop <iustin@google.com>
Reviewed-by: Guido Trotter <ultrotter@google.com>

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" ->

htools/Ganeti/OpCodes.hs

@@ -492,6 +492,7 @@ $(genOpCode "OpCode"
      , pNetworkGateway6
      , pNetworkMacPrefix
      , pNetworkAddRsvdIps
+     , pIpConflictsCheck
      , pInstTags
      ])
   , ("OpNetworkRemove",