app-emulation/ganeti-htools/files/ganeti-htools-0.3.1-containers.patch


1
2
3
4
5
6
7
8
9

diff --git a/Ganeti/HTools/QC.hs b/Ganeti/HTools/QC.hs
index 534a7b1..6f99a96 100644
--- a/Ganeti/HTools/QC.hs
+++ b/Ganeti/HTools/QC.hs
@@ -753,3 +753,3 @@ prop_ClusterAllocBalance node =
     let nl = makeSmallCluster node count
-        (hnode, nl') = IntMap.deleteFindMax nl
+        ((_k, hnode), nl') = IntMap.deleteFindMax nl
         il = Container.empty