diff options
| author | Julien Dessaux | 2011-05-01 03:11:32 +0200 |
|---|---|---|
| committer | Julien Dessaux | 2011-05-01 03:28:28 +0200 |
| commit | c497b24700eeea4269e4d76559e8023284a0a213 (patch) | |
| tree | 9d09a769232cb93e3987f999f12a3203b81443b1 /Hsbot/Types.hs | |
| parent | Improved message utilities. (diff) | |
| download | hsbot-c497b24700eeea4269e4d76559e8023284a0a213.tar.gz hsbot-c497b24700eeea4269e4d76559e8023284a0a213.tar.bz2 hsbot-c497b24700eeea4269e4d76559e8023284a0a213.zip | |
Added plugin loading, and the most basic hook capability.
Diffstat (limited to '')
| -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 |