From 885dfd7708e338a3220c85b7f22a3ac267aad3f7 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 26 Jun 2016 17:30:03 +0200
Subject: Add the clone functionality on payments

---
 src/client/elm/Model/Payment.elm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'src/client/elm/Model/Payment.elm')

diff --git a/src/client/elm/Model/Payment.elm b/src/client/elm/Model/Payment.elm
index c89e709..7e5b37d 100644
--- a/src/client/elm/Model/Payment.elm
+++ b/src/client/elm/Model/Payment.elm
@@ -101,9 +101,14 @@ search : String -> Frequency -> Payments -> Payments
 search name frequency payments =
   payments
     |> List.filter ((==) frequency << .frequency)
-    |> List.sortBy (Date.toTime << .date)
+    |> paymentSort frequency
     |> List.filter (searchSuccess name)
-    |> List.reverse
+
+paymentSort : Frequency -> Payments -> Payments
+paymentSort frequency =
+  case frequency of
+    Punctual -> List.reverse << List.sortBy (Date.toTime << .date)
+    Monthly -> List.sortBy (String.toLower << .name)
 
 searchSuccess : String -> Payment -> Bool
 searchSuccess text { name } = (String.toLower text) `String.contains` (String.toLower name)
-- 
cgit v1.2.3