diff --git a/Network/HTTP/Conduit/Downloader.hs b/Network/HTTP/Conduit/Downloader.hs
--- a/Network/HTTP/Conduit/Downloader.hs
+++ b/Network/HTTP/Conduit/Downloader.hs
@@ -328,16 +328,13 @@
               case mbinp of
                   Just inp -> do
                       (acc', buf') <- liftIO $ addBs acc buf inp
---                      liftIO $ print (B.length inp)
                       let len' = len + B.length inp
                       if len' > limit then
                           return Nothing
                       else
                           go len' acc' buf'
                   Nothing -> do
---                      liftIO $ print ("len", length (buf:acc))
-                      let d = B.concat $ reverse (buf:acc)
-                      B.length d `seq` return $ Just d
+                      return $ Just $ B.concat $ reverse (buf:acc)
 
 makeDownloadResultC :: UTCTime -> String -> N.Status -> N.ResponseHeaders
                     -> B.ByteString -> DownloadResult
diff --git a/http-conduit-downloader.cabal b/http-conduit-downloader.cabal
--- a/http-conduit-downloader.cabal
+++ b/http-conduit-downloader.cabal
@@ -1,6 +1,6 @@
 cabal-version:  >= 1.6
 name:           http-conduit-downloader
-version:        1.0.8
+version:        1.0.9
 copyright:      Vladimir Shabanov 2013
 author:         Vladimir Shabanov <vshabanoff@gmail.com>
 maintainer:     Vladimir Shabanov <vshabanoff@gmail.com>