18 lines
615 B
Text
18 lines
615 B
Text
|
User
|
||
|
ident Text sqltype=varchar(255)
|
||
|
password Text Maybe sqltype=varchar(255) default=NULL
|
||
|
UniqueUser ident
|
||
|
deriving Typeable
|
||
|
Email
|
||
|
email Text sqltype=varchar(255)
|
||
|
userId UserId Maybe sqltype=varchar(255) default=NULL
|
||
|
verkey Text Maybe sqltype=varchar(255) default=NULL
|
||
|
UniqueEmail email
|
||
|
Comment json -- Adding "json" causes ToJSON and FromJSON instances to be derived.
|
||
|
message Text sqltype=varchar(255)
|
||
|
userId UserId Maybe sqltype=varchar(255) default=NULL
|
||
|
deriving Eq
|
||
|
deriving Show
|
||
|
|
||
|
-- By default this file is used in Model.hs (which is imported by Foundation.hs)
|