22 lines
662 B
Text
22 lines
662 B
Text
User
|
|
ident Text sqltype=varchar(255)
|
|
fullName Text sqltype=varchar(500)
|
|
email Text sqltype=varchar(255)
|
|
note Text
|
|
password Text Maybe sqltype=varchar(255) default=NULL
|
|
UniqueUser ident
|
|
deriving Typeable
|
|
Comment json -- Adding "json" causes ToJSON and FromJSON instances to be derived.
|
|
message Text sqltype=varchar(255)
|
|
userId UserId Maybe default=NULL
|
|
deriving Eq
|
|
deriving Show
|
|
Site
|
|
icon Text sqltype=varchar(255)
|
|
url Text sqltype=varchar(255)
|
|
Profile
|
|
userId UserId
|
|
siteId SiteId
|
|
username Text sqltype=varchar(255)
|
|
|
|
-- By default this file is used in Model.hs (which is imported by Foundation.hs)
|