adyxax/hsbot
Archived
1
0
Fork 0
Code Issues Activity

Fixed quote start.

Browse source
This commit is contained in:
Julien Dessaux 2011-10-01 00:31:52 +02:00
parent 99462bfe9f
commit 74d72248b9
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Hsbot/Plugin/Quote.hs
View file

@ -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 | ++ | -- }"