diff options
| author | Julien Dessaux | 2010-04-22 00:05:35 +0200 |
|---|---|---|
| committer | Julien Dessaux | 2010-04-22 00:10:13 +0200 |
| commit | d922240e9a28680d48014604576620d7fc5aa605 (patch) | |
| tree | 60185f299eebb04d8da9b79e9afd011d6147e411 /Hsbot/Command.hs | |
| parent | Make the main thread exit cleanly in case of connection loss. (diff) | |
| download | hsbot-d922240e9a28680d48014604576620d7fc5aa605.tar.gz hsbot-d922240e9a28680d48014604576620d7fc5aa605.tar.bz2 hsbot-d922240e9a28680d48014604576620d7fc5aa605.zip | |
Wrote the list plugin command.
Diffstat (limited to '')
| -rw-r--r-- | Hsbot/Command.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/Hsbot/Command.hs b/Hsbot/Command.hs index 1eaee82..ea372e4 100644 --- a/Hsbot/Command.hs +++ b/Hsbot/Command.hs @@ -76,7 +76,9 @@ processInternalCommand _ = return () processCoreCommand :: IntCmd -> IrcBot () processCoreCommand intCmd = do let command' = intCmdCmd intCmd + originalRequest = intCmdBotMsg intCmd case command' of + "LIST" -> listPlugins originalRequest (intCmdFrom intCmd) "LOAD" -> traceM $ inColor "hsbot has been compiled in static mode." [31] "UNLOAD" -> unloadPlugin $ intCmdMsg intCmd "REGISTER" -> registerCommand (intCmdMsg intCmd) (intCmdFrom intCmd) |