remoteDomainBus :: Int -> Int -> IO D.DBusContext

domainSystemBus domain = remoteDomainBus domain 5555
remoteDomainBus :: Int -> Int -> IO D.DBusContext
domainSystemBus domain = remoteDomainBus domain 5555
domainSystemBus domain = remoteDomainBus domain 5555