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