eidolon/config/models

69 lines
1.7 KiB
Text
Raw Normal View History

2015-01-18 20:44:41 +01: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 10:00:18 +01:00
-- along with this program. If not, see <http://www.gnu.org/licenses/>.
2015-01-18 20:44:41 +01:00
2014-08-09 20:33:22 +02:00
User
2014-08-12 14:37:31 +02:00
name Text
2014-08-26 04:36:21 +02:00
slug Text
2014-08-09 20:33:22 +02:00
email Text
2014-08-24 21:42:42 +02:00
salt ByteString
2014-08-26 04:36:21 +02:00
salted ByteString
2014-08-13 22:30:48 +02:00
albums [AlbumId]
admin Bool
2015-08-18 23:58:33 +02:00
UniqueUser name
2014-09-14 05:05:06 +02:00
deriving Typeable Eq Show
2014-08-24 21:42:42 +02:00
Activator
2014-08-12 14:37:31 +02:00
token Text
user User
2014-09-14 05:05:06 +02:00
deriving Eq Show
2014-08-24 21:42:42 +02:00
Token
token ByteString
kind Text
user UserId Maybe
2014-09-14 05:05:06 +02:00
deriving Eq Show
Album
title Text
2014-08-14 00:52:32 +02:00
owner UserId
shares [UserId]
content [MediumId]
samplePic FP.FilePath Maybe
2016-09-06 17:30:41 +02:00
-- sampleWidth Int
2014-09-14 05:05:06 +02:00
deriving Eq Show
Medium
2014-08-12 14:37:31 +02:00
title Text
path FP.FilePath
thumb FP.FilePath
2014-12-14 20:21:23 +01:00
mime Text
2014-08-12 14:37:31 +02:00
time UTCTime
2014-08-13 22:30:48 +02:00
owner UserId
description Textarea Maybe
2014-08-24 21:42:42 +02:00
tags Texts
2016-09-06 17:30:41 +02:00
-- width Int
-- thumbWidth Int
2014-08-13 22:30:48 +02:00
album AlbumId
preview FP.FilePath
2016-09-06 17:30:41 +02:00
-- previewWidth Int
2014-09-14 05:05:06 +02:00
deriving Eq Show
Comment
author UserId
authorSlug Text
origin MediumId
parent CommentId Maybe
time UTCTime
content Markdown
deriving Show
2014-08-09 20:33:22 +02:00
-- By default this file is used in Model.hs (which is imported by Foundation.hs)