adyxax/hsbot
Archived
1
0
Fork 0
Code Issues Activity

Cosmetic.

Browse source
This commit is contained in:
Julien Dessaux 2011-09-19 00:37:56 +02:00
parent 5e260c4fa9
commit 7e3cc4790a
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Hsbot/Plugin/Quote.hs
View file

@ -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 ])