diff options
Diffstat (limited to 'src/client/View/Payments')
-rw-r--r-- | src/client/View/Payments/Add.elm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/src/client/View/Payments/Add.elm b/src/client/View/Payments/Add.elm index d1431b8..3aa44c8 100644 --- a/src/client/View/Payments/Add.elm +++ b/src/client/View/Payments/Add.elm @@ -14,7 +14,9 @@ import Update exposing (..) import Update.Payment exposing (..) import Update.Payment.Add exposing (..) +import Model exposing (Model) import Model.View.Payment.Add exposing (..) +import Model.Translations exposing (getMessage) import View.Events exposing (onSubmitPrevDefault) import View.Icon exposing (renderIcon) @@ -22,11 +24,11 @@ import View.Icon exposing (renderIcon) import Utils.Maybe exposing (isJust) import Utils.Either exposing (toMaybeError) -addPayment : AddPayment -> Html -addPayment addPayment = +addPayment : Model -> AddPayment -> Html +addPayment model addPayment = H.form [ class "add" - , case (validateName addPayment.name, validateCost addPayment.cost) of + , case (validateName addPayment.name model.translations, validateCost addPayment.cost model.translations) of (Ok name, Ok cost) -> onSubmitPrevDefault serverCommunications.address (SC.AddPayment name cost) (resName, resCost) -> @@ -69,6 +71,6 @@ addPayment addPayment = text "" , button [ type' "submit" ] - [ text "Add" ] + [ text (getMessage "Add" model.translations)] ] ] |