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/Model/Payment.hs | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

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

diff --git a/src/server/Model/Payment.hs b/src/server/Model/Payment.hs
index ac6cf0a..d8caaa8 100644
--- a/src/server/Model/Payment.hs
+++ b/src/server/Model/Payment.hs
@@ -1,7 +1,8 @@
 {-# LANGUAGE OverloadedStrings #-}
 
 module Model.Payment
-  ( list
+  ( find
+  , list
   , listMonthly
   , create
   , editOwn
@@ -22,11 +23,11 @@ import Model.Database
 import Model.Frequency
 import qualified Model.Json.Payment as P
 
+find :: PaymentId -> Persist (Maybe (Entity Payment))
+find paymentId = selectFirst [ PaymentId ==. paymentId ] []
+
 list :: Persist [P.Payment]
-list =
-  map getJsonPayment <$> selectList
-    [ PaymentDeletedAt ==. Nothing ]
-    []
+list = map getJsonPayment <$> selectList [ PaymentDeletedAt ==. Nothing ] []
 
 listMonthly :: Persist [Entity Payment]
 listMonthly =
-- 
cgit v1.2.3