2016-02-14 18:10:21 +09:00
|
|
|
-- This file is part of Vervis.
|
|
|
|
|
--
|
|
|
|
|
-- Written in 2016 by fr33domlover <fr33domlover@riseup.net>.
|
|
|
|
|
--
|
|
|
|
|
-- ♡ Copying is an act of love. Please copy, reuse and share.
|
|
|
|
|
--
|
|
|
|
|
-- The author(s) have dedicated all copyright and related and neighboring
|
|
|
|
|
-- rights to this software to the public domain worldwide. This software is
|
|
|
|
|
-- distributed without any warranty.
|
|
|
|
|
--
|
|
|
|
|
-- You should have received a copy of the CC0 Public Domain Dedication along
|
|
|
|
|
-- with this software. If not, see
|
|
|
|
|
-- <http://creativecommons.org/publicdomain/zero/1.0/>.
|
|
|
|
|
|
2016-02-13 12:35:30 +09:00
|
|
|
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
|
|
|
|
|
|
|
|
|
|
-- By default this file is used in Model.hs (which is imported by Foundation.hs)
|
