adyxax/hsbot
Archived
1
0
Fork 0
Code Issues Activity

Changed the way I handled the Bot monad for more concurrency.

Browse source
This commit is contained in:
Julien Dessaux 2011-05-01 16:02:33 +02:00
parent bf36db5488
commit 5d2c3cdeb2
4 changed files with 57 additions and 45 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Hsbot/Types.hs
View file

@ -25,7 +25,8 @@ import System.IO
type Env = ReaderT BotEnv
data BotEnv = BotEnv
{ envHandle :: Handle
{ envBotState :: MVar BotState
, envHandle :: Handle
, envChan :: Chan Message
, envQuitMv :: MVar BotStatus
, envThreadIdsMv :: MVar [ThreadId]