diff options
author | Julien Dessaux | 2011-05-01 16:02:33 +0200 |
---|---|---|
committer | Julien Dessaux | 2011-05-02 00:49:52 +0200 |
commit | 5d2c3cdeb27f7850b6fc3fd995978b97985222b9 (patch) | |
tree | 89dcb17eede854db6f8348e3615cbc5cfa40aaff /Hsbot/Types.hs | |
parent | Code cleaning. (diff) | |
download | hsbot-5d2c3cdeb27f7850b6fc3fd995978b97985222b9.tar.gz hsbot-5d2c3cdeb27f7850b6fc3fd995978b97985222b9.tar.bz2 hsbot-5d2c3cdeb27f7850b6fc3fd995978b97985222b9.zip |
Changed the way I handled the Bot monad for more concurrency.
Diffstat (limited to 'Hsbot/Types.hs')
-rw-r--r-- | Hsbot/Types.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Hsbot/Types.hs b/Hsbot/Types.hs index b667286..14e89a1 100644 --- a/Hsbot/Types.hs +++ b/Hsbot/Types.hs @@ -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] |