commit:     2dc441dd028362e5463f8bdddabc73c73a46c388
Author:     Sergei Trofimovich <slyfox <AT> gentoo <DOT> org>
AuthorDate: Fri Aug 14 22:59:58 2020 +0000
Commit:     Sergei Trofimovich <slyfox <AT> gentoo <DOT> org>
CommitDate: Fri Aug 14 23:00:04 2020 +0000
URL:        https://gitweb.gentoo.org/repo/gentoo.git/commit/?id=2dc441dd

dev-haskell/biocore: tweak for ghc-8.8

Reported-by: Agostino Sarubbo
Closes: https://bugs.gentoo.org/735860
Package-Manager: Portage-3.0.2, Repoman-2.3.23
Signed-off-by: Sergei Trofimovich <slyfox <AT> gentoo.org>

 dev-haskell/biocore/biocore-0.3.1.ebuild           |  8 +++++--
 .../biocore/files/biocore-0.3.1-ghc84.patch        | 28 ++++++++++++++++++++++
 2 files changed, 34 insertions(+), 2 deletions(-)

diff --git a/dev-haskell/biocore/biocore-0.3.1.ebuild 
b/dev-haskell/biocore/biocore-0.3.1.ebuild
index a03f1244d73..54d16dfe8cd 100644
--- a/dev-haskell/biocore/biocore-0.3.1.ebuild
+++ b/dev-haskell/biocore/biocore-0.3.1.ebuild
@@ -1,7 +1,7 @@
 # Copyright 1999-2020 Gentoo Authors
 # Distributed under the terms of the GNU General Public License v2
 
-EAPI=5
+EAPI=6
 
 # ebuild generated by hackport 0.3.3.9999
 
@@ -9,7 +9,7 @@ CABAL_FEATURES="lib profile haddock hoogle hscolour"
 inherit haskell-cabal
 
 DESCRIPTION="A bioinformatics library"
-HOMEPAGE="https://hackage.haskell.org/package/biocore";
+HOMEPAGE="http://hackage.haskell.org/package/biocore";
 SRC_URI="https://hackage.haskell.org/package/${P}/${P}.tar.gz";
 
 LICENSE="LGPL-2.1"
@@ -23,3 +23,7 @@ RDEPEND="dev-haskell/stringable:=[profile?]
 DEPEND="${RDEPEND}
        >=dev-haskell/cabal-1.6.0.3
 "
+
+PATCHES=(
+       "${FILESDIR}"/${P}-ghc84.patch
+)

diff --git a/dev-haskell/biocore/files/biocore-0.3.1-ghc84.patch 
b/dev-haskell/biocore/files/biocore-0.3.1-ghc84.patch
new file mode 100644
index 00000000000..b0a404eb8b4
--- /dev/null
+++ b/dev-haskell/biocore/files/biocore-0.3.1-ghc84.patch
@@ -0,0 +1,28 @@
+--- a/src/Bio/Core/Sequence.hs
++++ b/src/Bio/Core/Sequence.hs
+@@ -37,2 +37,3 @@ import Data.Stringable hiding (length)
+ import Data.Monoid
++import qualified Data.Semigroup as S
+ 
+@@ -42,2 +43,5 @@ newtype SeqData  = SeqData { unSD :: LC.ByteString }
+ 
++instance S.Semigroup SeqData where
++  (<>) (SeqData s1) (SeqData s2) = SeqData (mappend s1 s2)
++
+ instance Monoid SeqData where
+@@ -51,2 +55,9 @@ newtype SeqLabel = SeqLabel { unSL :: LC.ByteString }
+ 
++instance S.Semigroup SeqLabel where
++  (<>) (SeqLabel s1) (SeqLabel s2) = let
++    (i1:r1) = LC.words s1
++    (i2:r2) = LC.words s2
++    sid = mconcat [i1,(LC.pack ":"),i2]
++    in SeqLabel (LC.unwords ([sid]++r1++[LC.pack ":"]++r2))
++
+ instance Monoid SeqLabel where
+@@ -68,2 +79,5 @@ newtype QualData = QualData { unQD :: L.ByteString }
+ 
++instance S.Semigroup QualData where
++  (<>) (QualData s1) (QualData s2) = QualData (mappend s1 s2)
++
+ instance Monoid QualData where

Reply via email to