diff options
Diffstat (limited to '')
| -rw-r--r-- | Hsbot/IRC.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 -> |