Fixed several stuff.

2010-04-21 20:57:22 +02:00 · 2010-04-21 20:57:22 +02:00 · 4c76d3d40b
commit 4c76d3d40b
parent bfc06f1ff1
10 changed files with 25 additions and 21 deletions
--- a/Hsbot/Command.hs
+++ b/Hsbot/Command.hs
@ -58,7 +58,7 @@ dispatchMessage (InputMsg inputMsg) = do
    sendRunCommand cmd plugin = do
        sendToPlugin (InternalCmd $ IntCmd "RUN" "CORE" (pluginName plugin) cmd) plugin
    getMsgContent :: String
-    getMsgContent = (parameters inputMsg) !! 1
+    getMsgContent = unwords . tail $ parameters inputMsg
 dispatchMessage _ = return ()

 -- | Processes an internal command