From 455b18bc1044d8f4cfb0d99c19f9f38955d00d00 Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Wed, 21 Apr 2010 21:01:07 +0200
Subject: Removed all the dynamic module loading stuff.

---
 Hsbot/Command.hs | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'Hsbot/Command.hs')

diff --git a/Hsbot/Command.hs b/Hsbot/Command.hs
index 3977a57..f42db98 100644
--- a/Hsbot/Command.hs
+++ b/Hsbot/Command.hs
@@ -77,12 +77,9 @@ processCoreCommand :: IntCmd -> IrcBot ()
 processCoreCommand intCmd = do
     let command' = intCmdCmd intCmd
     case command' of
-        "LOAD"       -> loadPlugin $ intCmdMsg intCmd
-        "RELOAD"     -> reloadPlugin $ intCmdMsg intCmd
+        "LOAD"       -> traceM $ inColor "hsbot has been compiled in static mode." [31]
         "UNLOAD"     -> unloadPlugin $ intCmdMsg intCmd
         "REGISTER"   -> registerCommand (intCmdMsg intCmd) (intCmdFrom intCmd)
         "UNREGISTER" -> unregisterCommand (intCmdMsg intCmd) (intCmdFrom intCmd)
         _            -> traceM $ inColor ("Invalid command : " ++ (show intCmd)) [31]
-    bot' <- get
-    traceM $ show bot'
 
-- 
cgit v1.2.3