diff options
| author | Julien Dessaux | 2010-04-21 21:01:07 +0200 |
|---|---|---|
| committer | Julien Dessaux | 2010-04-21 22:37:06 +0200 |
| commit | 455b18bc1044d8f4cfb0d99c19f9f38955d00d00 (patch) | |
| tree | 72e82c5c0088b9b408bf6401d13402a96daeac99 /Hsbot/Command.hs | |
| parent | Fixed several stuff. (diff) | |
| download | hsbot-455b18bc1044d8f4cfb0d99c19f9f38955d00d00.tar.gz hsbot-455b18bc1044d8f4cfb0d99c19f9f38955d00d00.tar.bz2 hsbot-455b18bc1044d8f4cfb0d99c19f9f38955d00d00.zip | |
Removed all the dynamic module loading stuff.
Diffstat (limited to 'Hsbot/Command.hs')
| -rw-r--r-- | Hsbot/Command.hs | 5 |
1 files changed, 1 insertions, 4 deletions
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' |