eidolon/config/models

68 lines
1.8 KiB
Plaintext
Raw Permalink Normal View History

2015-01-18 19:44:41 +00:00
-- eidolon -- A simple gallery in Haskell and Yesod
-- Copyright (C) 2015 Amedeo Molnár
--
-- This program is free software: you can redistribute it and/or modify
-- it under the terms of the GNU Affero General Public License as published
-- by the Free Software Foundation, either version 3 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU Affero General Public License for more details.
--
-- You should have received a copy of the GNU Affero General Public License
2015-01-21 09:00:18 +00:00
-- along with this program. If not, see <http://www.gnu.org/licenses/>.
2015-01-18 19:44:41 +00:00
2014-08-09 18:33:22 +00:00
User
2014-08-12 12:37:31 +00:00
name Text
2014-08-26 02:36:21 +00:00
slug Text
2014-08-09 18:33:22 +00:00
email Text
2014-08-24 19:42:42 +00:00
salt ByteString
2014-08-26 02:36:21 +00:00
salted ByteString
2014-08-13 20:30:48 +00:00
albums [AlbumId]
admin Bool
2017-08-06 02:42:31 +00:00
defaultLicence Licence default=-1
2017-04-24 05:46:34 +00:00
active Bool default=True
2015-08-18 21:58:33 +00:00
UniqueUser name
2014-09-14 03:05:06 +00:00
deriving Typeable Eq Show
2017-04-26 19:59:45 +00:00
-- Activator
-- token Text
-- user User
-- deriving Eq Show
2014-08-24 19:42:42 +00:00
Token
token ByteString
kind Text
2017-04-24 05:46:34 +00:00
username Text
UniqueToken token
2014-09-14 03:05:06 +00:00
deriving Eq Show
Album
title Text
2014-08-13 22:52:32 +00:00
owner UserId
shares [UserId]
content [MediumId]
samplePic FP.FilePath Maybe
2014-09-14 03:05:06 +00:00
deriving Eq Show
Medium
2014-08-12 12:37:31 +00:00
title Text
path FP.FilePath
thumb FP.FilePath
2014-12-14 19:21:23 +00:00
mime Text
2014-08-12 12:37:31 +00:00
time UTCTime
2014-08-13 20:30:48 +00:00
owner UserId
description Markdown Maybe
2014-08-24 19:42:42 +00:00
tags Texts
2014-08-13 20:30:48 +00:00
album AlbumId
preview FP.FilePath
2017-08-06 02:42:31 +00:00
licence Licence default=-1
2014-09-14 03:05:06 +00:00
deriving Eq Show
Comment
author UserId
origin MediumId
parent CommentId Maybe
time UTCTime
content Markdown
deriving Show
2014-08-09 18:33:22 +00:00
-- By default this file is used in Model.hs (which is imported by Foundation.hs)