app-emulation/ganeti-htools: fix testsuite against ghc-7.10

Package-Manager: portage-2.2.28

diff --git a/app-emulation/ganeti-htools/files/ganeti-htools-0.3.1-containers.patch b/app-emulation/ganeti-htools/files/ganeti-htools-0.3.1-containers.patch
new file mode 100644 (file)
index 0000000..2305aa5
--- /dev/null
+++ b/app-emulation/ganeti-htools/files/ganeti-htools-0.3.1-containers.patch
@@ -0,0 +1,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

diff --git a/app-emulation/ganeti-htools/ganeti-htools-0.3.1.ebuild b/app-emulation/ganeti-htools/ganeti-htools-0.3.1.ebuild
index 68482c2ee89cab37877e61879610a56e0c3b8d73..2f51b83ff78088e2e15d61df6aaa422dead6628c 100644 (file)
--- a/app-emulation/ganeti-htools/ganeti-htools-0.3.1.ebuild
+++ b/app-emulation/ganeti-htools/ganeti-htools-0.3.1.ebuild
@@ -34,6 +34,7 @@ src_prepare() {
        epatch "${FILESDIR}"/${PN}-0.2.8-use-QC-1.patch #316629
        epatch "${FILESDIR}"/${PN}-0.3.1-base-4.patch #424299
        epatch "${FILESDIR}"/${PN}-0.3.1-ghc-7.10.patch
+       epatch "${FILESDIR}"/${PN}-0.3.1-containers.patch
 }
 
 src_compile() {