From 6b3c243031e941b58fc5df0d0d00ec8cad62d4e0 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 13 Sep 2015 19:18:42 +0200
Subject: Removing useless user join on total payment query

---
 src/server/Model/Payment.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

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

diff --git a/src/server/Model/Payment.hs b/src/server/Model/Payment.hs
index 0db2f08..469f0d3 100644
--- a/src/server/Model/Payment.hs
+++ b/src/server/Model/Payment.hs
@@ -82,12 +82,11 @@ deleteOwnPayment user paymentId = do
 getTotalPayments :: Persist [TP.TotalPayment]
 getTotalPayments = do
   values <- select $
-            from $ \(payment `InnerJoin` user) -> do
-              on (payment ^. PaymentUserId E.==. user ^. UserId)
+            from $ \payment -> do
               where_ (isNothing (payment ^. PaymentDeletedAt))
               where_ (payment ^. PaymentFrequency E.==. val Punctual)
               groupBy (payment ^. PaymentUserId)
-              return (user ^. UserId, sum_ (payment ^. PaymentCost))
+              return (payment ^. PaymentUserId, sum_ (payment ^. PaymentCost))
   return $ catMaybes . map (getTotalPayment . unValueTuple) $ values
 
 getTotalPayment :: (UserId, Maybe Int) -> Maybe TP.TotalPayment
-- 
cgit v1.2.3