From e3ae9508f724d65fe13190f535892e72faf2cefa Mon Sep 17 00:00:00 2001
From: Iustin Pop <iustin@google.com>
Date: Thu, 7 Oct 2010 14:42:46 +0200
Subject: [PATCH] Fix some warnings in unittests
---
Ganeti/HTools/QC.hs | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/Ganeti/HTools/QC.hs b/Ganeti/HTools/QC.hs
index 5f3b0a86b..b7a030f14 100644
--- a/Ganeti/HTools/QC.hs
+++ b/Ganeti/HTools/QC.hs
@@ -643,8 +643,8 @@ prop_ClusterCanTieredAlloc node inst =
il = Container.empty
in case Cluster.tieredAlloc nl il inst rqnodes [] of
Types.Bad _ -> False
- Types.Ok (_, _, il, ixes) -> not (null ixes) &&
- IntMap.size il == length ixes
+ Types.Ok (_, _, il', ixes) -> not (null ixes) &&
+ IntMap.size il' == length ixes
-- | Checks that on a 4-8 node cluster, once we allocate an instance,
-- we can also evacuate it
@@ -687,7 +687,7 @@ prop_ClusterAllocBalance node =
i_templ = createInstance Types.unitMem Types.unitDsk Types.unitCpu
in case Cluster.iterateAlloc nl' il i_templ rqnodes [] of
Types.Bad _ -> False
- Types.Ok (_, xnl, il', insts) ->
+ Types.Ok (_, xnl, il', _) ->
let ynl = Container.add (Node.idx hnode) hnode xnl
cv = Cluster.compCV ynl
tbl = Cluster.Table ynl il' cv []
--
GitLab