aboutsummaryrefslogtreecommitdiff
path: root/src/client/View/Payments
diff options
context:
space:
mode:
Diffstat (limited to 'src/client/View/Payments')
-rw-r--r--src/client/View/Payments/Add.elm10
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)]
]
]