2021-07-26 22:03:32 +00:00
|
|
|
-- By default this file is used by `persistFileWith` in Model.hs (which is imported by Foundation.hs)
|
|
|
|
-- Syntax for this file here: https://github.com/yesodweb/persistent/blob/master/docs/Persistent-entity-syntax.md
|
|
|
|
|
|
|
|
-- User
|
|
|
|
-- ident Text
|
|
|
|
-- password Text Maybe
|
|
|
|
-- UniqueUser ident
|
|
|
|
-- deriving Typeable
|
|
|
|
-- Email
|
|
|
|
-- email Text
|
|
|
|
-- userId UserId Maybe
|
|
|
|
-- verkey Text Maybe
|
|
|
|
-- UniqueEmail email
|
|
|
|
-- Comment json -- Adding "json" causes ToJSON and FromJSON instances to be derived.
|
|
|
|
-- message Text
|
|
|
|
-- userId UserId Maybe
|
|
|
|
-- deriving Eq
|
|
|
|
-- deriving Show
|
|
|
|
|
2012-07-02 13:21:39 +00:00
|
|
|
User
|
2012-08-03 21:46:49 +00:00
|
|
|
ident Text
|
|
|
|
password Text Maybe
|
2012-09-03 10:24:48 +00:00
|
|
|
verkey Text Maybe
|
|
|
|
verified Bool
|
2012-10-05 15:05:07 +00:00
|
|
|
nickname Text
|
|
|
|
realName Text Maybe
|
|
|
|
UniqueNickname nickname
|
2021-07-26 22:03:32 +00:00
|
|
|
UniqueUser ident
|
2012-10-05 15:05:07 +00:00
|
|
|
deriving Show
|
2012-07-02 13:21:39 +00:00
|
|
|
Email
|
2012-08-03 21:46:49 +00:00
|
|
|
email Text
|
|
|
|
user UserId Maybe
|
|
|
|
verkey Text Maybe
|
2012-07-02 13:21:39 +00:00
|
|
|
UniqueEmail email
|
2012-07-03 21:23:02 +00:00
|
|
|
Entry
|
2012-08-09 06:27:07 +00:00
|
|
|
creator UserId
|
2012-08-03 21:46:49 +00:00
|
|
|
title Text
|
2012-09-07 12:07:24 +00:00
|
|
|
url Text Maybe
|
2012-08-30 13:41:59 +00:00
|
|
|
text Textarea Maybe
|
2012-09-07 15:06:15 +00:00
|
|
|
yeah Int default=0
|
|
|
|
neah Int default=0
|
2012-08-19 08:21:27 +00:00
|
|
|
nbView Int default=0
|
2012-12-21 16:51:25 +00:00
|
|
|
created UTCTime default=now()
|
2012-08-09 06:27:07 +00:00
|
|
|
Vote
|
|
|
|
creator UserId
|
|
|
|
entry EntryId
|
|
|
|
value Int
|
2012-08-09 15:00:11 +00:00
|
|
|
deriving Show
|
2021-07-26 22:03:32 +00:00
|
|
|
Comment json
|
2012-08-09 06:27:07 +00:00
|
|
|
entry EntryId
|
2012-09-14 17:57:12 +00:00
|
|
|
creator UserId Maybe
|
2012-08-19 08:21:27 +00:00
|
|
|
replyTo CommentId Maybe
|
2012-12-21 16:51:25 +00:00
|
|
|
created UTCTime default=now()
|
2012-08-30 13:41:59 +00:00
|
|
|
content Textarea
|
2012-09-04 13:35:47 +00:00
|
|
|
yeah Int default=0
|
|
|
|
neah Int default=0
|
2012-09-07 15:06:15 +00:00
|
|
|
nbView Int default=0
|
2012-08-09 15:00:11 +00:00
|
|
|
deriving Show
|
2012-12-21 15:06:35 +00:00
|
|
|
VoteComment
|
|
|
|
creator UserId
|
|
|
|
comment CommentId
|
|
|
|
value Int
|
|
|
|
deriving Show
|