diff options
Diffstat (limited to 'Hsbot/Types.hs')
| -rw-r--r-- | Hsbot/Types.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Hsbot/Types.hs b/Hsbot/Types.hs index e906a10..3e00fb2 100644 --- a/Hsbot/Types.hs +++ b/Hsbot/Types.hs @@ -38,7 +38,7 @@ data BotEnv = BotEnv type Bot = StateT BotState data BotState = BotState - { botPlugins :: M.Map String (PluginState, MVar (), ThreadId) + { botPlugins :: M.Map String (PluginState, MVar PluginState, ThreadId) , botHooks :: [Chan Message] , botChannels :: [String] , botNickname :: String @@ -55,7 +55,7 @@ data PluginState = PluginState data PluginId = PluginId { pluginName :: String - , pluginEp :: PluginState -> IO () + , pluginEp :: Plugin (Env IO) () } -- Messaging @@ -73,7 +73,7 @@ data Config = Config , configChannels :: [String] , configNicknames :: [String] , configRealname :: String - , configPlugins :: [(String, Chan Message -> Chan Message -> IO ())] + , configPlugins :: [PluginId] } data TLSConfig = TLSConfig |