diff options
author | Joris Guyonvarch | 2015-08-01 00:31:36 +0200 |
---|---|---|
committer | Joris Guyonvarch | 2015-08-01 00:31:36 +0200 |
commit | c345f9daa28e0c174b35413addf78df0a793f8c1 (patch) | |
tree | 206f1d9aeed76b5c9e6f6abd24c00a50ec6c54fd /src/client/Update/Payment.elm | |
parent | 043d315c4b15608e04a07cd709e4caf5c3758c61 (diff) | |
download | budget-c345f9daa28e0c174b35413addf78df0a793f8c1.tar.gz budget-c345f9daa28e0c174b35413addf78df0a793f8c1.tar.bz2 budget-c345f9daa28e0c174b35413addf78df0a793f8c1.zip |
Adding error feedbacks when adding a payment
Diffstat (limited to 'src/client/Update/Payment.elm')
-rw-r--r-- | src/client/Update/Payment.elm | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/src/client/Update/Payment.elm b/src/client/Update/Payment.elm index 136f0f9..2d558fd 100644 --- a/src/client/Update/Payment.elm +++ b/src/client/Update/Payment.elm @@ -6,22 +6,22 @@ module Update.Payment import Date import Model exposing (Model) -import Model.View.PaymentView exposing (..) import Model.Payment exposing (..) +import Model.View.PaymentView exposing (..) +import Model.View.Payment.Add exposing (..) + +import Update.Payment.Add exposing (..) type PaymentAction = - UpdateName String - | UpdateCost String + UpdateAdd AddPaymentAction | UpdatePayments Payments | AddPayment String Int updatePayment : Model -> PaymentAction -> PaymentView -> PaymentView updatePayment model action paymentView = case action of - UpdateName name -> - { paymentView | name <- name } - UpdateCost cost -> - { paymentView | cost <- cost } + UpdateAdd addPaymentAction -> + { paymentView | add <- updateAddPayment addPaymentAction paymentView.add } UpdatePayments payments -> { paymentView | payments <- payments } AddPayment name cost -> @@ -33,6 +33,5 @@ updatePayment model action paymentView = } in { paymentView | payments <- payment :: paymentView.payments - , name <- "" - , cost <- "" + , add <- initAddPayment } |