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/Income/View.elm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/client/elm/LoggedIn/Income/View.elm')

diff --git a/src/client/elm/LoggedIn/Income/View.elm b/src/client/elm/LoggedIn/Income/View.elm
index 010b503..f62902a 100644
--- a/src/client/elm/LoggedIn/Income/View.elm
+++ b/src/client/elm/LoggedIn/Income/View.elm
@@ -24,14 +24,14 @@ import LoggedIn.Action as LoggedInAction
 import LoggedIn.Income.Action as IncomeAction
 
 import LoggedIn.View.Date exposing (renderShortDate)
-import LoggedIn.View.Price exposing (price)
+import LoggedIn.View.Format as Format
 
 import Utils.Maybe exposing (isJust)
 
 view : LoggedData -> IncomeModel.Model -> Html
 view loggedData incomeModel =
   div
-    []
+    [ class "income" ]
     [ h1 [] [ text <| getMessage "AddIncome" loggedData.translations ]
     , addIncomeView loggedData incomeModel.addIncome
     , h1 [] [ text <| getMessage "MonthlyNetIncomes" loggedData.translations ]
@@ -71,7 +71,7 @@ addIncomeView loggedData addIncome =
 
 incomesView : LoggedData -> Html
 incomesView loggedData =
-  ol
+  ul
     []
     ( loggedData.incomes
         |> Dict.toList
@@ -87,7 +87,7 @@ incomeView loggedData (incomeId, income) =
     []
     [ text <| renderShortDate (Date.fromTime income.creation) loggedData.translations
     , text "    −    "
-    , text <| price loggedData.conf income.amount
+    , text <| Format.price loggedData.conf income.amount
     , text "    −    "
     , button
         [ onClick Mailbox.address (Action.UpdateLoggedIn <| LoggedInAction.DeleteIncome incomeId) ]
-- 
cgit v1.2.3