Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package ghc-dbus for openSUSE:Factory checked in at 2021-02-16 22:37:20 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-dbus (Old) and /work/SRC/openSUSE:Factory/.ghc-dbus.new.28504 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-dbus" Tue Feb 16 22:37:20 2021 rev:20 rq:870453 version:1.2.18 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-dbus/ghc-dbus.changes 2021-01-08 17:39:57.788991550 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-dbus.new.28504/ghc-dbus.changes 2021-02-16 22:45:31.454348687 +0100 @@ -1,0 +2,6 @@ +Wed Jan 27 19:35:38 UTC 2021 - [email protected] + +- Update dbus to version 1.2.18. + Upstream does not provide a change log file. + +------------------------------------------------------------------- Old: ---- dbus-1.2.17.tar.gz New: ---- dbus-1.2.18.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-dbus.spec ++++++ --- /var/tmp/diff_new_pack.0rn9WZ/_old 2021-02-16 22:45:32.186349650 +0100 +++ /var/tmp/diff_new_pack.0rn9WZ/_new 2021-02-16 22:45:32.190349655 +0100 @@ -1,7 +1,7 @@ # # spec file for package ghc-dbus # -# Copyright (c) 2020 SUSE LLC +# Copyright (c) 2021 SUSE LLC # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -19,7 +19,7 @@ %global pkg_name dbus %bcond_with tests Name: ghc-%{pkg_name} -Version: 1.2.17 +Version: 1.2.18 Release: 0 Summary: A client library for the D-Bus IPC system License: Apache-2.0 ++++++ dbus-1.2.17.tar.gz -> dbus-1.2.18.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/dbus-1.2.17/dbus.cabal new/dbus-1.2.18/dbus.cabal --- old/dbus-1.2.17/dbus.cabal 2020-12-28 06:07:36.000000000 +0100 +++ new/dbus-1.2.18/dbus.cabal 2021-01-26 04:10:58.000000000 +0100 @@ -1,6 +1,6 @@ cabal-version: >=1.10 name: dbus -version: 1.2.17 +version: 1.2.18 license: Apache-2.0 license-file: license.txt maintainer: Andrey Sverdlichenko <[email protected]> @@ -103,7 +103,7 @@ exceptions <0.11, filepath <1.5, lens <4.20, - network >=3.0.1.0 && <3.2, + network >=3.1.2.1 && <3.2, parsec <3.2, random <1.3, split <0.3, @@ -152,7 +152,7 @@ directory <1.4, extra <1.8, filepath <1.5, - network >=3.0.1.0 && <3.2, + network >=3.1.2.1 && <3.2, parsec <3.2, process <1.7, QuickCheck <2.15, diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/dbus-1.2.17/lib/DBus/Internal/Address.hs new/dbus-1.2.18/lib/DBus/Internal/Address.hs --- old/dbus-1.2.17/lib/DBus/Internal/Address.hs 2020-04-27 04:35:18.000000000 +0200 +++ new/dbus-1.2.18/lib/DBus/Internal/Address.hs 2021-01-26 03:43:33.000000000 +0100 @@ -148,7 +148,7 @@ -- @DBUS_SESSION_BUS_ADDRESS@, which must be set. -- -- Returns 'Nothing' if @DBUS_SYSTEM_BUS_ADDRESS@ contains an invalid address --- or @DBUS_SYSTEM_BUS_ADDRESS@ is unset @XDG_RUNTIME_DIR@ doesn't have @/bus@. +-- or @DBUS_SESSION_BUS_ADDRESS@ is unset @XDG_RUNTIME_DIR@ doesn't have @/bus@. getSessionAddress :: IO (Maybe Address) getSessionAddress = lookupEnv "DBUS_SESSION_BUS_ADDRESS" >>= \case Just addrs -> pure (parseAddresses addrs >>= listToMaybe) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/dbus-1.2.17/lib/DBus/Transport.hs new/dbus-1.2.18/lib/DBus/Transport.hs --- old/dbus-1.2.17/lib/DBus/Transport.hs 2020-05-11 05:23:55.000000000 +0200 +++ new/dbus-1.2.18/lib/DBus/Transport.hs 2020-12-29 00:38:58.000000000 +0100 @@ -261,10 +261,10 @@ , addrSocketType = Stream })) (Just hostname) Nothing - openSocket [] = throwIO (transportError "openTcp: no addresses") + openOneSocket [] = throwIO (transportError "openTcp: no addresses") { transportErrorAddress = Just transportAddr } - openSocket (addr:addrs) = do + openOneSocket (addr:addrs) = do tried <- Control.Exception.try $ bracketOnError (socket (addrFamily addr) (addrSocketType addr) (addrProtocol addr)) close @@ -276,7 +276,7 @@ [] -> throwIO (transportError (show (err :: IOException))) { transportErrorAddress = Just transportAddr } - _ -> openSocket addrs + _ -> openOneSocket addrs Right sock -> return sock go = case getPort of @@ -289,7 +289,7 @@ } Right family_ -> catchIOException (Just transportAddr) $ do addrs <- getAddresses family_ - sock <- openSocket (map (setPort port) addrs) + sock <- openOneSocket (map (setPort port) addrs) return (SocketTransport (Just transportAddr) sock) listenUnix :: UUID -> Address -> TransportOptions SocketTransport -> IO (Address, Socket) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/dbus-1.2.17/tests/DBusTests/Transport.hs new/dbus-1.2.18/tests/DBusTests/Transport.hs --- old/dbus-1.2.17/tests/DBusTests/Transport.hs 2020-12-28 04:59:12.000000000 +0100 +++ new/dbus-1.2.18/tests/DBusTests/Transport.hs 2020-12-28 06:09:38.000000000 +0100 @@ -418,7 +418,7 @@ ]) assertThrows (\err -> and - [ "Address already in use" `isInfixOf` transportErrorMessage err + [ "Permission denied" `isInfixOf` transportErrorMessage err , transportErrorAddress err == Just addr ]) (transportListen socketTransportOptions addr)
