Cosmetic.
This commit is contained in:
parent
5e260c4fa9
commit
7e3cc4790a
1 changed files with 1 additions and 1 deletions
|
@ -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 ])
|
||||
|
|
Reference in a new issue