diff options
| -rw-r--r-- | Hsbot/Plugin/Quote.hs | 4 |
1 files changed, 3 insertions, 1 deletions
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 |