Translating dates

1 files changed, 11 insertions, 15 deletions

diff --git a/src/client/View/Payments/Table.elm b/src/client/View/Payments/Table.elm
index 847c620..e5c1a9a 100644
--- a/src/client/View/Payments/Table.elm
+++ b/src/client/View/Payments/Table.elm
@@ -10,12 +10,14 @@ import Date exposing (Date)
 
 import String exposing (append)
 
+import Model exposing (Model)
 import Model.Payment exposing (Payments, Payment)
 
 import View.Icon exposing (renderIcon)
+import View.Date exposing (renderDate)
 
-paymentsTable : Payments -> Html
-paymentsTable payments =
+paymentsTable : Model -> Payments -> Html
+paymentsTable model payments =
   table
     []
     ([ tr
@@ -25,27 +27,21 @@ paymentsTable payments =
         , th [ class "user" ] [ renderIcon "user" ]
         , th [ class "date" ] [ renderIcon "calendar" ]
         ]
-    ] ++ (paymentLines payments))
+    ] ++ (paymentLines model payments))
 
-paymentLines : Payments -> List Html
-paymentLines payments =
+paymentLines : Model -> Payments -> List Html
+paymentLines model payments =
   payments
     |> List.sortBy (Date.toTime << .creation)
     |> List.reverse
-    |> List.map paymentLine
+    |> List.map (paymentLine model)
 
-paymentLine : Payment -> Html
-paymentLine payment =
+paymentLine : Model -> Payment -> Html
+paymentLine model payment =
   tr
     []
     [ td [] [ text payment.name ]
     , td [] [ text ((toString payment.cost) ++ " €") ]
     , td [] [ text payment.userName ]
-    , td [] [ text (renderDate payment.creation) ]
+    , td [] [ text (renderDate payment.creation model.translations) ]
     ]
-
-renderDate : Date -> String
-renderDate date =
-  toString (Date.day date)
-    |> flip append (" " ++ (toString (Date.month date)) ++ ".")
-    |> flip append (" " ++ (toString (Date.year date)))