1 files changed, 3 insertions, 2 deletions
diff --git a/server/src/Job/WeeklyReport.hs b/server/src/Job/WeeklyReport.hs
index ff80ddf..282f2f1 100644
--- a/server/src/Job/WeeklyReport.hs
+++ b/server/src/Job/WeeklyReport.hs
@@ -3,6 +3,7 @@ module Job.WeeklyReport
   ) where
 
 import qualified Data.Map               as M
+import qualified Data.Time.Clock              as Clock
 import           Data.Time.Clock        (UTCTime, getCurrentTime)
 
 import           Common.Model           (User (..))
@@ -30,8 +31,8 @@ weeklyReport conf mbLastExecution = do
         incomeDefinedForAll <- IncomePersistence.definedForAll (_user_id <$> users)
         cumulativeIncome <-
           case (incomeDefinedForAll, paymentRange) of
-            (Just incomeStart, Just (paymentStart, paymentEnd))  ->
-              IncomePersistence.getCumulativeIncome (max incomeStart paymentStart) paymentEnd
+            (Just incomeStart, Just (paymentStart, _))  ->
+              IncomePersistence.getCumulativeIncome (max incomeStart paymentStart) (Clock.utctDay now)
 
             _ ->
               return M.empty