module DBus.Shared (
ServiceName, PathName, InterfaceName,
serviceDBus,
pathDBus, pathLocal,
interfaceDBus, interfaceIntrospectable, interfaceLocal,
) where
import Foreign
import Foreign.C.String
type ServiceName = String
type PathName = FilePath
type InterfaceName = String
serviceDBus :: ServiceName
pathDBus, pathLocal :: PathName
interfaceDBus, interfaceIntrospectable, interfaceLocal :: InterfaceName
serviceDBus = "org.freedesktop.DBus"
pathDBus = "/org/freedesktop/DBus"
pathLocal = "/org/freedesktop/DBus/Local"
interfaceDBus = "org.freedesktop.DBus"
interfaceIntrospectable = "org.freedesktop.DBus.Introspectable"
interfaceLocal = "org.freedesktop.DBus.Local"