Send weekly activity at start of week about previous week

1 files changed, 15 insertions, 2 deletions

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