From a4acc2e84158fa822f88a1d0bdddb470708b5809 Mon Sep 17 00:00:00 2001
From: Joris
Date: Wed, 3 Jan 2018 17:31:20 +0100
Subject: Modify weelky report and payment search interface

- Add payment balance in weekly report
- Show a message and hide pages when the search results in no results
- Go to page 1 when the search is updated / erased
---
 server/src/Model/Payment.hs | 41 ++++++++++++++++-------------------------
 1 file changed, 16 insertions(+), 25 deletions(-)

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

diff --git a/server/src/Model/Payment.hs b/server/src/Model/Payment.hs
index 33551e5..5b29409 100644
--- a/server/src/Model/Payment.hs
+++ b/server/src/Model/Payment.hs
@@ -3,19 +3,18 @@
 module Model.Payment
   ( Payment(..)
   , find
-  , list
-  , listMonthly
+  , listActive
+  , listPunctual
+  , listActiveMonthlyOrderedByName
   , create
   , createMany
   , editOwn
   , deleteOwn
-  , modifiedDuring
   ) where
 
 import           Data.Maybe                     (listToMaybe)
 import           Data.Text                      (Text)
 import qualified Data.Text                      as T
-import           Data.Time                      (UTCTime)
 import           Data.Time.Calendar             (Day)
 import           Data.Time.Clock                (getCurrentTime)
 import           Database.SQLite.Simple         (FromRow (fromRow), Only (Only),
@@ -66,14 +65,22 @@ find paymentId =
     SQLite.query conn "SELECT * FROM payment WHERE id = ?" (Only paymentId)
   )
 
-list :: Query [Payment]
-list =
+listActive :: Query [Payment]
+listActive =
   Query (\conn ->
     SQLite.query_ conn "SELECT * FROM payment WHERE deleted_at IS NULL"
   )
 
-listMonthly :: Query [Payment]
-listMonthly =
+listPunctual :: Query [Payment]
+listPunctual =
+  Query (\conn ->
+    SQLite.query
+      conn
+      (SQLite.Query "SELECT * FROM payment WHERE frequency = ?")
+      (Only Punctual))
+
+listActiveMonthlyOrderedByName :: Query [Payment]
+listActiveMonthlyOrderedByName =
   Query (\conn ->
     SQLite.query
       conn
@@ -83,8 +90,7 @@ listMonthly =
         , "WHERE deleted_at IS NULL AND frequency = ?"
         , "ORDER BY name DESC"
         ])
-      (Only Monthly)
-  )
+      (Only Monthly))
 
 create :: UserId -> Text -> Int -> Day -> Frequency -> Query PaymentId
 create userId paymentName paymentCost paymentDate paymentFrequency =
@@ -161,18 +167,3 @@ deleteOwn userId paymentId =
       Nothing ->
         return False
   )
-
-modifiedDuring :: UTCTime -> UTCTime -> Query [Payment]
-modifiedDuring start end =
-  Query (\conn ->
-    SQLite.query
-      conn
-      (SQLite.Query $ T.intercalate " "
-        [ "SELECT *"
-        , "FROM payment"
-        , "WHERE (created_at >= ? AND created_at <= ?)"
-        , "   OR (edited_at >= ?  AND edited_at <= ?)"
-        , "   OR (deleted_at >= ? AND deleted_at <= ?)"
-        ])
-      (start, end, start, end, start, end)
-  )
-- 
cgit v1.2.3