htools: Add missing parameter to OpInstanceMultiAlloc

Somehow this went missing in commit 1f1188c3.

Signed-off-by: Michael Hanselmann <hansmi@google.com>
Reviewed-by: Michele Tartara <mtartara@google.com>

htest/Test/Ganeti/OpCodes.hs

@@ -219,7 +219,8 @@ instance Arbitrary OpCodes.OpCode where
           genMaybe genNodeNameNE <*> genMaybe genNameNE <*>
           arbitrary <*> arbitrary <*> (genTags >>= mapM mkNonEmpty)
       "OP_INSTANCE_MULTI_ALLOC" ->
-        OpCodes.OpInstanceMultiAlloc <$> genMaybe genNameNE <*> pure []
+        OpCodes.OpInstanceMultiAlloc <$> genMaybe genNameNE <*> pure [] <*>
+          arbitrary
       "OP_INSTANCE_REINSTALL" ->
         OpCodes.OpInstanceReinstall <$> genFQDN <*> arbitrary <*>
           genMaybe genNameNE <*> genMaybe (pure emptyJSObject)

htools/Ganeti/OpCodes.hs

@@ -300,6 +300,7 @@ $(genOpCode "OpCode"
   , ("OpInstanceMultiAlloc",
      [ pIallocator
      , pMultiAllocInstances
+     , pOpportunisticLocking
      ])
   , ("OpInstanceReinstall",
      [ pInstanceName