diff options
Diffstat (limited to 'src/client/Model/Payment.elm')
| -rw-r--r-- | src/client/Model/Payment.elm | 7 |
1 files changed, 3 insertions, 4 deletions
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 = |