summaryrefslogtreecommitdiff
path: root/Hsbot/Plugin
diff options
context:
space:
mode:
authorJulien Dessaux2011-09-19 00:36:21 +0200
committerJulien Dessaux2011-09-19 00:36:21 +0200
commit0a6a1a2af0ce01fc875a31b4dd9845dd0fa7813e (patch)
treedf17bfe186516ebf1809de0ad29d536d39ca32b4 /Hsbot/Plugin
parentImproved last active quote handling. (diff)
downloadhsbot-0a6a1a2af0ce01fc875a31b4dd9845dd0fa7813e.tar.gz
hsbot-0a6a1a2af0ce01fc875a31b4dd9845dd0fa7813e.tar.bz2
hsbot-0a6a1a2af0ce01fc875a31b4dd9845dd0fa7813e.zip
Made quote append slightly more readable.
Diffstat (limited to '')
-rw-r--r--Hsbot/Plugin/Quote.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/Hsbot/Plugin/Quote.hs b/Hsbot/Plugin/Quote.hs
index 30db0c3..b74244c 100644
--- a/Hsbot/Plugin/Quote.hs
+++ b/Hsbot/Plugin/Quote.hs
@@ -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