From 0c163228b7d4cd28ebdef86266a16b8839bdb576 Mon Sep 17 00:00:00 2001 From: nek0 Date: Sun, 14 Sep 2014 05:05:06 +0200 Subject: [PATCH] deriving --- Model.hs | 4 ++++ config/models | 10 +++++----- 2 files changed, 9 insertions(+), 5 deletions(-) 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)