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 2026-06-10 15:59:17 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-dbus (Old) and /work/SRC/openSUSE:Factory/.ghc-dbus.new.2375 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-dbus" Wed Jun 10 15:59:17 2026 rev:34 rq:1358357 version:1.4.3 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-dbus/ghc-dbus.changes 2025-07-31 17:46:26.404751364 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-dbus.new.2375/ghc-dbus.changes 2026-06-10 16:00:21.942651080 +0200 @@ -1,0 +2,6 @@ +Sun May 3 03:39:07 UTC 2026 - Peter Simons <[email protected]> + +- Update dbus to version 1.4.3. + Upstream does not provide a change log file. + +------------------------------------------------------------------- Old: ---- dbus-1.4.1.tar.gz New: ---- dbus-1.4.3.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-dbus.spec ++++++ --- /var/tmp/diff_new_pack.ebmkHj/_old 2026-06-10 16:00:22.918691528 +0200 +++ /var/tmp/diff_new_pack.ebmkHj/_new 2026-06-10 16:00:22.918691528 +0200 @@ -1,7 +1,7 @@ # # spec file for package ghc-dbus # -# Copyright (c) 2025 SUSE LLC +# Copyright (c) 2026 SUSE LLC # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -20,7 +20,7 @@ %global pkgver %{pkg_name}-%{version} %bcond_with tests Name: ghc-%{pkg_name} -Version: 1.4.1 +Version: 1.4.3 Release: 0 Summary: A client library for the D-Bus IPC system License: Apache-2.0 ++++++ dbus-1.4.1.tar.gz -> dbus-1.4.3.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/dbus-1.4.1/dbus.cabal new/dbus-1.4.3/dbus.cabal --- old/dbus-1.4.1/dbus.cabal 2025-06-17 21:25:25.000000000 +0200 +++ new/dbus-1.4.3/dbus.cabal 2026-05-03 05:07:56.000000000 +0200 @@ -1,5 +1,5 @@ name: dbus -version: 1.4.1 +version: 1.4.3 license: Apache-2.0 license-file: license.txt author: John Millikin <[email protected]> @@ -85,7 +85,7 @@ , bytestring < 0.13 , cereal < 0.6 , conduit >= 1.3.0 && < 1.4 - , containers < 0.8 + , containers < 0.9 , deepseq < 1.6 , exceptions < 0.11 , filepath < 1.6 @@ -94,7 +94,7 @@ , parsec < 3.2 , random < 1.4 , split < 0.3 - , template-haskell >= 2.18 && < 2.24 + , template-haskell >= 2.18 && < 2.25 , text < 2.2 , th-lift < 0.9 , transformers < 0.7 @@ -131,14 +131,14 @@ , base >=4 && <5 , bytestring < 0.13 , cereal < 0.6 - , containers < 0.8 + , containers < 0.9 , directory < 1.4 , extra < 1.9 , filepath < 1.6 , network >= 3.2 && < 3.3 , parsec < 3.2 , process < 1.7 - , QuickCheck < 2.17 + , QuickCheck < 2.19 , random < 1.4 , resourcet < 1.4 , tasty < 1.6 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/dbus-1.4.1/examples/dbus-monitor.hs new/dbus-1.4.3/examples/dbus-monitor.hs --- old/dbus-1.4.1/examples/dbus-monitor.hs 2022-07-12 16:32:15.000000000 +0200 +++ new/dbus-1.4.3/examples/dbus-monitor.hs 2026-05-03 05:03:16.000000000 +0200 @@ -105,7 +105,7 @@ putStrLn (formatMessage received ++ "\n") -- Message formatting is verbose and mostly uninteresting, except as an --- excersise in string manipulation. +-- exercise in string manipulation. formatMessage :: ReceivedMessage -> String diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/dbus-1.4.1/lib/DBus/Client.hs new/dbus-1.4.3/lib/DBus/Client.hs --- old/dbus-1.4.1/lib/DBus/Client.hs 2025-03-26 16:38:59.000000000 +0100 +++ new/dbus-1.4.3/lib/DBus/Client.hs 2026-05-03 05:03:16.000000000 +0200 @@ -35,30 +35,27 @@ -- -- Example: connect to the session bus, and get a list of active names. -- --- @ ---{-\# LANGUAGE OverloadedStrings \#-} +-- >>> :seti -XOverloadedStrings -- ---import Data.List (sort) ---import DBus ---import DBus.Client --- ---main = do --- client <- 'connectSession' --- // --- \-- Request a list of connected clients from the bus --- reply <- 'call_' client ('methodCall' \"\/org\/freedesktop\/DBus\" \"org.freedesktop.DBus\" \"ListNames\") --- { 'methodCallDestination' = Just \"org.freedesktop.DBus\" +-- >>> import Data.List (sort) +-- >>> import DBus +-- >>> import DBus.Client +-- +-- >>> :{ +-- getActiveNames :: IO () +-- getActiveNames = do +-- client <- connectSession +-- -- Request a list of connected clients from the bus +-- reply <- call_ client (methodCall "/org/freedesktop/DBus" "org.freedesktop.DBus" "ListNames") +-- { methodCallDestination = Just "org.freedesktop.DBus" -- } --- // --- \-- org.freedesktop.DBus.ListNames() returns a single value, which is --- \-- a list of names (here represented as [String]) --- let Just names = 'fromVariant' ('methodReturnBody' reply !! 0) --- // --- \-- Print each name on a line, sorted so reserved names are below --- \-- temporary names. +-- -- org.freedesktop.DBus.ListNames() returns a single value, which is +-- -- a list of names (here represented as [String]) +-- let Just names = fromVariant (methodReturnBody reply !! 0) +-- -- Print each name on a line, sorted so reserved names are below +-- -- temporary names. -- mapM_ putStrLn (sort names) --- @ --- +-- :} module DBus.Client ( -- * Clients @@ -291,7 +288,7 @@ -- NOTE: This instance is needed to make modifyNothingHandler work, but it -- shouldn't really be used for much else. A more complete implementation can't --- be provided because PathInfo > Interface > Method conatain functions which +-- be provided because PathInfo > Interface > Method contain functions which -- can't/don't have an eq instance. instance Eq PathInfo where a == b = null (_pathInterfaces a) && @@ -756,7 +753,7 @@ -- reserves @\"org.freedesktop.NetworkManager\"@ on the system bus. -- -- * When there are multiple implementations of a particular service, the --- service standard will ususally include a generic bus name for the +-- service standard will usually include a generic bus name for the -- service. This allows other clients to avoid depending on any particular -- implementation's name. For example, both the GNOME Keyring and KDE -- KWallet services request the @\"org.freedesktop.secrets\"@ name on the @@ -1253,24 +1250,33 @@ -- Use 'autoMethod' to construct a 'Method' from a function that accepts and -- returns simple types. -- --- Use 'method' to construct a 'Method' from a function that handles parameter +-- Use 'makeMethod' to construct a 'Method' from a function that handles parameter -- conversion manually. -- --- @ ---ping :: MethodCall -> IO 'Reply' ---ping _ = ReplyReturn [] --- ---sayHello :: String -> IO String ---sayHello name = return (\"Hello \" ++ name ++ \"!\") +-- >>> :seti -XOverloadedStrings -- --- export client \"/hello_world\" --- defaultInterface { interfaceName = \"com.example.HelloWorld\" --- , interfaceMethods = --- [ 'method' \"com.example.HelloWorld\" \"Ping\" ping --- , 'autoMethod' \"com.example.HelloWorld\" \"Hello\" sayHello --- ] --- } --- @ +-- >>> :{ +-- ping :: MethodCall -> DBusR Reply +-- ping _ = pure $ ReplyReturn [] +-- :} +-- +-- >>> :{ +-- sayHello :: String -> IO String +-- sayHello name = return ("Hello " ++ name ++ "!") +-- :} +-- +-- >>> :{ +-- doExport :: IO () +-- doExport = do +-- client <- connectSession +-- export client "/hello_world" +-- defaultInterface { interfaceName = "com.example.HelloWorld" +-- , interfaceMethods = +-- [ makeMethod "Ping" (signature_ []) (signature_ []) ping +-- , autoMethod "Hello" sayHello +-- ] +-- } +-- :} export :: Client -> ObjectPath -> Interface -> IO () export client path interface = atomicModifyIORef_ (clientObjects client) $ addInterface path interface diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/dbus-1.4.1/lib/DBus/Generation.hs new/dbus-1.4.3/lib/DBus/Generation.hs --- old/dbus-1.4.1/lib/DBus/Generation.hs 2023-08-22 19:28:18.000000000 +0200 +++ new/dbus-1.4.3/lib/DBus/Generation.hs 2026-05-03 05:03:16.000000000 +0200 @@ -72,7 +72,7 @@ where fn t = case t of -- Because of a quirk in how we unmarshal things, we currently HAVE - -- to decorde arrays of Word8 in this way. + -- to decode arrays of Word8 in this way. T.TypeArray T.TypeWord8 -> ConT ''BS.ByteString T.TypeBoolean -> ConT ''Bool T.TypeWord8 -> ConT ''Word8 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/dbus-1.4.1/lib/DBus/Internal/Types.hs new/dbus-1.4.3/lib/DBus/Internal/Types.hs --- old/dbus-1.4.1/lib/DBus/Internal/Types.hs 2022-07-12 16:32:15.000000000 +0200 +++ new/dbus-1.4.3/lib/DBus/Internal/Types.hs 2026-05-03 05:03:16.000000000 +0200 @@ -836,7 +836,7 @@ Parsec.skipMany (oneOf alphanum) -- | A D-Bus Structure is a container type similar to Haskell tuples, storing --- values of any type that is convertable to 'IsVariant'. A Structure may +-- values of any type that is convertible to 'IsVariant'. A Structure may -- contain up to 255 values. -- -- Most users can use the 'IsVariant' instance for tuples to extract the diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/dbus-1.4.1/lib/DBus/Internal/Wire.hs new/dbus-1.4.3/lib/DBus/Internal/Wire.hs --- old/dbus-1.4.1/lib/DBus/Internal/Wire.hs 2023-08-22 19:28:39.000000000 +0200 +++ new/dbus-1.4.3/lib/DBus/Internal/Wire.hs 2026-05-03 05:03:16.000000000 +0200 @@ -480,7 +480,7 @@ let end = start + fromIntegral byteCount vs <- untilM (liftM (>= end) getOffset) (unmarshal itemType) end' <- getOffset - when (end' > end) (throwError ("Array data size exeeds array size of " ++ show end)) + when (end' > end) (throwError ("Array data size exceeds array size of " ++ show end)) return (Data.Vector.fromList vs) dictionaryToArray :: Map Atom Value -> Vector Value @@ -626,7 +626,7 @@ checkMaximumSize = do (MarshalState _ messageLength _) <- getState when (toInteger messageLength > messageMaximumLength) - (throwError ("Marshaled message size (" ++ show messageLength ++ " bytes) exeeds maximum limit of (" ++ show messageMaximumLength ++ " bytes).")) + (throwError ("Marshaled message size (" ++ show messageLength ++ " bytes) exceeds maximum limit of (" ++ show messageMaximumLength ++ " bytes).")) unmarshalMessageM :: Monad m => (Int -> m (ByteString, [Fd])) -> m (Either UnmarshalError ReceivedMessage) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/dbus-1.4.1/lib/DBus/Socket.hs new/dbus-1.4.3/lib/DBus/Socket.hs --- old/dbus-1.4.1/lib/DBus/Socket.hs 2023-08-22 19:28:18.000000000 +0200 +++ new/dbus-1.4.3/lib/DBus/Socket.hs 2026-05-03 05:03:16.000000000 +0200 @@ -313,16 +313,25 @@ -- | An empty authenticator. Use 'authenticatorClient' or 'authenticatorServer' -- to control how the authentication is performed. -- --- @ ---myAuthenticator :: Authenticator MyTransport ---myAuthenticator = authenticator --- { 'authenticatorClient' = clientMyAuth --- , 'authenticatorServer' = serverMyAuth --- } +-- >>> data MyTransport -- ---clientMyAuth :: MyTransport -> IO Bool ---serverMyAuth :: MyTransport -> String -> IO Bool --- @ +-- >>> :{ +-- clientMyAuth :: MyTransport -> IO Bool +-- clientMyAuth = error "example" +-- :} +-- +-- >>> :{ +-- serverMyAuth :: MyTransport -> UUID -> IO Bool +-- serverMyAuth = error "example" +-- :} +-- +-- >>> :{ +-- myAuthenticator :: Authenticator MyTransport +-- myAuthenticator = authenticator +-- { authenticatorClient = clientMyAuth +-- , authenticatorServer = serverMyAuth +-- } +-- :} authenticator :: Authenticator t authenticator = Authenticator (\_ -> return False) (\_ _ -> return False) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/dbus-1.4.1/lib/DBus.hs new/dbus-1.4.3/lib/DBus.hs --- old/dbus-1.4.1/lib/DBus.hs 2023-08-22 19:28:18.000000000 +0200 +++ new/dbus-1.4.3/lib/DBus.hs 2026-05-03 05:03:16.000000000 +0200 @@ -191,7 +191,7 @@ typeOf :: IsValue a => a -> Type typeOf = DBus.Internal.Types.typeOf --- | Get the D-Bus type corresponding to the given Haskell type 'a'. +-- | Get the D-Bus type corresponding to the given Haskell type @a@. typeOf' :: IsValue a => Proxy a -> Type typeOf' = DBus.Internal.Types.typeOf_ @@ -200,14 +200,17 @@ -- Use fields such as 'methodCallDestination' and 'methodCallBody' to populate -- a 'MethodCall'. -- --- @ ---{-\# LANGUAGE OverloadedStrings \#-} +-- >>> :seti -XOverloadedStrings -- ---methodCall \"/\" \"org.example.Math\" \"Add\" --- { 'methodCallDestination' = Just \"org.example.Calculator\" --- , 'methodCallBody' = ['toVariant' (1 :: Int32), 'toVariant' (2 :: Int32)] +-- >>> import Data.Int +-- +-- >>> :{ +-- (methodCall "/" "org.example.Math" "Add") +-- { methodCallDestination = Just "org.example.Calculator" +-- , methodCallBody = [toVariant (1 :: Int32), toVariant (2 :: Int32)] -- } --- @ +-- :} +-- MethodCall {methodCallPath = ObjectPath "/", methodCallInterface = Just (InterfaceName "org.example.Math"), methodCallMember = MemberName "Add", methodCallSender = Nothing, methodCallDestination = Just (BusName "org.example.Calculator"), methodCallReplyExpected = True, methodCallAutoStart = True, methodCallBody = [Variant 1,Variant 2]} methodCall :: ObjectPath -> InterfaceName -> MemberName -> MethodCall methodCall path iface member = MethodCall path (Just iface) member Nothing Nothing True True []
