summaryrefslogtreecommitdiff
path: root/Hsbot/Plugin
diff options
context:
space:
mode:
authorJulien Dessaux2011-10-01 00:31:52 +0200
committerJulien Dessaux2011-10-01 00:31:52 +0200
commit74d72248b91058c166e6b2e58dda5cb8b0fca930 (patch)
tree336861ea32098aaaae2889043ae3234bd308fff9 /Hsbot/Plugin
parentFixed quote delete. (diff)
downloadhsbot-74d72248b91058c166e6b2e58dda5cb8b0fca930.tar.gz
hsbot-74d72248b91058c166e6b2e58dda5cb8b0fca930.tar.bz2
hsbot-74d72248b91058c166e6b2e58dda5cb8b0fca930.zip
Fixed quote start.
Diffstat (limited to '')
-rw-r--r--Hsbot/Plugin/Quote.hs4
1 files 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 | ++ | -- }"