From 4c76d3d40bbfea365283c13256b3e7cf2d2deb5e Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Wed, 21 Apr 2010 20:57:22 +0200
Subject: Fixed several stuff.

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

(limited to 'Hsbot/Command.hs')

diff --git a/Hsbot/Command.hs b/Hsbot/Command.hs
index 76f1d04..3977a57 100644
--- 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
-- 
cgit v1.2.3