Add low level createConnection/disposeConnection

http-client/ChangeLog.md

@@ -1,5 +1,9 @@
 # Changelog for http-client
 
+## 0.7.17
+
+* Expose low-level createConnection/disposeConnection functions.
+
 ## 0.7.16
 
 * Add `responseEarlyHints` field to `Response`, containing a list of all HTTP 103 Early Hints headers received from the server.

http-client/Network/HTTP/Client/Core.hs

@@ -12,6 +12,8 @@ module Network.HTTP.Client.Core
     , httpRedirect
     , httpRedirect'
     , withConnection
+    , createConnection
+    , disposeConnection
     , handleClosedRead
     ) where
 
@@ -298,3 +300,19 @@ withConnection origReq man action = do
     mHttpConn <- getConn (mSetProxy man origReq) man
     action (managedResource mHttpConn) <* keepAlive mHttpConn
         `finally` managedRelease mHttpConn DontReuse
+
+-- | Create a @Connection@ acquired from the given @Manager@.
+--
+-- You should use this only when you have to read and write interactively
+-- through the connection (e.g. connection by the WebSocket protocol), and you need
+-- to use a bracket-style combinator and @disposeConnection@
+--
+-- @since 0.7.17
+createConnection :: Request -> Manager -> IO (Managed Connection, Connection, IO ())
+createConnection origReq man = do
+  mHttpConn <- getConn (mSetProxy man origReq) man
+  return (mHttpConn, managedResource mHttpConn, keepAlive mHttpConn)
+
+-- | Dispose of a @Connection@ acquired from @createConnection@.
+disposeConnection :: Managed Connection -> IO ()
+disposeConnection = flip managedRelease DontReuse

http-client/http-client.cabal

@@ -1,5 +1,5 @@
 name:                http-client
-version:             0.7.16
+version:             0.7.17
 synopsis:            An HTTP client engine
 description:         Hackage documentation generation is not reliable. For up to date documentation, please see: <http://www.stackage.org/package/http-client>.
 homepage:            https://github.com/snoyberg/http-client