Made quote append slightly more readable.
This commit is contained in:
parent
9bbb6228a0
commit
0a6a1a2af0
1 changed files with 2 additions and 1 deletions
|
@ -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
|
||||
|
||||
|
|
Reference in a new issue