adyxax/hsbot
Archived
1
0
Fork 0
Code Issues Activity

Forgot to add a notification on quote start command.

Browse source
This commit is contained in:
Julien Dessaux 2011-09-30 22:46:10 +02:00
parent 09a7af7091
commit accf85183b
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Hsbot/Plugin/Quote.hs
View file

@ -261,5 +261,6 @@ quoteStart quoteDB msg quotee phrase =
let newQuote = emptyQuote { quoter = sender let newQuote = emptyQuote { quoter = sender
, quotE = [ QuoteElt { eltQuotee = quotee, eltQuote = thatQuote } ] , quotE = [ QuoteElt { eltQuotee = quotee, eltQuote = thatQuote } ]
, quoteTime = now } , quoteTime = now }
update' quoteDB (SetQuote quoteID newQuote) _ <- update' quoteDB (SetQuote quoteID newQuote)
answerMsg msg $ sender ++ ": new quote added with ID " ++ show quoteID