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/View.elm | |
| parent | 466f77394885cb74d01451c4733cafc9b61f4bba (diff) | |
| download | budget-fe50c4042848681833d15fab27466d1d2d4bda45.tar.gz budget-fe50c4042848681833d15fab27466d1d2d4bda45.tar.bz2 budget-fe50c4042848681833d15fab27466d1d2d4bda45.zip | |
Ameliore design in income page and stat page
Diffstat (limited to 'src/client/elm/LoggedIn/View.elm')
| -rw-r--r-- | src/client/elm/LoggedIn/View.elm | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/src/client/elm/LoggedIn/View.elm b/src/client/elm/LoggedIn/View.elm index b1ec4d3..dbbab33 100644 --- a/src/client/elm/LoggedIn/View.elm +++ b/src/client/elm/LoggedIn/View.elm @@ -3,6 +3,7 @@ module LoggedIn.View ) where import Html exposing (..) +import Html.Attributes exposing (..) import TransitRouter import Route exposing (..) @@ -19,9 +20,12 @@ import LoggedIn.Stat.View as StatView view : Model -> LoggedInModel.Model -> Html view model loggedIn = - let loggedData = LoggedData.build model loggedIn - in case TransitRouter.getRoute model of - Empty -> text "" - Home -> HomeView.view loggedData loggedIn.home - Income -> UserView.view loggedData loggedIn.income - Stat -> StatView.view loggedData + div + [ class "loggedIn" ] + [ let loggedData = LoggedData.build model loggedIn + in case TransitRouter.getRoute model of + Empty -> text "" + Home -> HomeView.view loggedData loggedIn.home + Income -> UserView.view loggedData loggedIn.income + Stat -> StatView.view loggedData + ] |