Translating payment screen except dates

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)]
         ]
     ]