Removed thread ids from plugins data structure.

2010-05-16 17:58:38 +02:00 · 2010-05-16 17:58:38 +02:00 · 738ad9e9bb
commit 738ad9e9bb
parent c1662ba7b9
11 changed files with 37 additions and 46 deletions
--- 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