module DBus
(
DBusConnection
, ConnectionType(..)
, connectClient
, connectClientWithAuth
, makeServer
, connectBus
, MethodCallHandler
, SignalHandler
, checkAlive
, waitFor
, close
, objectRoot
, ignore
, MatchRule(..)
, Signal(..)
, SignalDescription(..)
, SomeSignalDescription(..)
, matchAll
, matchSignal
, addMatch
, removeMatch
, addSignalHandler
, signalChan
, handleSignal
, Representable(..)
, FlattenRepType
, makeRepresentable
, makeRepresentableTuple
, DBusSimpleType(..)
, DBusType(..)
, Signature(..)
, typeOf
, DBusValue(..)
, castDBV
, DBusStruct(..)
, SomeDBusValue(..)
, dbusValue
, fromVariant
, Object(..)
, Interface(..)
, ObjectPath
, objectPath
, objectPathToText
, stripObjectPrefix
, isPathPrefix
, isRoot
, isEmpty
, Method(..)
, MethodWrapper(..)
, ArgumentDescription(..)
, repMethod
, callMethod
, callMethod'
, call
, callAsync
, fromResponse
, MsgError(..)
, MethodError(..)
, MethodHandlerT(..)
, MethodDescription(..)
, SomeMethodDescription(..)
, Property (..)
, SomeProperty(..)
, PropertyEmitsChangedSignal(..)
, RemoteProperty(..)
, propertyChanged
, emitPropertyChanged
, getProperty
, setProperty
, handlePropertyChanged
, mkProperty
, mkTVarProperty
, addIntrospectable
, requestName
, RequestNameFlag(..)
, RequestNameReply(..)
, releaseName
, ReleaseNameReply (..)
, listQueuedOwners
, listNames
, listActivatableNames
, nameHasOwner
, startServiceByName
, getNameOwner
, getConnectionUnixUser
, getConnectionProcessID
, getID
, module DBus.Scaffold
, SingI (..)
) where
import qualified Data.ByteString as BS
import DBus.Auth
import DBus.Introspect
import DBus.MainLoop
import DBus.Message
import DBus.MessageBus
import DBus.Method
import DBus.Property
import DBus.Scaffold
import DBus.Signal
import DBus.TH
import DBus.Types
import Data.Default (def)
import Data.Singletons
ignore :: Monad m => a -> b -> c -> m ()
ignore _ _ _ = return ()
connectClient :: ConnectionType -> IO DBusConnection
connectClient bus = connectBus bus ignore ignore
connectClientWithAuth :: ConnectionType -> SASL BS.ByteString -> IO DBusConnection
connectClientWithAuth bus auth = connectBusWithAuth bus auth ignore ignore