From 74d72248b91058c166e6b2e58dda5cb8b0fca930 Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Sat, 1 Oct 2011 00:31:52 +0200
Subject: Fixed quote start.

---
 Hsbot/Plugin/Quote.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Hsbot/Plugin/Quote.hs b/Hsbot/Plugin/Quote.hs
index af61114..0e8e363 100644
--- a/Hsbot/Plugin/Quote.hs
+++ b/Hsbot/Plugin/Quote.hs
@@ -192,8 +192,8 @@ theQuote = do
                                 Nothing -> answerMsg msg $ (getSender msg) ++ ": Invalid quoteID or empty database."
                         _ -> answerMsg msg $ getSender msg ++ " : Invalid quoteID."
                 "quote":"show":[] -> showRandomQuote
-                "quote":"start":quotee:[phrase] -> quoteStart quoteDB msg quotee phrase
-                "quote":quotee:[phrase] -> quoteStart quoteDB msg quotee phrase
+                "quote":"start":quotee:phrase -> quoteStart quoteDB msg quotee $ unwords phrase
+                "quote":quotee:phrase -> quoteStart quoteDB msg quotee $ unwords phrase
                 "quote":_ -> answerMsg msg "Invalid quote command."
                 "vote":"help":"quick":_ -> do
                     answerMsg msg "vote [quick] [QUOTEID] { +1 | -1 | ++ | -- }"
-- 
cgit v1.2.3