From 5d2c3cdeb27f7850b6fc3fd995978b97985222b9 Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Sun, 1 May 2011 16:02:33 +0200
Subject: Changed the way I handled the Bot monad for more concurrency.

---
 Hsbot/Types.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Hsbot/Types.hs')

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]
-- 
cgit v1.2.3