From 8f6fb2663c07ac2754c9dca1648bb1b223bd2636 Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Sat, 1 Oct 2011 00:29:56 +0200
Subject: Fixed quote append.

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

diff --git a/Hsbot/Plugin/Quote.hs b/Hsbot/Plugin/Quote.hs
index b52137b..d022e85 100644
--- a/Hsbot/Plugin/Quote.hs
+++ b/Hsbot/Plugin/Quote.hs
@@ -147,9 +147,11 @@ theQuote = do
                     case reads quoteID :: [(Int, String)] of
                         (qid,_):_ -> quoteAppend quoteDB msg qid quotee $ unwords quoteTxt
                         _ -> do
+                            let quotee' = quoteID
+                                quoteTxt' = quotee : quoteTxt
                             lastQid <- query' quoteDB (GetLastActiveQuote (getChannel msg))
                             case lastQid of
-                                Just qid -> quoteAppend quoteDB msg qid quotee . unwords $ quoteID : quoteTxt
+                                Just qid -> quoteAppend quoteDB msg qid quotee' $ unwords quoteTxt'
                                 Nothing -> answerMsg msg $ getSender msg ++ " : Invalid quoteID."
                 "quote":"delete":quoteID:eltID ->
                     case reads quoteID :: [(Int, String)] of
-- 
cgit v1.2.3