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/Controller/Payment.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/server/Controller')

diff --git a/src/server/Controller/Payment.hs b/src/server/Controller/Payment.hs
index 25d3261..7cbfb37 100644
--- a/src/server/Controller/Payment.hs
+++ b/src/server/Controller/Payment.hs
@@ -37,7 +37,7 @@ getPaymentsAction page perPage =
 getMonthlyPaymentsAction :: ActionM ()
 getMonthlyPaymentsAction =
   Secure.loggedAction (\user -> do
-    (liftIO $ runDb (getMonthlyPayments (entityKey user))) >>= json
+    (liftIO $ runDb (getUserMonthlyPayments (entityKey user))) >>= json
   )
 
 createPaymentAction :: Text -> Int -> Frequency -> ActionM ()
-- 
cgit v1.2.3