From 53afb9c96904ab226ccee754419569da16c59871 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 6 Sep 2015 23:25:44 +0200
Subject: Setting up the monthly job

---
 src/server/Model/Database.hs | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

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

diff --git a/src/server/Model/Database.hs b/src/server/Model/Database.hs
index d4a7d50..0bbc353 100644
--- a/src/server/Model/Database.hs
+++ b/src/server/Model/Database.hs
@@ -22,14 +22,15 @@ import Database.Persist.Sqlite
 import Database.Persist.TH
 
 import Model.Frequency
+import Model.JobKind
 
 share [mkPersist sqlSettings, mkMigrate "migrateAll"] [persistLowerCase|
 User
   creation UTCTime
   email Text
   name Text
-  UniqEmail email
-  UniqName name
+  UniqUserEmail email
+  UniqUserName name
   deriving Show
 Payment
   userId UserId
@@ -44,7 +45,12 @@ SignIn
   creation UTCTime
   email Text
   isUsed Bool
-  UniqToken token
+  UniqSignInToken token
+  deriving Show
+Job
+  kind JobKind
+  lastExecution UTCTime Maybe
+  UniqJobName kind
   deriving Show
 |]
 
-- 
cgit v1.2.3