From 5c110716cfda6e616a795edd12f2012b132dca9f Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 2 Apr 2017 17:51:12 +0200
Subject: Add a chart on payments by month by categories

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

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

diff --git a/src/client/Model/Payment.elm b/src/client/Model/Payment.elm
index 2412ab9..204f9f5 100644
--- a/src/client/Model/Payment.elm
+++ b/src/client/Model/Payment.elm
@@ -20,10 +20,11 @@ import Date.Extra.Core exposing (monthToInt, intToMonth)
 import Json.Decode as Decode exposing (Decoder)
 import Json.Decode.Extra as Decode
 import List
+import List.Extra as List
 
 import Form.Validate as Validate exposing (Validation)
-import Model.Frequency as Frequency exposing (Frequency(..))
 import Model.Date exposing (dateDecoder)
+import Model.Frequency as Frequency exposing (Frequency(..))
 import Model.User exposing (UserId, userIdDecoder)
 import Utils.List as List
 import Utils.Search as Search
@@ -63,8 +64,7 @@ paymentIdDecoder = Decode.int
 find : PaymentId -> Payments -> Maybe Payment
 find paymentId payments =
   payments
-    |> List.filter (\p -> p.id == paymentId)
-    |> List.head
+    |> List.find (\p -> p.id == paymentId)
 
 edit : Payment -> Payments -> Payments
 edit payment payments = payment :: delete payment.id payments
@@ -94,7 +94,6 @@ groupAndSortByMonth payments =
     |> List.groupBy (\payment -> (Date.year payment.date, monthToInt << Date.month <| payment.date))
     |> List.sortBy Tuple.first
     |> List.map (\((year, month), payments) -> ((intToMonth month, year), payments))
-    |> List.reverse
 
 search : String -> Frequency -> Payments -> Payments
 search name frequency payments =
-- 
cgit v1.2.3