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/Income.hs | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

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

diff --git a/src/server/Model/Income.hs b/src/server/Model/Income.hs
index b7dd11c..ff6accd 100644
--- a/src/server/Model/Income.hs
+++ b/src/server/Model/Income.hs
@@ -1,6 +1,5 @@
 module Model.Income
-  ( getJsonIncome
-  , getIncomes
+  ( list
   , create
   , editOwn
   , deleteOwn
@@ -17,14 +16,14 @@ import Database.Persist
 import Model.Database
 import qualified Model.Json.Income as Json
 
+list :: Persist [Json.Income]
+list = map getJsonIncome <$> selectList [IncomeDeletedAt ==. Nothing] []
+
 getJsonIncome :: Entity Income -> Json.Income
 getJsonIncome incomeEntity =
   Json.Income (entityKey incomeEntity) (incomeUserId income) (incomeDate income) (incomeAmount income)
   where income = entityVal incomeEntity
 
-getIncomes :: Persist [Entity Income]
-getIncomes = selectList [IncomeDeletedAt ==. Nothing] []
-
 create :: UserId -> Day -> Int -> Persist IncomeId
 create userId date amount = do
   now <- liftIO getCurrentTime
-- 
cgit v1.2.3