adyxax/hsbot
Archived
1
0
Fork 0
Code Issues Activity

Made quote append slightly more readable.

Browse source
This commit is contained in:
Julien Dessaux 2011-09-19 00:36:21 +02:00
parent 9bbb6228a0
commit 0a6a1a2af0
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Hsbot/Plugin/Quote.hs
View file

@ -176,9 +176,10 @@ quoteAppend quoteDB msg quoteID quotee text = do
let newQuote = fromMaybe emptyQuote mQuote
newQuote' = newQuote { quotE = quotE newQuote ++ [ QuoteElt { eltQuotee = quotee, eltQuote = text } ] }
_ <- update' quoteDB (SetQuote quoteID newQuote')
answerMsg msg $ sender ++ ": Appended to quote " ++ show quoteID
answerMsg msg $ sender ++ ": Appended to quote " ++ show quoteID ++ "."
Just False -> answerMsg msg $ sender ++ ": Someone else is editing this quote right now."
Nothing -> answerMsg msg $ sender ++ ":quoteId not found."
where
sender = getSender msg
channel = getChannel msg