src/client/Update/Payment.elm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53

module Update.Payment
  ( PaymentAction(..)
  , updatePayment
  ) where

import Date
import Dict

import Model exposing (Model)
import Model.User exposing (UserId)
import Model.Payment exposing (..)
import Model.Payers exposing (..)
import Model.View.PaymentView exposing (..)
import Model.View.Payment.Add exposing (..)

import Update.Payment.Add exposing (..)

type PaymentAction =
  UpdateAdd AddPaymentAction
  | UpdatePayments Payments
  | AddPayment UserId Int Payments
  | ToggleEdit PaymentId
  | Remove UserId Int Payments
  | UpdatePage Int Payments

updatePayment : Model -> PaymentAction -> PaymentView -> PaymentView
updatePayment model action paymentView =
  case action of
    UpdateAdd addPaymentAction ->
      { paymentView | add <- updateAddPayment addPaymentAction paymentView.add }
    UpdatePayments payments ->
      { paymentView | payments <- payments }
    AddPayment userId cost payments ->
      { paymentView
      | payments <- payments
      , currentPage <- 1
      , add <- initAddPayment
      , payers <- updatePayers paymentView.payers userId cost
      , paymentsCount <- paymentView.paymentsCount + 1
      }
    ToggleEdit id ->
      { paymentView | edition <- if paymentView.edition == Just id then Nothing else Just id }
    Remove userId cost payments ->
      { paymentView
      | payments <- payments
      , payers <- updatePayers paymentView.payers userId -cost
      , paymentsCount <- paymentView.paymentsCount - 1
      }
    UpdatePage page payments ->
      { paymentView
      | currentPage <- page
      , payments <- payments
      }