Signed-off-by: Klaus Aehlig <[email protected]>
---
test/hs/Test/Ganeti/Query/Instance.hs | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/test/hs/Test/Ganeti/Query/Instance.hs
b/test/hs/Test/Ganeti/Query/Instance.hs
index b2406c1..1609e04 100644
--- a/test/hs/Test/Ganeti/Query/Instance.hs
+++ b/test/hs/Test/Ganeti/Query/Instance.hs
@@ -54,7 +54,8 @@ createInstance name pnodeUuid adminState adminStateSource =
(GenericContainer Map.empty)
(PartialBeParams Nothing Nothing Nothing Nothing Nothing Nothing)
(GenericContainer Map.empty) (GenericContainer Map.empty)
- adminState adminStateSource [] [] DTDrbd8 False Nothing epochTime
epochTime "" 0 Set.empty
+ adminState adminStateSource [] [] DTDrbd8 False Nothing epochTime epochTime
+ "" 0 Set.empty
where epochTime = TOD 0 0
-- | A fake InstanceInfo to be used to check values.
--
1.9.1.423.g4596e3a