From 0a6a1a2af0ce01fc875a31b4dd9845dd0fa7813e Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Mon, 19 Sep 2011 00:36:21 +0200
Subject: Made quote append slightly more readable.

---
 Hsbot/Plugin/Quote.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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
 
-- 
cgit v1.2.3