musicScroll-0.3.3: src/MusicScroll/ConnState.hs

module MusicScroll.ConnState where

import DBus (BusName)
import DBus.Client (Client)
import MusicScroll.DBusNames

data ConnState = ConnState
  { cpClient :: Client,
    cpBusActive :: BusName
  }

newConnState :: Client -> ConnState
newConnState c = ConnState c vlcBus