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
@@ -346,7 +346,16 @@
         let dl req firstTime = do
                 r <- (timeout (dsTimeout settings * 1000000) $ C.runResourceT $ do
                     r <- C.http req manager
-                    let h = C.responseHeaders r
+                    let c = C.responseStatus r
+                        h = C.responseHeaders r
+                        rdr d =
+                            RawDownloadResult
+                            { rdrStatus = c
+                            , rdrHttpVersion = C.responseVersion r
+                            , rdrHeaders = h
+                            , rdrBody = d
+                            , rdrCookieJar = C.responseCookieJar r
+                            }
                         readLen = B.foldl' (\ r d -> r * 10 + ord d - ord '0') 0
                     mbb <- case lookup "Content-Length" h of
                         Just l
@@ -363,19 +372,13 @@
 --                    liftIO $ print ("sink", mbb)
                     case mbb of
                         Just b -> do
-                            let c = C.responseStatus r
-                                d = tryDeflate h b
+                            let d = tryDeflate h b
                             curTime <- liftIO $ getCurrentTime
                             return
                                 (makeDownloadResultC curTime url c h d
-                                , Just $ RawDownloadResult
-                                  { rdrStatus = c
-                                  , rdrHttpVersion = C.responseVersion r
-                                  , rdrHeaders = h
-                                  , rdrBody = d
-                                  , rdrCookieJar = C.responseCookieJar r
-                                  })
-                        Nothing -> return (DRError "Too much data", Nothing))
+                                , Just $ rdr d)
+                        Nothing ->
+                            return (DRError "Too much data", Just $ rdr ""))
                   `E.catch`
                     (fmap (Just . (, Nothing)) . httpExceptionToDR url)
 --                   `E.catch`
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.32
+version:        1.0.33
 author:         Vladimir Shabanov <vshabanoff@gmail.com>
 maintainer:     Vladimir Shabanov <vshabanoff@gmail.com>
 homepage:       https://github.com/bazqux/http-conduit-downloader