Hello community,
here is the log from the commit of package ghc-HTTP for openSUSE:Factory
checked in at 2016-01-28 17:23:50
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/ghc-HTTP (Old)
and /work/SRC/openSUSE:Factory/.ghc-HTTP.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-HTTP"
Changes:
--------
--- /work/SRC/openSUSE:Factory/ghc-HTTP/ghc-HTTP.changes 2016-01-08
15:23:02.000000000 +0100
+++ /work/SRC/openSUSE:Factory/.ghc-HTTP.new/ghc-HTTP.changes 2016-01-28
17:24:42.000000000 +0100
@@ -1,0 +2,19 @@
+Sun Jan 24 10:04:26 UTC 2016 - mimi...@gmail.com
+
+- update to 4000.3.2
+* If the URI contains "user:pass@" part, use it for Basic Authorization
+* Add a test harness.
+* Don't leak a socket when getHostAddr throws an exception.
+* Send cookies in request format, not response format.
+* Moved BrowserAction to be a StateT IO, with instances for
+ Applicative, MonadIO, MonadState.
+* Add method to control size of connection pool.
+* Consider both host and port when reusing connections.
+* Handle response code 304 "not modified" properly.
+* Fix digest authentication by fixing md5 output string rep.
+* Make the default user agent string follow the package version.
+* Document lack of HTTPS support and fail when clients try
+ to use it instead of silently falling back to HTTP.
+* Add helper to set the request type and body.
+
+-------------------------------------------------------------------
Old:
----
HTTP-4000.2.23.tar.gz
New:
----
HTTP-4000.3.2.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ ghc-HTTP.spec ++++++
--- /var/tmp/diff_new_pack.GyTEkh/_old 2016-01-28 17:24:43.000000000 +0100
+++ /var/tmp/diff_new_pack.GyTEkh/_new 2016-01-28 17:24:43.000000000 +0100
@@ -19,7 +19,7 @@
%global pkg_name HTTP
Name: ghc-HTTP
-Version: 4000.2.23
+Version: 4000.3.2
Release: 0
Summary: A library for client-side HTTP
License: BSD-3-Clause
@@ -37,7 +37,7 @@
BuildRequires: ghc-mtl-devel
BuildRequires: ghc-network-devel
BuildRequires: ghc-network-uri-devel
-BuildRequires: ghc-old-time-devel
+BuildRequires: ghc-time-devel
BuildRequires: ghc-parsec-devel
# End cabal-rpm deps
++++++ HTTP-4000.2.23.tar.gz -> HTTP-4000.3.2.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTTP-4000.2.23/HTTP.cabal
new/HTTP-4000.3.2/HTTP.cabal
--- old/HTTP-4000.2.23/HTTP.cabal 2015-12-31 23:33:18.000000000 +0100
+++ new/HTTP-4000.3.2/HTTP.cabal 2016-01-16 09:57:23.000000000 +0100
@@ -1,5 +1,5 @@
Name: HTTP
-Version: 4000.2.23
+Version: 4000.3.2
Cabal-Version: >= 1.8
Build-type: Simple
License: BSD3
@@ -99,7 +99,8 @@
-- note the test harness constraints should be kept in sync with these
-- where dependencies are shared
Build-depends: base >= 4.3.0.0 && < 4.9, parsec >= 2.0 && < 3.2
- Build-depends: array >= 0.3.0.2 && < 0.6, old-time >= 1.0.0.0 && < 1.2,
bytestring >= 0.9.1.5 && < 0.11
+ Build-depends: array >= 0.3.0.2 && < 0.6, bytestring >= 0.9.1.5 && < 0.11
+ Build-depends: time >= 1.1.2.3 && < 1.7
Extensions: FlexibleInstances
@@ -114,8 +115,6 @@
else
Build-depends: network >= 2.2.1.8 && < 2.6
- build-tools: ghc >= 7.0 && < 7.12
-
if flag(warn-as-error)
ghc-options: -Werror
@@ -125,8 +124,6 @@
Test-Suite test
type: exitcode-stdio-1.0
- build-tools: ghc >= 7.0 && < 7.12
-
hs-source-dirs: test
main-is: httpTests.hs
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTTP-4000.2.23/Network/Browser.hs
new/HTTP-4000.3.2/Network/Browser.hs
--- old/HTTP-4000.2.23/Network/Browser.hs 2015-12-31 23:33:18.000000000
+0100
+++ new/HTTP-4000.3.2/Network/Browser.hs 2016-01-16 09:57:23.000000000
+0100
@@ -149,7 +149,7 @@
( hSetBuffering, hPutStr, stdout, stdin, hGetChar
, BufferMode(NoBuffering, LineBuffering)
)
-import System.Time ( ClockTime, getClockTime )
+import Data.Time.Clock ( UTCTime, getCurrentTime )
------------------------------------------------------------------
@@ -638,7 +638,7 @@
-- at which they occurred.
data BrowserEvent
= BrowserEvent
- { browserTimestamp :: ClockTime
+ { browserTimestamp :: UTCTime
, browserRequestID :: RequestID
, browserRequestURI :: {-URI-}String
, browserEventType :: BrowserEventType
@@ -668,7 +668,7 @@
buildBrowserEvent :: BrowserEventType -> {-URI-}String -> RequestID -> IO
BrowserEvent
buildBrowserEvent bt uri reqID = do
- ct <- getClockTime
+ ct <- getCurrentTime
return BrowserEvent
{ browserTimestamp = ct
, browserRequestID = reqID
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTTP-4000.2.23/Network/TCP.hs
new/HTTP-4000.3.2/Network/TCP.hs
--- old/HTTP-4000.2.23/Network/TCP.hs 2015-12-31 23:33:18.000000000 +0100
+++ new/HTTP-4000.3.2/Network/TCP.hs 2016-01-16 09:57:23.000000000 +0100
@@ -306,14 +306,7 @@
-- and that the connection peer matches the given
-- host name (which is recorded locally).
isConnectedTo :: Connection -> EndPoint -> IO Bool
-isConnectedTo (Connection conn) endPoint = do
- v <- readMVar (getRef conn)
- case v of
- ConnClosed -> print "aa" >> return False
- _
- | connEndPoint v == endPoint ->
- catchIO (getPeerName (connSock v) >> return True) (const $ return
False)
- | otherwise -> return False
+isConnectedTo (Connection conn) endPoint = isTCPConnectedTo conn endPoint
isTCPConnectedTo :: HandleStream ty -> EndPoint -> IO Bool
isTCPConnectedTo conn endPoint = do
