Flush the connectionRead buffer before throwing connectionClosed.

http-client/ChangeLog.md

@@ -1,5 +1,9 @@
 # Changelog for http-client
 
+## 0.7.20
+
+* Fix connectionRead in makeConnection to flush all stacks and throw connectionClosed afterwards.
+
 ## 0.7.19
 
 * Make mockable via `Network.HTTP.Client.Internal.requestAction` [#554](https://github.com/snoyberg/http-client/pull/554)

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

@@ -115,7 +115,10 @@ makeConnection r w c = do
     return $! Connection
         { connectionRead = do
             closed <- readIORef closedVar
-            when closed $ throwHttp ConnectionClosed
+            when closed $ do
+              v <- readIORef istack
+              -- When the stack is empty and the connection is closed, throw an exception.
+              when (v == []) $ throwHttp ConnectionClosed
             join $ atomicModifyIORef istack $ \stack ->
               case stack of
                   x:xs -> (xs, return x)

http-client/http-client.cabal

@@ -1,5 +1,5 @@
 name:                http-client
-version:             0.7.19
+version:             0.7.20
 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