From 7e3cc4790afd795e3f488e0a37ce34797f07bc60 Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Mon, 19 Sep 2011 00:37:56 +0200
Subject: Cosmetic.

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

diff --git a/Hsbot/Plugin/Quote.hs b/Hsbot/Plugin/Quote.hs
index baacb77..d849c22 100644
--- a/Hsbot/Plugin/Quote.hs
+++ b/Hsbot/Plugin/Quote.hs
@@ -99,7 +99,7 @@ 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
+getLastActiveQuote channel = fmap (M.lookup channel) (asks lastActive)
 
 $(makeAcidic ''QuoteDB [ 'getQuote, 'getQuoteDB, 'isQuoteLockedFor, 'lockQuoteIdFor, 'deleteQuote, 'setQuote
                        , 'getLastActiveQuote ])
-- 
cgit v1.2.3