eidolon/config/models

66 lines
1.7 KiB
Text
Raw 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
2014-09-14 03:05:06 +00:00
deriving Typeable Eq Show
2014-08-24 19:42:42 +00:00
Activator
2014-08-12 12:37:31 +00:00
token Text
user User
2014-09-14 03:05:06 +00:00
deriving Eq Show
2014-08-24 19:42:42 +00:00
Token
token ByteString
kind Text
user UserId Maybe
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
sampleWidth Int
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
2014-08-13 16:18:35 +00:00
description Textarea
2014-08-24 19:42:42 +00:00
tags Texts
width Int
thumbWidth Int
2014-08-13 20:30:48 +00:00
album AlbumId
2014-09-14 03:05:06 +00:00
deriving Eq Show
Comment
author UserId Maybe
authorSlug Text Maybe
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)