d-bus-0.1.8: Permissively licensed D-Bus client library

Safe HaskellNone
LanguageHaskell2010

DBus

Contents

Synopsis

Connection management

data DBusConnection Source #

A value representing a connection to a DBus bus. Use connectBus or makeServer to Create

data ConnectionType Source #

Which Bus to connect to

Constructors

System

The well-known system bus. First the environmental variable DBUS_SYSTEM_BUS_ADDRESS is checked and if it doesn't exist the address unix:path=/var/run/dbus/system_bus_socket is used

Session

The well-known session bus. Refers to the address stored in the environmental variable DBUS_SESSION_BUS_ADDRESS

Address String

The bus at the give addresss

connectClient :: ConnectionType -> IO DBusConnection Source #

Connect to a message bus as a client, using the EXTERNAL auth mechanism.

connectClientWithAuth :: ConnectionType -> SASL ByteString -> IO DBusConnection Source #

Connect to a message bus as a client with a custom auth mechanism.

makeServer :: ConnectionType -> Objects -> IO DBusConnection Source #

Create a simple server that exports Objects and ignores all incoming signals.

Use the default EXTERNAL authentication mechanism (see makeServerWithAuth).

connectBus Source #

Arguments

:: ConnectionType

Bus to connect to

-> MethodCallHandler

Handler for incoming method calls

-> SignalHandler

Handler for incoming signals

-> IO DBusConnection 

General way to connect to a message bus, see connectBusWithAuth.

Uses the EXTERNAL authentication mechanism.

type MethodCallHandler Source #

Arguments

 = DBusConnection

Connection that the call was received from. Should be used to return the result or error

-> MessageHeader 
-> [SomeDBusValue] 
-> IO () 

checkAlive :: DBusConnection -> IO Bool Source #

Check whether connection is alive

waitFor :: DBusConnection -> IO () Source #

Wait until connection is closed. The intended use is to keep alive servers

close :: DBusConnection -> IO () Source #

Close the connection and finalize all handlers.

This is automatically done when the connection is garbage collected, but

Message handling

objectRoot :: Objects -> Handler Source #

Create a message handler that dispatches matches to the methods in a root object

ignore :: Monad m => a -> b -> c -> m () Source #

Ignore all incoming messages/signals

Signals

matchSignal :: Signal a -> MatchRule -> Bool Source #

Match a Signal against a rule. The argN, argNPath and arg0namespace parameter are ignored at the moment

addMatch :: (MonadIO m, MonadThrow m) => MatchRule -> DBusConnection -> m () Source #

Add a match rule

removeMatch :: (MonadIO m, MonadThrow m) => MatchRule -> DBusConnection -> m () Source #

Remove a match rule

addSignalHandler :: MatchSignal -> MatchRule -> (SomeSignal -> IO ()) -> DBusConnection -> IO () Source #

Add a match rule for the given signal specification and call function on all incoming matching signals

signalChan :: MatchSignal -> DBusConnection -> IO (TChan SomeSignal) Source #

Add a match rule for the given signal specification and put all incoming signals into the TChan

handleSignal :: Representable a => SignalDescription (FlattenRepType (RepType a)) -> Maybe Text -> MatchRule -> (a -> IO ()) -> DBusConnection -> IO () Source #

Add a match rule (computed from the SignalDescription) and install a handler that tries to convert the Signal's body and passes it to the callback

Representable Types

class SingI (RepType a) => Representable a where Source #

Class of types that can be represented in the D-Bus type system.

The toRep and fromRep functions form a Prism and should follow the "obvious" laws:

  • fromRep (toRep x) == Just x
  • fmap toRep (fromRep x) =<= Just x

(where x =<= y iff x is Nothing or x == y)

All DBusValues represent themselves and instances for the following "canonical" pairs are provided

Haskell type => D-Bus type

  • WordX and IntX => UIntX and IntX respectively (for X in {16, 32, 64})
  • Bool => Boolean
  • Word8 => Byte
  • Double => Double
  • Text => String
  • ObjectPath => ObjectPath
  • DBusType => Signature
  • [a] => Array of a (for Representable a)
  • ByteString => Array of Byte
  • Tuples up to length 20 => Structs of equal length where each of the members is itself Representable
  • Map => Dict where the keys can be represented by a DBusSimpleType

An instance for String is impossible because it conflicts with the instance for lists (use Text instead)

Also note that no Representable instances are provided for Int, Integer and Float.

You can automatically derive an instance for your own Types with makeRepresentable

Minimal complete definition

toRep, fromRep

Associated Types

type RepType a :: DBusType Source #

The DBusType that represents this type

Methods

toRep :: a -> DBusValue (RepType a) Source #

Conversion from Haskell to D-Bus types

fromRep :: DBusValue (RepType a) -> Maybe a Source #

Conversion from D-Bus to Haskell types.

type family FlattenRepType (a :: DBusType) :: [DBusType] where ... Source #

Equations

FlattenRepType TypeUnit = '[] 
FlattenRepType (TypeStruct ts) = ts 
FlattenRepType (DBusSimpleType wild_6989586621679115069) = Apply (Apply (:$) (Let6989586621679115077TSym1 wild_6989586621679115069)) '[] 
FlattenRepType (TypeArray wild_6989586621679115067) = Apply (Apply (:$) (Let6989586621679115082TSym1 wild_6989586621679115067)) '[] 
FlattenRepType (TypeDict wild_6989586621679115063 wild_6989586621679115065) = Apply (Apply (:$) (Let6989586621679115088TSym2 wild_6989586621679115063 wild_6989586621679115065)) '[] 
FlattenRepType (TypeDictEntry wild_6989586621679115059 wild_6989586621679115061) = Apply (Apply (:$) (Let6989586621679115098TSym2 wild_6989586621679115059 wild_6989586621679115061)) '[] 
FlattenRepType TypeVariant = Apply (Apply (:$) Let6989586621679115106TSym0) '[] 

makeRepresentable :: Name -> Q [Dec] Source #

Create a Representable instance for a type.

The strategy used to marshal types depends on the shape of your type:

  • If none of the constructor(s) have fields, the type is represented by a Byte where the n-th constructor (counting from 0) is marshalled to n
  • If the type has a single constructor with exactly one field, is is represented by the RepType of it's field. (This is always the case for newtypes)
  • If the type has a single constructor with multiple fields, it is represented by a Struct (consisting of the translated members)
  • In the general case with multiple constructors with varying numbers of fields , the type is represented by a pair (2-element struct) of a Byte (tag) and a Variant. The n-th constructor (counting from 0) is represented by the tag n and contents of the Variant depends on the number of members:
  • For constructors without members, a single Byte with the value 0 is stored (The value of the Byte is ignored when unmarshalling)
  • For constructors with a single member, the translated member is stored as-is
  • For constructors with multiple members, the translated members are stored in a Struct

makeRepresentableTuple :: Int -> Q Dec Source #

Create a Representable instance for a Tuple. The tuple will be represented by a Struct. Instances for Tuples up to length 20 are already provided

DBus specific types

DBus Types

data DBusSimpleType Source #

Types that are not composite. These can be the keys of a Dict. Most of them should be self-explanatory

Constructors

TypeByte 
TypeBoolean 
TypeInt16 
TypeUInt16 
TypeInt32 
TypeUInt32 
TypeInt64 
TypeUInt64 
TypeDouble 
TypeUnixFD

Unix File descriptor

TypeString 
TypeObjectPath

Name of an object instance

TypeSignature

A (DBus) type signature

Instances

Eq DBusSimpleType Source # 
Data DBusSimpleType Source # 

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> DBusSimpleType -> c DBusSimpleType #

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c DBusSimpleType #

toConstr :: DBusSimpleType -> Constr #

dataTypeOf :: DBusSimpleType -> DataType #

dataCast1 :: Typeable (* -> *) t => (forall d. Data d => c (t d)) -> Maybe (c DBusSimpleType) #

dataCast2 :: Typeable (* -> * -> *) t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c DBusSimpleType) #

gmapT :: (forall b. Data b => b -> b) -> DBusSimpleType -> DBusSimpleType #

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> DBusSimpleType -> r #

gmapQr :: (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> DBusSimpleType -> r #

gmapQ :: (forall d. Data d => d -> u) -> DBusSimpleType -> [u] #

gmapQi :: Int -> (forall d. Data d => d -> u) -> DBusSimpleType -> u #

gmapM :: Monad m => (forall d. Data d => d -> m d) -> DBusSimpleType -> m DBusSimpleType #

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> DBusSimpleType -> m DBusSimpleType #

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> DBusSimpleType -> m DBusSimpleType #

Read DBusSimpleType Source # 
Show DBusSimpleType Source # 
SEq DBusSimpleType Source # 
SDecide DBusSimpleType Source # 
SingKind DBusSimpleType Source # 
SingI DBusSimpleType TypeByte Source # 

Methods

sing :: Sing TypeByte a #

SingI DBusSimpleType TypeBoolean Source # 

Methods

sing :: Sing TypeBoolean a #

SingI DBusSimpleType TypeInt16 Source # 

Methods

sing :: Sing TypeInt16 a #

SingI DBusSimpleType TypeUInt16 Source # 

Methods

sing :: Sing TypeUInt16 a #

SingI DBusSimpleType TypeInt32 Source # 

Methods

sing :: Sing TypeInt32 a #

SingI DBusSimpleType TypeUInt32 Source # 

Methods

sing :: Sing TypeUInt32 a #

SingI DBusSimpleType TypeInt64 Source # 

Methods

sing :: Sing TypeInt64 a #

SingI DBusSimpleType TypeUInt64 Source # 

Methods

sing :: Sing TypeUInt64 a #

SingI DBusSimpleType TypeDouble Source # 

Methods

sing :: Sing TypeDouble a #

SingI DBusSimpleType TypeUnixFD Source # 

Methods

sing :: Sing TypeUnixFD a #

SingI DBusSimpleType TypeString Source # 

Methods

sing :: Sing TypeString a #

SingI DBusSimpleType TypeObjectPath Source # 
SingI DBusSimpleType TypeSignature Source # 

Methods

sing :: Sing TypeSignature a #

PEq DBusSimpleType (Proxy * DBusSimpleType) Source # 
SuppressUnusedWarnings (TyFun DBusSimpleType (TyFun DBusType DBusType -> Type) -> *) TypeDictEntrySym0 Source # 
SuppressUnusedWarnings (TyFun DBusSimpleType (TyFun DBusType DBusType -> Type) -> *) TypeDictSym0 Source # 
SuppressUnusedWarnings (TyFun DBusSimpleType (TyFun DBusType DBusType -> *) -> *) Let6989586621679115098TSym0 Source # 
SuppressUnusedWarnings (TyFun DBusSimpleType (TyFun DBusType DBusType -> *) -> *) Let6989586621679115088TSym0 Source # 
SuppressUnusedWarnings (TyFun DBusSimpleType DBusType -> *) DBusSimpleTypeSym0 Source # 
SuppressUnusedWarnings (TyFun DBusSimpleType DBusType -> *) Let6989586621679115077TSym0 Source # 
SuppressUnusedWarnings (DBusSimpleType -> TyFun DBusType DBusType -> *) TypeDictEntrySym1 Source # 
SuppressUnusedWarnings (DBusSimpleType -> TyFun DBusType DBusType -> *) TypeDictSym1 Source # 
SuppressUnusedWarnings (DBusSimpleType -> TyFun DBusType DBusType -> *) Let6989586621679115098TSym1 Source # 
SuppressUnusedWarnings (DBusSimpleType -> TyFun DBusType DBusType -> *) Let6989586621679115088TSym1 Source # 
data Sing DBusSimpleType Source # 
type DemoteRep DBusSimpleType Source # 
type (:/=) DBusSimpleType x y Source # 
type (:==) DBusSimpleType a0 b0 Source # 
type Apply DBusSimpleType DBusType DBusSimpleTypeSym0 l0 Source # 
type Apply DBusSimpleType DBusType Let6989586621679115077TSym0 l0 Source # 
type Apply DBusSimpleType (TyFun DBusType DBusType -> Type) TypeDictEntrySym0 l0 Source # 
type Apply DBusSimpleType (TyFun DBusType DBusType -> Type) TypeDictSym0 l0 Source # 
type Apply DBusSimpleType (TyFun DBusType DBusType -> *) Let6989586621679115098TSym0 l0 Source # 
type Apply DBusSimpleType (TyFun DBusType DBusType -> *) Let6989586621679115088TSym0 l0 Source # 

data DBusType Source #

Composite Types

Constructors

DBusSimpleType DBusSimpleType

A simple type

TypeArray DBusType

Variable-length homogenous arrays

TypeStruct [DBusType]

Structs (Tuples) and a list of member types

TypeDict DBusSimpleType DBusType

Dictionary / Map

TypeVariant

Existentially types container. Carries it's own type information

TypeDictEntry DBusSimpleType DBusType

Internal helper type for Dicts. You shouldn't have to use this

TypeUnit

Unit isn't actually a DBus type. It is included to make it possible to use methods without a return value

Instances

Eq DBusType Source # 
Data DBusType Source # 

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> DBusType -> c DBusType #

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c DBusType #

toConstr :: DBusType -> Constr #

dataTypeOf :: DBusType -> DataType #

dataCast1 :: Typeable (* -> *) t => (forall d. Data d => c (t d)) -> Maybe (c DBusType) #

dataCast2 :: Typeable (* -> * -> *) t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c DBusType) #

gmapT :: (forall b. Data b => b -> b) -> DBusType -> DBusType #

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> DBusType -> r #

gmapQr :: (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> DBusType -> r #

gmapQ :: (forall d. Data d => d -> u) -> DBusType -> [u] #

gmapQi :: Int -> (forall d. Data d => d -> u) -> DBusType -> u #

gmapM :: Monad m => (forall d. Data d => d -> m d) -> DBusType -> m DBusType #

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> DBusType -> m DBusType #

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> DBusType -> m DBusType #

Read DBusType Source # 
Show DBusType Source # 
SEq DBusType Source # 

Methods

(%:==) :: Sing DBusType a -> Sing DBusType b -> Sing Bool ((DBusType :== a) b) #

(%:/=) :: Sing DBusType a -> Sing DBusType b -> Sing Bool ((DBusType :/= a) b) #

SDecide DBusType Source # 

Methods

(%~) :: Sing DBusType a -> Sing DBusType b -> Decision ((DBusType :~: a) b) #

SingKind DBusType Source # 
SingI DBusType TypeVariant Source # 

Methods

sing :: Sing TypeVariant a #

SingI DBusType TypeUnit Source # 

Methods

sing :: Sing TypeUnit a #

SingI DBusSimpleType n0 => SingI DBusType (DBusSimpleType n0) Source # 

Methods

sing :: Sing (DBusSimpleType n0) a #

SingI DBusType n0 => SingI DBusType (TypeArray n0) Source # 

Methods

sing :: Sing (TypeArray n0) a #

SingI [DBusType] n0 => SingI DBusType (TypeStruct n0) Source # 

Methods

sing :: Sing (TypeStruct n0) a #

PEq DBusType (Proxy * DBusType) Source # 

Associated Types

type ((Proxy * DBusType) :== (x :: Proxy * DBusType)) (y :: Proxy * DBusType) :: Bool #

type ((Proxy * DBusType) :/= (x :: Proxy * DBusType)) (y :: Proxy * DBusType) :: Bool #

(SingI DBusSimpleType n0, SingI DBusType n1) => SingI DBusType (TypeDict n0 n1) Source # 

Methods

sing :: Sing (TypeDict n0 n1) a #

(SingI DBusSimpleType n0, SingI DBusType n1) => SingI DBusType (TypeDictEntry n0 n1) Source # 

Methods

sing :: Sing (TypeDictEntry n0 n1) a #

SuppressUnusedWarnings (TyFun [DBusType] DBusType -> *) TypeStructSym0 Source # 
SuppressUnusedWarnings (TyFun DBusType [DBusType] -> *) FlattenRepTypeSym0 Source # 
SuppressUnusedWarnings (TyFun DBusType DBusType -> *) TypeArraySym0 Source # 
SuppressUnusedWarnings (TyFun DBusType DBusType -> *) Let6989586621679115082TSym0 Source # 
SuppressUnusedWarnings (TyFun DBusSimpleType (TyFun DBusType DBusType -> Type) -> *) TypeDictEntrySym0 Source # 
SuppressUnusedWarnings (TyFun DBusSimpleType (TyFun DBusType DBusType -> Type) -> *) TypeDictSym0 Source # 
SuppressUnusedWarnings (TyFun DBusSimpleType (TyFun DBusType DBusType -> *) -> *) Let6989586621679115098TSym0 Source # 
SuppressUnusedWarnings (TyFun DBusSimpleType (TyFun DBusType DBusType -> *) -> *) Let6989586621679115088TSym0 Source # 
SuppressUnusedWarnings (TyFun DBusSimpleType DBusType -> *) DBusSimpleTypeSym0 Source # 
SuppressUnusedWarnings (TyFun DBusSimpleType DBusType -> *) Let6989586621679115077TSym0 Source # 
SuppressUnusedWarnings (DBusSimpleType -> TyFun DBusType DBusType -> *) TypeDictEntrySym1 Source # 
SuppressUnusedWarnings (DBusSimpleType -> TyFun DBusType DBusType -> *) TypeDictSym1 Source # 
SuppressUnusedWarnings (DBusSimpleType -> TyFun DBusType DBusType -> *) Let6989586621679115098TSym1 Source # 
SuppressUnusedWarnings (DBusSimpleType -> TyFun DBusType DBusType -> *) Let6989586621679115088TSym1 Source # 
data Sing DBusType Source # 
type DemoteRep DBusType Source # 
type (:/=) DBusType x y Source # 
type (:/=) DBusType x y = Not ((:==) DBusType x y)
type (:==) DBusType a0 b0 Source # 
type Apply DBusType DBusType TypeArraySym0 l0 Source # 
type Apply DBusType DBusType Let6989586621679115082TSym0 l0 Source # 
type Apply DBusSimpleType DBusType DBusSimpleTypeSym0 l0 Source # 
type Apply DBusSimpleType DBusType Let6989586621679115077TSym0 l0 Source # 
type Apply DBusType DBusType (TypeDictEntrySym1 l1) l0 Source # 
type Apply DBusType DBusType (TypeDictSym1 l1) l0 Source # 
type Apply DBusType DBusType (Let6989586621679115098TSym1 l1) l0 Source # 
type Apply DBusType DBusType (Let6989586621679115088TSym1 l1) l0 Source # 
type Apply DBusType [DBusType] FlattenRepTypeSym0 l0 Source # 
type Apply DBusSimpleType (TyFun DBusType DBusType -> Type) TypeDictEntrySym0 l0 Source # 
type Apply DBusSimpleType (TyFun DBusType DBusType -> Type) TypeDictSym0 l0 Source # 
type Apply DBusSimpleType (TyFun DBusType DBusType -> *) Let6989586621679115098TSym0 l0 Source # 
type Apply DBusSimpleType (TyFun DBusType DBusType -> *) Let6989586621679115088TSym0 l0 Source # 
type Apply [DBusType] DBusType TypeStructSym0 l0 Source # 

DBus Values

data DBusValue :: DBusType -> * where Source #

Instances

Eq (DBusValue t) Source # 

Methods

(==) :: DBusValue t -> DBusValue t -> Bool #

(/=) :: DBusValue t -> DBusValue t -> Bool #

SingI DBusType t => Show (DBusValue t) Source # 
(IsMethod f, SingI DBusType t) => IsMethod (DBusValue t -> f) Source # 

Associated Types

type ArgTypes (DBusValue t -> f) :: [DBusType] Source #

type ResultType (DBusValue t -> f) :: [DBusType] Source #

Methods

toMethod :: (DBusValue t -> f) -> MethodWrapper (ArgTypes (DBusValue t -> f)) (ResultType (DBusValue t -> f)) Source #

type RepType (DBusValue t) Source # 
type RepType (DBusValue t) = t
type ArgTypes (DBusValue t -> f) Source # 
type ArgTypes (DBusValue t -> f) = (:) DBusType t (ArgTypes f)
type ResultType (DBusValue t -> f) Source # 
type ResultType (DBusValue t -> f) = ResultType f

data DBusStruct :: [DBusType] -> * where Source #

Constructors

StructSingleton :: DBusValue a -> DBusStruct '[a] 
StructCons :: DBusValue a -> DBusStruct as -> DBusStruct (a ': as) 

Instances

fromVariant :: SingI t => DBusValue TypeVariant -> Maybe (DBusValue t) Source #

Extract a DBusValue from a Variant iff the type matches or return nothing

Objects

newtype Object Source #

Constructors

Object 

data ObjectPath Source #

Instances

Eq ObjectPath Source # 
Data ObjectPath Source # 

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> ObjectPath -> c ObjectPath #

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c ObjectPath #

toConstr :: ObjectPath -> Constr #

dataTypeOf :: ObjectPath -> DataType #

dataCast1 :: Typeable (* -> *) t => (forall d. Data d => c (t d)) -> Maybe (c ObjectPath) #

dataCast2 :: Typeable (* -> * -> *) t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c ObjectPath) #

gmapT :: (forall b. Data b => b -> b) -> ObjectPath -> ObjectPath #

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> ObjectPath -> r #

gmapQr :: (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> ObjectPath -> r #

gmapQ :: (forall d. Data d => d -> u) -> ObjectPath -> [u] #

gmapQi :: Int -> (forall d. Data d => d -> u) -> ObjectPath -> u #

gmapM :: Monad m => (forall d. Data d => d -> m d) -> ObjectPath -> m ObjectPath #

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> ObjectPath -> m ObjectPath #

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> ObjectPath -> m ObjectPath #

Ord ObjectPath Source # 
Show ObjectPath Source # 
IsString ObjectPath Source # 
type RepType ObjectPath Source # 

objectPath :: Text -> ObjectPath Source #

Parse an object path. Contrary to the standard, empty path parts are ignored

Methods

data Method where Source #

Constructors

Method :: (SingI avs, SingI ts) => MethodWrapper avs ts -> Text -> ArgumentDescription (ArgParity avs) -> ArgumentDescription (ArgParity ts) -> Method 

data MethodWrapper av rv where Source #

Constructors

MReturn :: SingI ts => MethodHandlerT IO (DBusArguments ts) -> MethodWrapper '[] ts 
MAsk :: SingI t => (DBusValue t -> MethodWrapper avs rv) -> MethodWrapper (t ': avs) rv 

callMethod Source #

Arguments

:: (Representable args, Representable ret) 
=> Text

Entity to send the message to

-> ObjectPath

Object

-> Text

Interface

-> Text

Member (method) to call

-> args

Arguments

-> [Flag]

Method call flags

-> DBusConnection

Connection to send the call over

-> IO (Either MethodError ret) 

Synchronously call a method.

This is the "cooked" version of callMethod''. It automatically converts arguments and returns values.

If the returned value's type doesn't match the expected type a MethodSignatureMissmatch is returned

You can pass in and extract multiple arguments and return values with types that are represented by DBus Structs (e.g. tuples). More specifically, multiple arguments/return values are handled in the following way:

  • If the method returns multiple values and the RepType of the expected return value is a struct it tries to match up the arguments with the struct fields
  • If the method returns a single struct and the RepType is a struct it will try to match up those two
  • If the RepType of the expected return value is not a struct it will only match if the method returned exactly one value and those two match up (as per normal)

This means that if the RepType of the expected return value is a struct it might be matched in two ways: Either by the method returning multiple values or the method returning a single struct. At the moment there is no way to exclude either

callMethod' Source #

Arguments

:: Text

Entity to send the message to

-> ObjectPath

Object

-> Text

Interface

-> Text

Member (method) name

-> [SomeDBusValue]

Arguments

-> [Flag]

Method call flags

-> DBusConnection

Connection to send the call over

-> IO (STM (Either [SomeDBusValue] [SomeDBusValue])) 

Asychronously call a method.

This is the "raw" version of callMethod. It doesn't do argument conversion.

call :: (Representable ret, Representable args, RepType args ~ FromTypeList argList, RepType ret ~ FromTypeList retList) => MethodDescription argList retList -> Text -> args -> [Flag] -> DBusConnection -> IO (Either MethodError ret) Source #

callAsync :: forall ret args retList argList. (Representable args, Representable ret, RepType args ~ FromTypeList argList, RepType ret ~ FromTypeList retList) => MethodDescription argList retList -> Text -> args -> [Flag] -> DBusConnection -> IO (STM (Either MethodError ret)) Source #

fromResponse :: Representable a => Either [SomeDBusValue] [SomeDBusValue] -> Either MethodError a Source #

Try to convert the response to a method call to a Haskell type

newtype MethodHandlerT m a Source #

A Transformer for (IO) actions that might want to send a signal.

Constructors

MHT 

Instances

MonadTrans MethodHandlerT Source # 

Methods

lift :: Monad m => m a -> MethodHandlerT m a #

Monad m => Monad (MethodHandlerT m) Source # 
Functor m => Functor (MethodHandlerT m) Source # 

Methods

fmap :: (a -> b) -> MethodHandlerT m a -> MethodHandlerT m b #

(<$) :: a -> MethodHandlerT m b -> MethodHandlerT m a #

Monad m => Applicative (MethodHandlerT m) Source # 
(Functor m, Monad m) => Alternative (MethodHandlerT m) Source # 
Monad m => MonadPlus (MethodHandlerT m) Source # 
MonadIO m => MonadIO (MethodHandlerT m) Source # 

Methods

liftIO :: IO a -> MethodHandlerT m a #

MonadThrow m => MonadThrow (MethodHandlerT m) Source # 

Methods

throwM :: Exception e => e -> MethodHandlerT m a #

MonadCatch m => MonadCatch (MethodHandlerT m) Source # 

Methods

catch :: Exception e => MethodHandlerT m a -> (e -> MethodHandlerT m a) -> MethodHandlerT m a #

Representable t => RepMethod (MethodHandlerT IO t) Source # 
SingI [DBusType] ts => IsMethod (MethodHandlerT IO (DBusArguments ts)) Source # 
type RepMethodArgs (MethodHandlerT IO t) Source # 
type RepMethodValue (MethodHandlerT IO t) Source # 
type ArgTypes (MethodHandlerT IO (DBusArguments ts)) Source # 
type ResultType (MethodHandlerT IO (DBusArguments ts)) Source # 

data MethodDescription args rets where Source #

Instances

Show (MethodDescription args rets) Source # 

Methods

showsPrec :: Int -> MethodDescription args rets -> ShowS #

show :: MethodDescription args rets -> String #

showList :: [MethodDescription args rets] -> ShowS #

data SomeMethodDescription where Source #

Constructors

SMD :: (SingI args, SingI rets) => MethodDescription args rets -> SomeMethodDescription 

Properties

data SomeProperty where Source #

Constructors

SomeProperty :: forall t. SingI t => {..} -> SomeProperty 

mkProperty :: Representable a => ObjectPath -> Text -> Text -> Maybe (MethodHandlerT IO a) -> Maybe (a -> MethodHandlerT IO Bool) -> PropertyEmitsChangedSignal -> Property (RepType a) Source #

Create a property from a getter and a setter. It will emit a PropertyChanged signal when the setter is called. To change this behaviour modify the propertyEmitsChangedSignal field

mkTVarProperty :: Representable a => ObjectPath -> Text -> Text -> PropertyAccess -> PropertyEmitsChangedSignal -> TVar a -> Property (RepType a) Source #

Make a property out of a TVar. The property is considered changed on every outside set, no matter if the updated value is actually different from the old one

Introspection

Message Bus

Scaffolding

Re-exports

class SingI k a where #

A SingI constraint is essentially an implicitly-passed singleton. If you need to satisfy this constraint with an explicit singleton, please see withSingI.

Minimal complete definition

sing

Methods

sing :: Sing k a #

Produce the singleton explicitly. You will likely need the ScopedTypeVariables extension to use this method the way you want.

Instances

SingI Parity Null # 

Methods

sing :: Sing Null a #

SingI DBusType TypeVariant # 

Methods

sing :: Sing TypeVariant a #

SingI DBusType TypeUnit # 

Methods

sing :: Sing TypeUnit a #

SingI DBusSimpleType TypeByte # 

Methods

sing :: Sing TypeByte a #

SingI DBusSimpleType TypeBoolean # 

Methods

sing :: Sing TypeBoolean a #

SingI DBusSimpleType TypeInt16 # 

Methods

sing :: Sing TypeInt16 a #

SingI DBusSimpleType TypeUInt16 # 

Methods

sing :: Sing TypeUInt16 a #

SingI DBusSimpleType TypeInt32 # 

Methods

sing :: Sing TypeInt32 a #

SingI DBusSimpleType TypeUInt32 # 

Methods

sing :: Sing TypeUInt32 a #

SingI DBusSimpleType TypeInt64 # 

Methods

sing :: Sing TypeInt64 a #

SingI DBusSimpleType TypeUInt64 # 

Methods

sing :: Sing TypeUInt64 a #

SingI DBusSimpleType TypeDouble # 

Methods

sing :: Sing TypeDouble a #

SingI DBusSimpleType TypeUnixFD # 

Methods

sing :: Sing TypeUnixFD a #

SingI DBusSimpleType TypeString # 

Methods

sing :: Sing TypeString a #

SingI DBusSimpleType TypeObjectPath # 
SingI DBusSimpleType TypeSignature # 

Methods

sing :: Sing TypeSignature a #

SingI Parity n0 => SingI Parity (Arg n0) # 

Methods

sing :: Sing (Arg n0) a #

SingI DBusSimpleType n0 => SingI DBusType (DBusSimpleType n0) # 

Methods

sing :: Sing (DBusSimpleType n0) a #

SingI DBusType n0 => SingI DBusType (TypeArray n0) # 

Methods

sing :: Sing (TypeArray n0) a #

SingI [DBusType] n0 => SingI DBusType (TypeStruct n0) # 

Methods

sing :: Sing (TypeStruct n0) a #

(SingI DBusSimpleType n0, SingI DBusType n1) => SingI DBusType (TypeDict n0 n1) # 

Methods

sing :: Sing (TypeDict n0 n1) a #

(SingI DBusSimpleType n0, SingI DBusType n1) => SingI DBusType (TypeDictEntry n0 n1) # 

Methods

sing :: Sing (TypeDictEntry n0 n1) a #