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)