From fe50c4042848681833d15fab27466d1d2d4bda45 Mon Sep 17 00:00:00 2001
From: Joris
Date: Tue, 5 Apr 2016 23:52:13 +0200
Subject: Ameliore design in income page and stat page

---
 src/client/elm/LoggedIn/Home/View/Monthly.elm | 6 +++---
 src/client/elm/LoggedIn/Home/View/Table.elm   | 4 ++--
 2 files changed, 5 insertions(+), 5 deletions(-)

(limited to 'src/client/elm/LoggedIn/Home/View')

diff --git a/src/client/elm/LoggedIn/Home/View/Monthly.elm b/src/client/elm/LoggedIn/Home/View/Monthly.elm
index c001331..237b551 100644
--- a/src/client/elm/LoggedIn/Home/View/Monthly.elm
+++ b/src/client/elm/LoggedIn/Home/View/Monthly.elm
@@ -12,7 +12,7 @@ import LoggedIn.Action as LoggedInAction
 
 import LoggedIn.Home.Action as HomeAction
 import LoggedIn.Home.Model as HomeModel
-import LoggedIn.View.Price exposing (price)
+import LoggedIn.View.Format as Format
 import LoggedIn.Home.View.Expand exposing (..)
 
 import Model.Payment as Payment exposing (Payments, Payment, monthly)
@@ -52,7 +52,7 @@ monthlyCount loggedData monthlyPayments homeModel =
         [ class "header"
         , onClick Mailbox.address (Action.UpdateLoggedIn << LoggedInAction.HomeAction <| HomeAction.ToggleMonthlyDetail)
         ]
-        [ text (getParamMessage [toString count, price loggedData.conf total] key loggedData.translations)
+        [ text (getParamMessage [toString count, Format.price loggedData.conf total] key loggedData.translations)
         , expand ExpandDown homeModel.monthlyDetail
         ]
 
@@ -81,7 +81,7 @@ paymentLine loggedData homeModel payment =
             , ("refund", payment.cost < 0)
             ]
         ]
-        [ text (price loggedData.conf payment.cost) ]
+        [ text (Format.price loggedData.conf payment.cost) ]
     , div
         [ class "cell delete"
         , onClick Mailbox.address (Action.UpdateLoggedIn <| LoggedInAction.DeletePayment payment.id)
diff --git a/src/client/elm/LoggedIn/Home/View/Table.elm b/src/client/elm/LoggedIn/Home/View/Table.elm
index 71aa4e5..5ac740c 100644
--- a/src/client/elm/LoggedIn/Home/View/Table.elm
+++ b/src/client/elm/LoggedIn/Home/View/Table.elm
@@ -17,7 +17,7 @@ import LoggedIn.Action as LoggedInAction
 import LoggedIn.Home.Action as HomeAction
 import LoggedIn.Home.Model as HomeModel
 import LoggedIn.View.Date exposing (..)
-import LoggedIn.View.Price exposing (price)
+import LoggedIn.View.Format as Format
 
 import Model.User exposing (getUserName)
 import Model.Payment as Payment exposing (..)
@@ -68,7 +68,7 @@ paymentLine loggedData homeModel payment =
             , ("refund", payment.cost < 0)
             ]
         ]
-        [ text (price loggedData.conf payment.cost) ]
+        [ text (Format.price loggedData.conf payment.cost) ]
     , div
         [ class "cell user" ]
         [ payment.userId
-- 
cgit v1.2.3