summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMichaelSnoyman <>2014-10-05 11:44:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2014-10-05 11:44:00 (GMT)
commit889bcb07586e492579f9b1eb463dfe8386117105 (patch)
tree1b76b79b470a9e4ee60fa266884cd5a46513ff73
parentc985a0009e6f3cdc08c65f9d304b09675d299625 (diff)
version 2.1.4.52.1.4.5
-rw-r--r--Network/HTTP/Conduit.hs6
-rw-r--r--http-conduit.cabal2
2 files changed, 4 insertions, 4 deletions
diff --git a/Network/HTTP/Conduit.hs b/Network/HTTP/Conduit.hs
index f624dca..9719687 100644
--- a/Network/HTTP/Conduit.hs
+++ b/Network/HTTP/Conduit.hs
@@ -202,7 +202,7 @@ module Network.HTTP.Conduit
import qualified Data.ByteString as S
import qualified Data.ByteString.Lazy as L
-import Data.Conduit (ResumableSource, ($$+-), await, ($$++), ($$+), Source)
+import Data.Conduit (ResumableSource, ($$+-), await, ($$++), ($$+), Source, addCleanup)
import qualified Data.Conduit.Internal as CI
import qualified Data.Conduit.List as CL
import Data.IORef (readIORef, writeIORef, newIORef)
@@ -308,11 +308,11 @@ http req man = do
(key, res) <- allocate (Client.responseOpen req man) Client.responseClose
#if MIN_VERSION_conduit(1, 2, 0)
let rsrc = CI.ResumableSource
- (flip CI.unConduitM CI.Done $ HCC.bodyReaderSource $ responseBody res)
+ (flip CI.unConduitM CI.Done $ addCleanup (const $ release key) $ HCC.bodyReaderSource $ responseBody res)
(release key)
#else
let rsrc = CI.ResumableSource
- (HCC.bodyReaderSource $ responseBody res)
+ (addCleanup (const $ release key) $ HCC.bodyReaderSource $ responseBody res)
(release key)
#endif
return res { responseBody = rsrc }
diff --git a/http-conduit.cabal b/http-conduit.cabal
index 8486dfe..c784692 100644
--- a/http-conduit.cabal
+++ b/http-conduit.cabal
@@ -1,5 +1,5 @@
name: http-conduit
-version: 2.1.4.4
+version: 2.1.4.5
license: BSD3
license-file: LICENSE
author: Michael Snoyman <michael@snoyman.com>