Ameliore design in income page and stat page

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
+    ]