dbus-core 0.9 → 0.9.1

raw patch · 8 files changed

+42/−7 lines, 8 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• dbus-core.cabal +1/−1
• hs/DBus/Client.hs +1/−0
• hs/DBus/Client/Internal.hs +4/−1
• hs/DBus/Client/Simple.hs +11/−1
• src/api-docs.anansi +1/−1
• src/client.anansi +19/−0
• src/dbus-core.anansi +2/−2
• src/module-headers.anansi +3/−1

@@ -1,5 +1,5 @@ name: dbus-core-version: 0.9+version: 0.9.1 synopsis: Low-level D-Bus protocol implementation license: GPL-3 license-file: license.txt

@@ -24,6 +24,7 @@ 	, disconnect 	, call 	, call_+	, emit 	 	-- * Listening for signals 	, MatchRule(..)

@@ -109,7 +109,7 @@ 	attach connection  --- | Stop a 'Client'#8217;s callback thread and close its underlying socket.+-- | Stop a 'Client'’s callback thread and close its underlying socket.  disconnect :: Client -> IO () disconnect client = do@@ -197,6 +197,9 @@ 	case result of 		Left err -> connectionError ("Call failed: " ++ Data.Text.unpack (errorMessage err)) 		Right ret -> return ret++emit :: Client -> Signal -> IO ()+emit client msg = send_ client msg (\_ -> return ())  data MatchRule = MatchRule 	{ matchSender      :: Maybe BusName

@@ -26,6 +26,7 @@ 	, connectSession 	, connectStarter 	, disconnect+	, emit 	 	-- * Proxies 	, Proxy@@ -59,7 +60,7 @@ import           Data.Word (Word32)  import           DBus.Address-import           DBus.Client hiding (call, method, export)+import           DBus.Client hiding (call, method, emit, export) import qualified DBus.Client import           DBus.Connection.Error import           DBus.Constants (errorInvalidParameters)@@ -139,6 +140,15 @@ 		, methodCallBody = body 		} 	return (methodReturnBody reply)++emit :: Client -> ObjectPath -> InterfaceName -> MemberName -> [Variant] -> IO ()+emit client path iface member body = DBus.Client.emit client $ Signal+	{ signalDestination = Nothing+	, signalPath = path+	, signalInterface = iface+	, signalMember = member+	, signalBody = body+	}  listen :: Proxy -> InterfaceName -> MemberName -> (BusName -> Signal -> IO ()) -> IO () listen (Proxy client dest path) iface member = DBus.Client.listen client (MatchRule

@@ -24,7 +24,7 @@ can't merge documentation from external files.  :d apidoc DBus.Client.disconnect--- | Stop a 'Client'#8217;s callback thread and close its underlying socket.+-- | Stop a 'Client'’s callback thread and close its underlying socket. :  :d apidoc DBus.Client.throwError

@@ -187,6 +187,14 @@ :  \clearpage+\subsection{Emitting signals}++:d DBus.Client+emit :: Client -> Signal -> IO ()+emit client msg = send_ client msg (\_ -> return ())+:++\clearpage \subsection{Receiving signals}  :d DBus.Client@@ -424,6 +432,17 @@ 		, methodCallBody = body 		} 	return (methodReturnBody reply)+:++:d DBus.Client.Simple+emit :: Client -> ObjectPath -> InterfaceName -> MemberName -> [Variant] -> IO ()+emit client path iface member body = DBus.Client.emit client $ Signal+	{ signalDestination = Nothing+	, signalPath = path+	, signalInterface = iface+	, signalMember = member+	, signalBody = body+	} :  :d DBus.Client.Simple

@@ -47,10 +47,10 @@ % No extra margins in code blocks \codemargin=0pt -\title{dbus\_0.9}+\title{dbus\_0.9.1} \author{John Millikin\\         \href{mailto:"John Millikin" <jmillikin@gmail.com>}{\tt jmillikin@gmail.com}}-\date{July 14, 2011}+\date{July 24, 2011}  \makeindex 

@@ -350,6 +350,7 @@ 	, disconnect 	, call 	, call_+	, emit 	 	-- * Listening for signals 	, MatchRule(..)@@ -419,6 +420,7 @@ 	, connectSession 	, connectStarter 	, disconnect+	, emit 	 	-- * Proxies 	, Proxy@@ -452,7 +454,7 @@ import           Data.Word (Word32)  import           DBus.Address-import           DBus.Client hiding (call, method, export)+import           DBus.Client hiding (call, method, emit, export) import qualified DBus.Client import           DBus.Connection.Error import           DBus.Constants (errorInvalidParameters)