Script 'mail_helper' called by obssrc
Hello community,

here is the log from the commit of package ghc-http-client for openSUSE:Factory 
checked in at 2021-02-16 22:38:26
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/ghc-http-client (Old)
 and      /work/SRC/openSUSE:Factory/.ghc-http-client.new.28504 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "ghc-http-client"

Tue Feb 16 22:38:26 2021 rev:41 rq:870865 version:0.7.5

Changes:
--------
--- /work/SRC/openSUSE:Factory/ghc-http-client/ghc-http-client.changes  
2021-01-20 18:26:24.115459439 +0100
+++ 
/work/SRC/openSUSE:Factory/.ghc-http-client.new.28504/ghc-http-client.changes   
    2021-02-16 22:48:23.590554251 +0100
@@ -1,0 +2,8 @@
+Fri Feb  5 15:47:40 UTC 2021 - psim...@suse.com
+
+- Update http-client to version 0.7.5.
+  ## 0.7.5
+
+  * Force closing connections in case of exceptions throwing 
[#454](https://github.com/snoyberg/http-client/pull/454).
+
+-------------------------------------------------------------------

Old:
----
  http-client-0.7.4.tar.gz

New:
----
  http-client-0.7.5.tar.gz

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ ghc-http-client.spec ++++++
--- /var/tmp/diff_new_pack.S4WyG2/_old  2021-02-16 22:48:24.430554907 +0100
+++ /var/tmp/diff_new_pack.S4WyG2/_new  2021-02-16 22:48:24.434554911 +0100
@@ -19,7 +19,7 @@
 %global pkg_name http-client
 %bcond_with tests
 Name:           ghc-%{pkg_name}
-Version:        0.7.4
+Version:        0.7.5
 Release:        0
 Summary:        An HTTP client engine
 License:        MIT

++++++ http-client-0.7.4.tar.gz -> http-client-0.7.5.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/http-client-0.7.4/ChangeLog.md 
new/http-client-0.7.5/ChangeLog.md
--- old/http-client-0.7.4/ChangeLog.md  2021-01-13 05:15:41.000000000 +0100
+++ new/http-client-0.7.5/ChangeLog.md  2021-02-04 19:03:48.000000000 +0100
@@ -1,5 +1,9 @@
 # Changelog for http-client
 
+## 0.7.5
+
+* Force closing connections in case of exceptions throwing 
[#454](https://github.com/snoyberg/http-client/pull/454).
+
 ## 0.7.4
 
 * Depend on base64-bytestring instead of memory 
[#453](https://github.com/snoyberg/http-client/pull/453)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/http-client-0.7.4/Network/HTTP/Client/Core.hs 
new/http-client-0.7.5/Network/HTTP/Client/Core.hs
--- old/http-client-0.7.4/Network/HTTP/Client/Core.hs   2021-01-13 
05:15:41.000000000 +0100
+++ new/http-client-0.7.5/Network/HTTP/Client/Core.hs   2021-02-04 
19:03:48.000000000 +0100
@@ -111,7 +111,11 @@
             managedRelease mconn DontReuse
             httpRaw' req m
         -- Not reused, or a non-retry, so this is a real exception
-        Left e -> throwIO e
+        Left e -> do
+          -- Explicitly release connection for all real exceptions:
+          -- https://github.com/snoyberg/http-client/pull/454
+          managedRelease mconn DontReuse
+          throwIO e
         -- Everything went ok, so the connection is good. If any exceptions get
         -- thrown in the response body, just throw them as normal.
         Right res -> case cookieJar req' of
@@ -128,14 +132,16 @@
                 before <- getCurrentTime
                 mres <- timeout timeout' f
                 case mres of
-                    Nothing -> throwHttp ConnectionTimeout
-                    Just res -> do
-                        now <- getCurrentTime
-                        let timeSpentMicro = diffUTCTime now before * 1000000
-                            remainingTime = round $ fromIntegral timeout' - 
timeSpentMicro
-                        if remainingTime <= 0
-                            then throwHttp ConnectionTimeout
-                            else return (Just remainingTime, res)
+                     Nothing -> throwHttp ConnectionTimeout
+                     Just mConn -> do
+                         now <- getCurrentTime
+                         let timeSpentMicro = diffUTCTime now before * 1000000
+                             remainingTime = round $ fromIntegral timeout' - 
timeSpentMicro
+                         if remainingTime <= 0
+                             then do
+                                 managedRelease mConn DontReuse
+                                 throwHttp ConnectionTimeout
+                             else return (Just remainingTime, mConn)
 
     responseTimeout' req =
         case responseTimeout req of
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/http-client-0.7.4/http-client.cabal 
new/http-client-0.7.5/http-client.cabal
--- old/http-client-0.7.4/http-client.cabal     2021-01-13 05:15:41.000000000 
+0100
+++ new/http-client-0.7.5/http-client.cabal     2021-02-04 19:12:01.000000000 
+0100
@@ -1,5 +1,5 @@
 name:                http-client
-version:             0.7.4
+version:             0.7.5
 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

Reply via email to