diff --git a/fasta.cabal b/fasta.cabal
--- a/fasta.cabal
+++ b/fasta.cabal
@@ -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.
diff --git a/src/Data/Fasta/Text/Lazy/Parse.hs b/src/Data/Fasta/Text/Lazy/Parse.hs
--- a/src/Data/Fasta/Text/Lazy/Parse.hs
+++ b/src/Data/Fasta/Text/Lazy/Parse.hs
@@ -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
diff --git a/src/Data/Fasta/Text/Parse.hs b/src/Data/Fasta/Text/Parse.hs
--- a/src/Data/Fasta/Text/Parse.hs
+++ b/src/Data/Fasta/Text/Parse.hs
@@ -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