commit: d4ec38dbe639f0a389e0c14eb03bfa55f549e26b
Author: Sergei Trofimovich <slyfox <AT> gentoo <DOT> org>
AuthorDate: Sun May 15 13:49:00 2016 +0000
Commit: Sergei Trofimovich <slyfox <AT> gentoo <DOT> org>
CommitDate: Sun May 15 13:49:11 2016 +0000
URL: https://gitweb.gentoo.org/repo/gentoo.git/commit/?id=d4ec38db
app-emulation/ganeti-htools: fix testsuite against ghc-7.10
Package-Manager: portage-2.2.28
.../ganeti-htools/files/ganeti-htools-0.3.1-containers.patch | 9 +++++++++
app-emulation/ganeti-htools/ganeti-htools-0.3.1.ebuild | 1 +
2 files changed, 10 insertions(+)
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
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 68482c2..2f51b83 100644
--- 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() {
