fasta 0.6.2.0 → 0.7.0.0

raw patch · 6 files changed

+6/−17 lines, 6 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

fasta.cabal +1/−1
src/Data/Fasta/ByteString/Lazy/Parse.hs +1/−3
src/Data/Fasta/ByteString/Parse.hs +1/−4
src/Data/Fasta/String/Parse.hs +1/−2
src/Data/Fasta/Text/Lazy/Parse.hs +1/−3
src/Data/Fasta/Text/Parse.hs +1/−4

fasta.cabal view

@@ -10,7 +10,7 @@ -- PVP summary:      +-+------- breaking API changes --                   | | +----- non-breaking API additions --                   | | | +--- code changes with no API change-version:             0.6.2.0+version:             0.7.0.0  -- A short (one-line) description of the package. synopsis:            A simple, mindless parser for fasta files.

src/Data/Fasta/ByteString/Lazy/Parse.hs view

@@ -49,9 +49,7 @@     header <- manyTill (satisfy (/= '>')) eol     fseq <- manyTill anyChar eoe     return (FastaSequence { fastaHeader = B.pack header-                          , fastaSeq = B.pack-                                     . map toUpper-                                     . removeWhitespace $ fseq } )+                          , fastaSeq    = B.pack . removeWhitespace $ fseq } )   where     removeWhitespace = filter (`notElem` ("\n\r " :: String))

src/Data/Fasta/ByteString/Parse.hs view

@@ -46,10 +46,7 @@     header <- manyTill (satisfy (/= '>')) eol     fseq <- manyTill anyChar eoe     return (FastaSequence { fastaHeader = B.pack header-                          , fastaSeq = B.pack-                                     . map toUpper-                                     . removeWhitespace-                                     $ fseq } )+                          , fastaSeq = B.pack . removeWhitespace $ fseq } )   where     removeWhitespace = filter (`notElem` ("\n\r " :: String))

src/Data/Fasta/String/Parse.hs view

@@ -42,8 +42,7 @@     header <- manyTill (satisfy (/= '>')) eol     fseq <- manyTill anyChar eoe     return ( FastaSequence { fastaHeader = header-                           , fastaSeq    = map toUpper-                                         $ removeWhitespace fseq } )+                           , fastaSeq    = removeWhitespace fseq } )   where     removeWhitespace = filter (`notElem` "\n\r ")

src/Data/Fasta/Text/Lazy/Parse.hs view

@@ -49,9 +49,7 @@     header <- manyTill (satisfy (/= '>')) eol     fseq <- manyTill anyChar eoe     return (FastaSequence { fastaHeader = T.pack header-                          , fastaSeq = T.pack-                                     . map toUpper-                                     . removeWhitespace $ fseq } )+                          , fastaSeq = T.pack . removeWhitespace $ fseq } )   where     removeWhitespace = filter (`notElem` ("\n\r " :: String))

src/Data/Fasta/Text/Parse.hs view

@@ -46,10 +46,7 @@     header <- manyTill (satisfy (/= '>')) eol     fseq <- manyTill anyChar eoe     return (FastaSequence { fastaHeader = T.pack header-                          , fastaSeq = T.pack-                                     . map toUpper-                                     . removeWhitespace-                                     $ fseq } )+                          , fastaSeq = T.pack . removeWhitespace $ fseq } )   where     removeWhitespace = filter (`notElem` ("\n\r " :: String))