From b60594890fabc52fcfa15b13f61267a8a5aa3c5a Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Sun, 18 Sep 2011 23:23:24 +0200
Subject: Added the getLastActiveQuote transaction.

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

diff --git a/Hsbot/Plugin/Quote.hs b/Hsbot/Plugin/Quote.hs
index 19c7d6d..9c253ed 100644
--- a/Hsbot/Plugin/Quote.hs
+++ b/Hsbot/Plugin/Quote.hs
@@ -92,10 +92,14 @@ lockQuoteIdFor quoteId requestor now = get >>= \db -> put db { lockedQuotes = M.
 setQuote :: QuoteID -> Quote -> Update QuoteDB ()
 setQuote quoteId theQuote = get >>= \db -> put db { quoteBotDB = M.insert quoteId theQuote (quoteBotDB db) }
 
+getLastActiveQuote :: IRC.Channel -> Query QuoteDB (Maybe QuoteID)
+getLastActiveQuote channel = asks lastActive >>= return . M.lookup channel
+
 setLastActiveQuote :: QuoteID -> IRC.Channel -> Update QuoteDB ()
 setLastActiveQuote quoteId channel = get >>= \db -> put db { lastActive = M.insert channel quoteId (lastActive db)}
 
-$(makeAcidic ''QuoteDB ['getQuote, 'getQuoteDB, 'isQuoteLockedFor, 'lockQuoteIdFor, 'setLastActiveQuote, 'setQuote])
+$(makeAcidic ''QuoteDB [ 'getQuote, 'getQuoteDB, 'isQuoteLockedFor, 'lockQuoteIdFor, 'setQuote
+                       , 'getLastActiveQuote, 'setLastActiveQuote ])
 
 -- | gets a random quote from the database
 getRandomQuote :: AcidState QuoteDB -> IO (Maybe Quote)
-- 
cgit v1.2.3