diff options
author | Julien Dessaux | 2010-05-16 17:58:38 +0200 |
---|---|---|
committer | Julien Dessaux | 2010-05-16 17:58:38 +0200 |
commit | 738ad9e9bbbefb43a7889a458ff1c326a324eb9a (patch) | |
tree | f8337cc73ffdfa6956dc9425a8338fe496eafec7 /Hsbot/Irc/Command.hs | |
parent | Rewrote nearly everything! (diff) | |
download | hsbot-738ad9e9bbbefb43a7889a458ff1c326a324eb9a.tar.gz hsbot-738ad9e9bbbefb43a7889a458ff1c326a324eb9a.tar.bz2 hsbot-738ad9e9bbbefb43a7889a458ff1c326a324eb9a.zip |
Removed thread ids from plugins data structure.
Diffstat (limited to '')
-rw-r--r-- | Hsbot/Irc/Command.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Hsbot/Irc/Command.hs b/Hsbot/Irc/Command.hs index 3f5c8c1..e5c033e 100644 --- a/Hsbot/Irc/Command.hs +++ b/Hsbot/Irc/Command.hs @@ -40,8 +40,8 @@ processInternalCommand (IntIrcCmd ircCmd) | otherwise = do plugins <- gets ircBotPlugins case M.lookup (ircCmdTo ircCmd) plugins of - Just plugin -> sendToPlugin (IntIrcCmd ircCmd) plugin - Nothing -> return () + Just (plugin, _) -> sendToPlugin (IntIrcCmd ircCmd) plugin + Nothing -> return () processInternalCommand _ = return () -- | Processes a core command |