public inbox for gentoo-commits@lists.gentoo.org
 help / color / mirror / Atom feed
From: "Sergei Trofimovich" <slyfox@gentoo.org>
To: gentoo-commits@lists.gentoo.org
Subject: [gentoo-commits] repo/gentoo:master commit in: dev-haskell/vector-algorithms/, dev-haskell/vector-algorithms/files/
Date: Sat,  1 Jul 2017 18:23:49 +0000 (UTC)	[thread overview]
Message-ID: <1498933425.f12a95172b8c2d017b7916972fdb7f9e2bd7ca65.slyfox@gentoo> (raw)

commit:     f12a95172b8c2d017b7916972fdb7f9e2bd7ca65
Author:     Sergei Trofimovich <slyfox <AT> gentoo <DOT> org>
AuthorDate: Sat Jul  1 18:23:07 2017 +0000
Commit:     Sergei Trofimovich <slyfox <AT> gentoo <DOT> org>
CommitDate: Sat Jul  1 18:23:45 2017 +0000
URL:        https://gitweb.gentoo.org/repo/gentoo.git/commit/?id=f12a9517

dev-haskell/vector-algorithms: fix test on ghc-8, bug #623326

Reported-by: Toralf Förster
Bug: https://bugs.gentoo.org/623326
Package-Manager: Portage-2.3.6, Repoman-2.3.2

 .../vector-algorithms-0.7.0.1-ghc-8.0.2_rc1.patch  | 44 ++++++++++++++++++++++
 .../vector-algorithms-0.7.0.1.ebuild               |  6 ++-
 2 files changed, 48 insertions(+), 2 deletions(-)

diff --git a/dev-haskell/vector-algorithms/files/vector-algorithms-0.7.0.1-ghc-8.0.2_rc1.patch b/dev-haskell/vector-algorithms/files/vector-algorithms-0.7.0.1-ghc-8.0.2_rc1.patch
new file mode 100644
index 00000000000..3616dd76d82
--- /dev/null
+++ b/dev-haskell/vector-algorithms/files/vector-algorithms-0.7.0.1-ghc-8.0.2_rc1.patch
@@ -0,0 +1,44 @@
+diff --git a/tests/properties/Tests.hs b/tests/properties/Tests.hs
+index a0b7d35..8fcfd36 100644
+--- a/tests/properties/Tests.hs
++++ b/tests/properties/Tests.hs
+@@ -1,2 +1,2 @@
+-{-# LANGUAGE ImpredicativeTypes, RankNTypes, TypeOperators, FlexibleContexts #-}
++{-# LANGUAGE ImpredicativeTypes, RankNTypes, TypeOperators, FlexibleContexts, ScopedTypeVariables #-}
+ 
+@@ -44,4 +44,4 @@ args = stdArgs
+ 
+-check_Int_sort = forM_ algos $ \(name,algo) ->
+-  quickCheckWith args (label name . prop_fullsort algo)
++check_Int_sort = forM_ algos (\(name,algo :: Algo Int ()) ->
++  quickCheckWith args (label name . prop_fullsort algo))
+  where
+@@ -55,4 +55,4 @@ check_Int_sort = forM_ algos $ \(name,algo) ->
+ 
+-check_Int_partialsort = forM_ algos $ \(name,algo) ->
+-  quickCheckWith args (label name . prop_partialsort algo)
++check_Int_partialsort = forM_ algos (\(name,algo :: SizeAlgo Int ()) ->
++  quickCheckWith args (label name . prop_partialsort algo))
+  where
+@@ -63,4 +63,4 @@ check_Int_partialsort = forM_ algos $ \(name,algo) ->
+ 
+-check_Int_select = forM_ algos $ \(name,algo) ->
+-  quickCheckWith args (label name . prop_select algo)
++check_Int_select = forM_ algos (\(name,algo :: SizeAlgo Int ()) ->
++  quickCheckWith args (label name . prop_select algo))
+  where
+@@ -119,10 +119,10 @@ check_permutation = do
+   qc $ label "introsort"    . prop_permutation (INT.sort :: Algo Int ())
+-  qc $ label "intropartial" . prop_sized (const . prop_permutation)
++  qc $ label "intropartial" . prop_sized (\x -> const (prop_permutation x))
+                                          (INT.partialSort :: SizeAlgo Int ())
+-  qc $ label "introselect"  . prop_sized (const . prop_permutation)
++  qc $ label "introselect"  . prop_sized (\x -> const (prop_permutation x))
+                                          (INT.select :: SizeAlgo Int ())
+   qc $ label "heapsort"     . prop_permutation (H.sort :: Algo Int ())
+-  qc $ label "heappartial"  . prop_sized (const . prop_permutation)
++  qc $ label "heappartial"  . prop_sized (\x -> const (prop_permutation x))
+                                          (H.partialSort :: SizeAlgo Int ())
+-  qc $ label "heapselect"   . prop_sized (const . prop_permutation)
++  qc $ label "heapselect"   . prop_sized (\x -> const (prop_permutation x))
+                                          (H.select :: SizeAlgo Int ())

diff --git a/dev-haskell/vector-algorithms/vector-algorithms-0.7.0.1.ebuild b/dev-haskell/vector-algorithms/vector-algorithms-0.7.0.1.ebuild
index aae9913a543..131da53ff67 100644
--- a/dev-haskell/vector-algorithms/vector-algorithms-0.7.0.1.ebuild
+++ b/dev-haskell/vector-algorithms/vector-algorithms-0.7.0.1.ebuild
@@ -1,7 +1,7 @@
-# Copyright 1999-2015 Gentoo Foundation
+# Copyright 1999-2017 Gentoo Foundation
 # Distributed under the terms of the GNU General Public License v2
 
-EAPI=5
+EAPI=6
 
 # ebuild generated by hackport 0.4.6.9999
 
@@ -28,6 +28,8 @@ DEPEND="${RDEPEND}
 	test? ( properties? ( >=dev-haskell/quickcheck-2 ) )
 "
 
+PATCHES=("${FILESDIR}"/${P}-ghc-8.0.2_rc1.patch)
+
 src_configure() {
 	haskell-cabal_src_configure \
 		$(cabal_flag bench bench) \


                 reply	other threads:[~2017-07-01 18:23 UTC|newest]

Thread overview: [no followups] expand[flat|nested]  mbox.gz  Atom feed

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=1498933425.f12a95172b8c2d017b7916972fdb7f9e2bd7ca65.slyfox@gentoo \
    --to=slyfox@gentoo.org \
    --cc=gentoo-commits@lists.gentoo.org \
    --cc=gentoo-dev@lists.gentoo.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox