blob: a80a392adebdfcb9f0356a52a5f0943570cfaf37 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
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
|
