-- | Connect to the system bus, make a DBus call to the MCCtl server, then
--   disconnect from the bus.
--
--   Use only for oneshot invocations; for anything else we should reuse the
--   connection.
dbusCall :: MemberName -> [Variant] -> IO MethodReturn
dbusCall memb args = do
  client <- connectSystem
  res <- call_ client $ dbusMeth memb args
  disconnect client
  return res

-- | Connect to the system bus, make a DBus call to the MCCtl server, then
--   disconnect from the bus.
--
--   Use only for oneshot invocations; for anything else we should reuse the
--   connection.
dbusCall :: MemberName -> [Variant] -> IO MethodReturn
dbusCall memb args = do
  client <- connectSystem
  res <- call_ client $ dbusMeth memb args
  disconnect client
  return res

-- | Connect to the system bus, make a DBus call to the MCCtl server, then
--   disconnect from the bus.
--
--   Use only for oneshot invocations; for anything else we should reuse the
--   connection.
dbusCall memb args = do
  client <- connectSystem
  res <- call_ client $ dbusMeth memb args
  disconnect client
  return res

-- | Connect to the system bus, make a DBus call to the MCCtl server, then
--   disconnect from the bus.
--
--   Use only for oneshot invocations; for anything else we should reuse the
--   connection.