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/Income.hs | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

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

diff --git a/src/server/Model/Income.hs b/src/server/Model/Income.hs
index f389661..b7dd11c 100644
--- a/src/server/Model/Income.hs
+++ b/src/server/Model/Income.hs
@@ -4,9 +4,10 @@ module Model.Income
   , create
   , editOwn
   , deleteOwn
+  , modifiedDuring
   ) where
 
-import Data.Time.Clock (getCurrentTime)
+import Data.Time.Clock (UTCTime, getCurrentTime)
 import Data.Time.Calendar (Day)
 
 import Control.Monad.IO.Class (liftIO)
@@ -62,3 +63,12 @@ deleteOwn user incomeId = do
           return False
     Nothing ->
       return False
+
+modifiedDuring :: UTCTime -> UTCTime -> Persist [Income]
+modifiedDuring start end =
+  map entityVal <$> selectList
+    (   [IncomeCreatedAt >=. start, IncomeCreatedAt <. end]
+    ||. [IncomeEditedAt >=. Just start, IncomeEditedAt <. Just end]
+    ||. [IncomeDeletedAt >=. Just start, IncomeDeletedAt <. Just end]
+    )
+    []
-- 
cgit v1.2.3