fasta 0.6.1.0 → 0.6.1.1

raw patch · 3 files changed

+9/−9 lines, 3 filesdep ~basePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: base

API changes (from Hackage documentation)

Files

• fasta.cabal +1/−1
• src/Data/Fasta/Text/Lazy/Parse.hs +4/−4
• src/Data/Fasta/Text/Parse.hs +4/−4

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

@@ -30,7 +30,7 @@ import qualified Pipes.Text as PT import qualified Pipes.Group as PG import Control.Lens (view)-import Control.Foldl (purely, mconcat)+import qualified Control.Foldl as FL  -- Local import Data.Fasta.Text.Lazy.Types@@ -97,9 +97,9 @@ pipesFasta :: (MonadIO m)            => Producer ST.Text m ()            -> Producer FastaSequence m ()-pipesFasta p = purely PG.folds mconcat ( view (PT.splits '>')-                                       . PT.drop (1 :: Int)-                                       $ p )+pipesFasta p = FL.purely PG.folds FL.mconcat ( view (PT.splits '>')+                                             . PT.drop (1 :: Int)+                                             $ p )            >-> P.map toFasta   where     toFasta x = FastaSequence { fastaHeader = T.fromChunks

@@ -28,7 +28,7 @@ import qualified Pipes.Text as PT import qualified Pipes.Group as PG import Control.Lens (view)-import Control.Foldl (purely, mconcat)+import qualified Control.Foldl as FL  -- Local import Data.Fasta.Text.Types@@ -93,9 +93,9 @@ -- the highly recommeded way of parsing, as it is computationally fast and -- uses memory based on line length pipesFasta :: (MonadIO m) => Producer T.Text m () -> Producer FastaSequence m ()-pipesFasta p = purely PG.folds mconcat ( view (PT.splits '>')-                                       . PT.drop (1 :: Int)-                                       $ p )+pipesFasta p = FL.purely PG.folds FL.mconcat ( view (PT.splits '>')+                                             . PT.drop (1 :: Int)+                                             $ p )            >-> P.map toFasta   where     toFasta x = FastaSequence { fastaHeader = head . T.lines $ x