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 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 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)