eidolon/config/models
2015-01-18 20:44:41 +01:00

65 lines
1.7 KiB
Text

-- 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
-- along with this program. If not, see <http://www.gnu.org/licenses/>.module Handler.Activate where
User
name Text
slug Text
email Text
salt ByteString
salted ByteString
albums [AlbumId]
admin Bool
deriving Typeable Eq Show
Activator
token Text
user User
deriving Eq Show
Token
token ByteString
kind Text
user UserId Maybe
deriving Eq Show
Album
title Text
owner UserId
shares [UserId]
content [MediumId]
samplePic FP.FilePath Maybe
sampleWidth Int
deriving Eq Show
Medium
title Text
path FP.FilePath
thumb FP.FilePath
mime Text
time UTCTime
owner UserId
description Textarea
tags Texts
width Int
thumbWidth Int
album AlbumId
deriving Eq Show
Comment
author UserId Maybe
authorSlug Text Maybe
origin MediumId
parent CommentId Maybe
time UTCTime
content Markdown
deriving Show
-- By default this file is used in Model.hs (which is imported by Foundation.hs)