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
    deriving Eq Show
Medium
    title Text
    path FP.FilePath
    thumb FP.FilePath
    mime Text
    time UTCTime
    owner UserId
    description Textarea
    tags Texts
    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)