diff options
| author | Julien Dessaux | 2010-04-22 19:42:53 +0200 |
|---|---|---|
| committer | Julien Dessaux | 2010-04-22 19:42:53 +0200 |
| commit | 727adadc28a40fe8843a0727168684d3c2b3e114 (patch) | |
| tree | 03af9d78502488676c74d1f55762c5c6b6de2116 /Plugins/Core.hs | |
| parent | Wrote the list plugin command. (diff) | |
| download | hsbot-727adadc28a40fe8843a0727168684d3c2b3e114.tar.gz hsbot-727adadc28a40fe8843a0727168684d3c2b3e114.tar.bz2 hsbot-727adadc28a40fe8843a0727168684d3c2b3e114.zip | |
Added an utility function to correctly answer a message we receive (aka /msg)
Diffstat (limited to '')
| -rw-r--r-- | Plugins/Core.hs | 6 |
1 files changed, 2 insertions, 4 deletions
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 () |