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