diff options
author | 2020-08-14 23:59:58 +0100 | |
---|---|---|
committer | 2020-08-15 00:00:04 +0100 | |
commit | 2dc441dd028362e5463f8bdddabc73c73a46c388 (patch) | |
tree | 55e7d1a897152d1df344ae465160ad81d978d02d /dev-haskell/biocore/files | |
parent | app-text/ghostscript-gpl: do not install custom fontmaps anymore (diff) | |
download | gentoo-2dc441dd028362e5463f8bdddabc73c73a46c388.tar.gz gentoo-2dc441dd028362e5463f8bdddabc73c73a46c388.tar.bz2 gentoo-2dc441dd028362e5463f8bdddabc73c73a46c388.zip |
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@gentoo.org>
Diffstat (limited to 'dev-haskell/biocore/files')
-rw-r--r-- | dev-haskell/biocore/files/biocore-0.3.1-ghc84.patch | 28 |
1 files changed, 28 insertions, 0 deletions
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 000000000000..b0a404eb8b46 --- /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 |