From d922240e9a28680d48014604576620d7fc5aa605 Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Thu, 22 Apr 2010 00:05:35 +0200
Subject: Wrote the list plugin command.

---
 Hsbot/Command.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'Hsbot/Command.hs')

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)
-- 
cgit v1.2.3