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-07-02 13:21:39 +00:00
|
|
|
UniqueUser ident
|
|
|
|
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
|
|
|
|
created UTCTime default=CURRENT_TIME
|
|
|
|
|
|
|
|
-- nbView must be equal to nbVotes for entry
|
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
|
2012-08-29 12:27:00 +00:00
|
|
|
VoteComment
|
|
|
|
creator UserId
|
|
|
|
comment CommentId
|
|
|
|
value Int
|
|
|
|
deriving Show
|
2012-07-03 21:23:02 +00:00
|
|
|
Comment
|
2012-08-09 06:27:07 +00:00
|
|
|
entry EntryId
|
2012-08-19 08:21:27 +00:00
|
|
|
creator UserId
|
|
|
|
replyTo CommentId Maybe
|
|
|
|
created UTCTime default=CURRENT_TIME
|
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-07-02 13:21:39 +00:00
|
|
|
|
|
|
|
-- By default this file is used in Model.hs (which is imported by Foundation.hs)
|