From a8c0c8578718098e7a0482678ab727533ee09862 Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Fri, 6 May 2011 19:15:40 +0200
Subject: Made the Plugin monad a Reader instead of a State since it can't
 change.

---
 Hsbot/Types.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'Hsbot/Types.hs')

diff --git a/Hsbot/Types.hs b/Hsbot/Types.hs
index 14e89a1..c7331d3 100644
--- a/Hsbot/Types.hs
+++ b/Hsbot/Types.hs
@@ -7,8 +7,8 @@ module Hsbot.Types
     , Env
     , Message (..)
     , Plugin
+    , PluginEnv (..)
     , PluginId (..)
-    , PluginState (..)
     , TLSConfig (..)
     ) where
 
@@ -39,16 +39,16 @@ data BotEnv = BotEnv
 type Bot = StateT BotState
 
 data BotState = BotState
-    { botPlugins  :: M.Map String (PluginState, MVar PluginState, ThreadId)
+    { botPlugins  :: M.Map String (PluginEnv, ThreadId)
     , botHooks    :: [Chan Message]
     , botChannels :: [String]
     , botNickname :: String
     }
 
 -- The Plugin monad
-type Plugin = StateT PluginState
+type Plugin = ReaderT PluginEnv
 
-data PluginState = PluginState
+data PluginEnv = PluginEnv
     { pluginId     :: PluginId
     , pluginChan   :: Chan Message
     , pluginMaster :: Chan Message
-- 
cgit v1.2.3