aboutsummaryrefslogtreecommitdiff
path: root/src/client/elm/Update/LoggedIn.elm
diff options
context:
space:
mode:
Diffstat (limited to 'src/client/elm/Update/LoggedIn.elm')
-rw-r--r--src/client/elm/Update/LoggedIn.elm19
1 files changed, 8 insertions, 11 deletions
diff --git a/src/client/elm/Update/LoggedIn.elm b/src/client/elm/Update/LoggedIn.elm
index 5292c25..2dc65c3 100644
--- a/src/client/elm/Update/LoggedIn.elm
+++ b/src/client/elm/Update/LoggedIn.elm
@@ -19,11 +19,11 @@ import Update.LoggedIn.Account as UA
type LoggedAction =
UpdateAdd AddPaymentAction
| UpdatePayments Payments
- | AddPayment UserId String Int Payments
+ | AddPayment UserId String Int
| AddMonthlyPayment PaymentId String Int
| ToggleEdit PaymentId
- | DeletePayment Payment Payments
- | UpdatePage Int Payments
+ | DeletePayment Payment
+ | UpdatePage Int
| UpdateMonthly UM.MonthlyAction
| UpdateAccount UA.AccountAction
@@ -34,10 +34,9 @@ updateLoggedIn model action loggedInView =
{ loggedInView | add = updateAddPayment addPaymentAction loggedInView.add }
UpdatePayments payments ->
{ loggedInView | payments = payments }
- AddPayment userId name cost payments ->
+ AddPayment userId name cost ->
{ loggedInView
- | payments = payments
- , currentPage = 1
+ | currentPage = 1
, add = initAddPayment Punctual
, account = UA.updateAccount (UA.UpdatePayer userId model.currentTime cost) loggedInView.account
, paymentsCount = loggedInView.paymentsCount + 1
@@ -51,16 +50,14 @@ updateLoggedIn model action loggedInView =
}
ToggleEdit id ->
{ loggedInView | paymentEdition = if loggedInView.paymentEdition == Just id then Nothing else Just id }
- DeletePayment payment payments ->
+ DeletePayment payment ->
{ loggedInView
- | payments = payments
- , account = UA.updateAccount (UA.UpdatePayer payment.userId (Date.toTime payment.creation) -payment.cost) loggedInView.account
+ | account = UA.updateAccount (UA.UpdatePayer payment.userId (Date.toTime payment.creation) -payment.cost) loggedInView.account
, paymentsCount = loggedInView.paymentsCount - 1
}
- UpdatePage page payments ->
+ UpdatePage page ->
{ loggedInView
| currentPage = page
- , payments = payments
}
UpdateMonthly monthlyAction ->
{ loggedInView | monthly = UM.updateMonthly monthlyAction loggedInView.monthly }