diff options
Diffstat (limited to 'Hsbot/Types.hs')
| -rw-r--r-- | Hsbot/Types.hs | 8 |
1 files changed, 4 insertions, 4 deletions
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 |