From 5babf01323bcb62a9880593165af70732f22751b Mon Sep 17 00:00:00 2001 From: Joris Date: Sun, 13 Sep 2015 12:04:52 +0200 Subject: Adding income database table with a getter and a setter --- src/server/Model/Database.hs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/server/Model/Database.hs') diff --git a/src/server/Model/Database.hs b/src/server/Model/Database.hs index 0bbc353..c88322f 100644 --- a/src/server/Model/Database.hs +++ b/src/server/Model/Database.hs @@ -52,6 +52,10 @@ Job lastExecution UTCTime Maybe UniqJobName kind deriving Show +Income + userId UserId + creation UTCTime + amount Int |] type Persist a = SqlPersistT (ResourceT (NoLoggingT IO)) a -- cgit v1.2.3