diff --git a/Model.hs b/Model.hs index c288679..7ddec37 100644 --- a/Model.hs +++ b/Model.hs @@ -3,10 +3,14 @@ module Model where import Yesod import Data.Text (Text) import Database.Persist.Quasi +import Database.Persist +import Database.Persist.TH import Data.Typeable (Typeable) +import Data.Eq (Eq) import Data.Time (UTCTime) import Data.ByteString import Data.Bool +import Text.Show (Show) import System.FilePath (FilePath) -- You can define all of your database entities in the entities file. diff --git a/config/models b/config/models index b0fb82e..8eead79 100644 --- a/config/models +++ b/config/models @@ -6,22 +6,22 @@ User salted ByteString albums [AlbumId] admin Bool - deriving Typeable + deriving Typeable Eq Show Activator token Text user User - deriving + deriving Eq Show Token token ByteString kind Text user UserId Maybe - deriving + deriving Eq Show Album title Text owner UserId content [MediumId] samplePic FilePath Maybe - deriving + deriving Eq Show Medium title Text path FilePath @@ -30,6 +30,6 @@ Medium description Textarea tags Texts album AlbumId - deriving + deriving Eq Show -- By default this file is used in Model.hs (which is imported by Foundation.hs)