htools: Add missing parameter to OpInstanceMultiAlloc

Somehow this went missing in commit 1f1188c.

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

diff --git a/htest/Test/Ganeti/OpCodes.hs b/htest/Test/Ganeti/OpCodes.hs
index a1631e5..b9398ec 100644 (file)
--- a/htest/Test/Ganeti/OpCodes.hs
+++ b/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)

diff --git a/htools/Ganeti/OpCodes.hs b/htools/Ganeti/OpCodes.hs
index 03b6069..1e8f561 100644 (file)
--- a/htools/Ganeti/OpCodes.hs
+++ b/htools/Ganeti/OpCodes.hs
@@ -300,6 +300,7 @@ $(genOpCode "OpCode"
   , ("OpInstanceMultiAlloc",
      [ pIallocator
      , pMultiAllocInstances
+     , pOpportunisticLocking
      ])
   , ("OpInstanceReinstall",
      [ pInstanceName