module MusicScroll.ConnState where import DBus (BusName) import DBus.Client (Client) import MusicScroll.DBusNames data ConnState = ConnState { ConnState -> Client cpClient :: Client, ConnState -> BusName cpBusActive :: BusName } newConnState :: Client -> ConnState newConnState :: Client -> ConnState newConnState Client c = Client -> BusName -> ConnState ConnState Client c BusName vlcBus