startTaffyLogServer :: TaffyIO ()
startTaffyLogServer =
  asks sessionDBusClient >>= lift . startLogServer
startTaffyLogServer :: TaffyIO ()
startTaffyLogServer =
  asks sessionDBusClient >>= lift . startLogServer
startTaffyLogServer =
  asks sessionDBusClient >>= lift . startLogServer