diff options
| author | Julien Dessaux | 2011-10-01 00:31:52 +0200 |
|---|---|---|
| committer | Julien Dessaux | 2011-10-01 00:31:52 +0200 |
| commit | 74d72248b91058c166e6b2e58dda5cb8b0fca930 (patch) | |
| tree | 336861ea32098aaaae2889043ae3234bd308fff9 | |
| parent | Fixed quote delete. (diff) | |
| download | hsbot-74d72248b91058c166e6b2e58dda5cb8b0fca930.tar.gz hsbot-74d72248b91058c166e6b2e58dda5cb8b0fca930.tar.bz2 hsbot-74d72248b91058c166e6b2e58dda5cb8b0fca930.zip | |
Fixed quote start.
| -rw-r--r-- | Hsbot/Plugin/Quote.hs | 4 |
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 | ++ | -- }" |