diff options
author | V3n3RiX <venerix@koprulu.sector> | 2022-08-22 14:43:09 +0100 |
---|---|---|
committer | V3n3RiX <venerix@koprulu.sector> | 2022-08-22 14:43:09 +0100 |
commit | c0a9f2400f704c438b0cef4f4105e7bb6c3cbbff (patch) | |
tree | f03dacf9fcbf88186d23a1c68620015cca2a06b2 /dev-haskell/biocore/files/biocore-0.3.1-ghc84.patch | |
parent | 4c4bbf21230bd972cf759b2a40b782aa4149fc1f (diff) |
gentoo auto-resync : 22:08:2022 - 14:43:09
Diffstat (limited to 'dev-haskell/biocore/files/biocore-0.3.1-ghc84.patch')
-rw-r--r-- | dev-haskell/biocore/files/biocore-0.3.1-ghc84.patch | 28 |
1 files changed, 0 insertions, 28 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 deleted file mode 100644 index b0a404eb8b46..000000000000 --- a/dev-haskell/biocore/files/biocore-0.3.1-ghc84.patch +++ /dev/null @@ -1,28 +0,0 @@ ---- 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 |