diff options
| author | Julien Dessaux | 2011-09-19 00:36:21 +0200 |
|---|---|---|
| committer | Julien Dessaux | 2011-09-19 00:36:21 +0200 |
| commit | 0a6a1a2af0ce01fc875a31b4dd9845dd0fa7813e (patch) | |
| tree | df17bfe186516ebf1809de0ad29d536d39ca32b4 | |
| parent | Improved last active quote handling. (diff) | |
| download | hsbot-0a6a1a2af0ce01fc875a31b4dd9845dd0fa7813e.tar.gz hsbot-0a6a1a2af0ce01fc875a31b4dd9845dd0fa7813e.tar.bz2 hsbot-0a6a1a2af0ce01fc875a31b4dd9845dd0fa7813e.zip | |
Made quote append slightly more readable.
| -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 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 |