From 727adadc28a40fe8843a0727168684d3c2b3e114 Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Thu, 22 Apr 2010 19:42:53 +0200
Subject: Added an utility function to correctly answer a message we receive
 (aka /msg)

---
 Hsbot/Command.hs | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'Hsbot/Command.hs')

diff --git a/Hsbot/Command.hs b/Hsbot/Command.hs
index ea372e4..711aa32 100644
--- a/Hsbot/Command.hs
+++ b/Hsbot/Command.hs
@@ -38,16 +38,16 @@ unregisterCommand cmd pluginName' = do
 
 -- | Dispatches an input message
 dispatchMessage :: BotMsg -> IrcBot ()
-dispatchMessage (InputMsg inputMsg) = do
-    plugins <- gets botPlugins
-    cmds    <- gets botCommands
-    if isPluginCommand  --TODO : how to get rid of this if?
-      then
+dispatchMessage (InputMsg inputMsg)
+    | isPluginCommand = do
+        plugins <- gets botPlugins
+        cmds    <- gets botCommands
         let key         = tail $ head $ words getMsgContent
             pluginNames = fromMaybe [] $ M.lookup key cmds
             plugins'    = fromMaybe [] $ mapM (flip M.lookup plugins) pluginNames
-        in mapM_ (sendRunCommand $ tail getMsgContent) plugins'
-      else
+        mapM_ (sendRunCommand $ tail getMsgContent) plugins'
+    | otherwise       = do
+        plugins <- gets botPlugins
         mapM_ (sendToPlugin (InputMsg inputMsg)) (M.elems plugins)
   where
     isPluginCommand :: Bool
-- 
cgit v1.2.3