module KikiD.ClientState where

import KikiD.Message
import Control.Concurrent.STM.TBMQueue
import Control.Concurrent

data ClientState = CState {cliQueue :: TBMQueue KikiDMessage}

mkClient = CState 
            { cliQueue = error "ERROR CState: cliQueue parameter is required"
            }

type ClientID = ThreadId 
threadIdToClient = id