diff options
| author | Julien Dessaux | 2011-09-30 22:46:10 +0200 |
|---|---|---|
| committer | Julien Dessaux | 2011-09-30 22:46:10 +0200 |
| commit | accf85183b5bce8437e003046f57761615ebb70a (patch) | |
| tree | 2c726f57c92e19d00d3077614c923c8d4ce45e72 /Hsbot/Plugin | |
| parent | cosmetic (diff) | |
| download | hsbot-accf85183b5bce8437e003046f57761615ebb70a.tar.gz hsbot-accf85183b5bce8437e003046f57761615ebb70a.tar.bz2 hsbot-accf85183b5bce8437e003046f57761615ebb70a.zip | |
Forgot to add a notification on quote start command.
Diffstat (limited to '')
| -rw-r--r-- | Hsbot/Plugin/Quote.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Hsbot/Plugin/Quote.hs b/Hsbot/Plugin/Quote.hs index bb8b531..953ae52 100644 --- a/Hsbot/Plugin/Quote.hs +++ b/Hsbot/Plugin/Quote.hs @@ -261,5 +261,6 @@ quoteStart quoteDB msg quotee phrase = let newQuote = emptyQuote { quoter = sender , quotE = [ QuoteElt { eltQuotee = quotee, eltQuote = thatQuote } ] , quoteTime = now } - update' quoteDB (SetQuote quoteID newQuote) + _ <- update' quoteDB (SetQuote quoteID newQuote) + answerMsg msg $ sender ++ ": new quote added with ID " ++ show quoteID |