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
    content [MediumId]
    samplePic FilePath Maybe
    deriving Eq Show
Medium
    title Text
    path FilePath
    thumb FilePath
    time UTCTime
    owner UserId
    description Textarea
    tags Texts
    album AlbumId
    deriving Eq Show

 -- By default this file is used in Model.hs (which is imported by Foundation.hs)