diff options
| -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 |