adyxax/hsbot
Archived
1
0
Fork 0
Code Issues Activity

Updated schema to save the channel on which the quote is from.

Browse source
This commit is contained in:
Julien Dessaux 2011-09-30 22:58:59 +02:00
parent accf85183b
commit d7e6ca9a30
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Hsbot/Plugin/Quote.hs
View file

@ -32,6 +32,7 @@ type QuoteID = Int
-- | A quote object
data Quote = Quote
{ quoter :: IRC.UserName
, quoteFrom :: IRC.Channel
, quotE :: [QuoteElt]
, quoteTime :: UTCTime
, votes :: Int
@ -40,6 +41,7 @@ data Quote = Quote
emptyQuote :: Quote
emptyQuote = Quote { quoter = ""
, quoteFrom = ""
, quotE = []
, quoteTime = posixSecondsToUTCTime 0
, votes = 0
@ -259,6 +261,7 @@ quoteStart quoteDB msg quotee phrase =
now <- liftIO getCurrentTime
quoteID <- update' quoteDB (TakeNextQuoteID sender channel now)
let newQuote = emptyQuote { quoter = sender
, quoteFrom = channel
, quotE = [ QuoteElt { eltQuotee = quotee, eltQuote = thatQuote } ]
, quoteTime = now }
_ <- update' quoteDB (SetQuote quoteID newQuote)