diff options
| author | Joris | 2016-04-05 23:52:13 +0200 |
|---|---|---|
| committer | Joris | 2016-04-05 23:52:13 +0200 |
| commit | fe50c4042848681833d15fab27466d1d2d4bda45 (patch) | |
| tree | 9a1eda4adb22c0d84815e20e8e021968815d7c50 /src/client/elm/LoggedIn/Income | |
| parent | 466f77394885cb74d01451c4733cafc9b61f4bba (diff) | |
Ameliore design in income page and stat page
Diffstat (limited to 'src/client/elm/LoggedIn/Income')
| -rw-r--r-- | src/client/elm/LoggedIn/Income/View.elm | 8 |
1 files changed, 4 insertions, 4 deletions
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) ] |