From d2f40f64819ec0b19911c684ea919beebf16af6d Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Thu, 4 Feb 2010 20:38:06 +0100
Subject: Finished changing plugin data structure to Maps.

---
 Hsbot/IRC.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Hsbot/IRC.hs')

diff --git a/Hsbot/IRC.hs b/Hsbot/IRC.hs
index 3fe2181..a8f3fcb 100644
--- a/Hsbot/IRC.hs
+++ b/Hsbot/IRC.hs
@@ -5,6 +5,7 @@ module Hsbot.IRC
 
 import Control.Concurrent.Chan
 import Control.Monad.State
+import qualified Data.Map as M
 
 import Hsbot.IRCParser
 import Hsbot.Plugin
@@ -30,7 +31,7 @@ runServer = do
     msg <- liftIO input
     case msg of
         InputMsg inputMsg ->
-            mapM_ (sendToPlugin $ InputMsg inputMsg) plugins
+            mapM_ (sendToPlugin (InputMsg inputMsg) . snd) (M.toList plugins)
         OutputMsg outputMsg ->
             sendstr (serializeIrcMsg outputMsg)
         InternalCmd internalCmd ->
-- 
cgit v1.2.3