From 738ad9e9bbbefb43a7889a458ff1c326a324eb9a Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Sun, 16 May 2010 17:58:38 +0200
Subject: Removed thread ids from plugins data structure.

---
 Hsbot/Irc/Command.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Hsbot/Irc/Command.hs')

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
-- 
cgit v1.2.3