diff options
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 |