From cfca18262c1ff48dcb683ddab7d03cf8e55573ff Mon Sep 17 00:00:00 2001
From: Joris
Date: Fri, 24 Mar 2017 09:21:04 +0000
Subject: Features/categories

---
 src/server/Job/WeeklyReport.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/server/Job/WeeklyReport.hs')

diff --git a/src/server/Job/WeeklyReport.hs b/src/server/Job/WeeklyReport.hs
index 0d1eb35..5cde3e9 100644
--- a/src/server/Job/WeeklyReport.hs
+++ b/src/server/Job/WeeklyReport.hs
@@ -7,7 +7,7 @@ import Data.Time.Clock (UTCTime, getCurrentTime)
 import Model.Database (runDb)
 import qualified Model.Payment as Payment
 import qualified Model.Income as Income
-import Model.User (getUsers)
+import qualified Model.User as User
 
 import SendMail
 
@@ -25,7 +25,7 @@ weeklyReport conf mbLastExecution = do
         (,,) <$>
           Payment.modifiedDuring lastExecution now <*>
           Income.modifiedDuring lastExecution now <*>
-          getUsers
+          User.list
       _ <- sendMail (mail conf users payments incomes lastExecution now)
       return ()
   return now
-- 
cgit v1.2.3