From c298ed02b1866c137c9f948cba2d13ee75415b55 Mon Sep 17 00:00:00 2001
From: Michael Hanselmann <hansmi@google.com>
Date: Fri, 7 Dec 2012 14:17:44 +0100
Subject: [PATCH] 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>
---
htest/Test/Ganeti/OpCodes.hs | 3 ++-
htools/Ganeti/OpCodes.hs | 1 +
2 files changed, 3 insertions(+), 1 deletion(-)
diff --git a/htest/Test/Ganeti/OpCodes.hs b/htest/Test/Ganeti/OpCodes.hs
index a1631e58d..b9398ecc1 100644
--- 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 03b606997..1e8f56126 100644
--- a/htools/Ganeti/OpCodes.hs
+++ b/htools/Ganeti/OpCodes.hs
@@ -300,6 +300,7 @@ $(genOpCode "OpCode"
, ("OpInstanceMultiAlloc",
[ pIallocator
, pMultiAllocInstances
+ , pOpportunisticLocking
])
, ("OpInstanceReinstall",
[ pInstanceName
--
GitLab