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)

---
 Plugins/Core.hs | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'Plugins/Core.hs')

diff --git a/Plugins/Core.hs b/Plugins/Core.hs
index 64e0bf7..f6bd4ef 100644
--- a/Plugins/Core.hs
+++ b/Plugins/Core.hs
@@ -28,9 +28,9 @@ run = forever $ do
   where
     eval :: BotMsg -> IrcPlugin ()
     eval (InternalCmd intCmd) = do
+        let request = intCmdBotMsg intCmd
         case intCmdCmd intCmd of
             "RUN"    -> let stuff = words $ intCmdMsg intCmd
-                            request = intCmdBotMsg intCmd
                         in case head stuff of
                             "list"   -> listPlugins request
                             "load"   -> loadPlugin $ tail stuff
@@ -38,9 +38,7 @@ run = forever $ do
                             "unload" -> unloadPlugin $ tail stuff
                             _      -> lift $ trace $ show intCmd -- TODO : help message
             "ANSWER" -> let stuff = intCmdMsg intCmd
-                            request = intCmdBotMsg intCmd
-                            chanOrigin = head $ parameters (fromMaybe (IrcMsg Nothing "ARGH" []) request)
-                        in writeMsg $ OutputMsg $ IrcMsg Nothing "PRIVMSG" [chanOrigin, "Loaded plugins : " ++ stuff]
+                        in answerMsg request ("Loaded plugins : " ++ stuff)
             _        -> lift $ trace $ show intCmd
     eval (InputMsg _) = return ()
     eval _ = return ()
-- 
cgit v1.2.3