From 86a96decdb8892b10c5314eb916ef15a64204450 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 13 Nov 2016 00:49:32 +0100
Subject: Send weekly activity at start of week about previous week

---
 src/server/Model/Database.hs | 17 +++++++++++++++--
 1 file changed, 15 insertions(+), 2 deletions(-)

(limited to 'src/server/Model/Database.hs')

diff --git a/src/server/Model/Database.hs b/src/server/Model/Database.hs
index 6a2fefe..7f8326e 100644
--- a/src/server/Model/Database.hs
+++ b/src/server/Model/Database.hs
@@ -22,8 +22,11 @@ import Data.Int (Int64)
 import Database.Persist.Sqlite
 import Database.Persist.TH
 
+import Resource (Resource, createdAt, editedAt, deletedAt)
+
 import Model.Frequency
-import Model.JobKind
+
+import Job.Kind
 
 share [mkPersist sqlSettings, mkMigrate "migrateAll"] [persistLowerCase|
 User
@@ -51,7 +54,7 @@ SignIn
   UniqSignInToken token
   deriving Show
 Job
-  kind JobKind
+  kind Kind
   lastExecution UTCTime Maybe
   lastCheck UTCTime Maybe
   UniqJobName kind
@@ -66,6 +69,16 @@ Income
   deriving Show
 |]
 
+instance Resource Payment where
+  createdAt = paymentCreatedAt
+  editedAt = paymentEditedAt
+  deletedAt = paymentDeletedAt
+
+instance Resource Income where
+  createdAt = incomeCreatedAt
+  editedAt = incomeEditedAt
+  deletedAt = incomeDeletedAt
+
 type Persist a = SqlPersistT (ResourceT (NoLoggingT IO)) a
 
 runDb :: Persist a -> IO a
-- 
cgit v1.2.3