src/client/elm/LoggedIn/View.elm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

module LoggedIn.View
  ( view
  ) where

import Html exposing (..)

import TransitRouter
import Route exposing (..)

import Action exposing (Action)
import Model exposing (Model)
import LoggedData

import LoggedIn.Model as LoggedInModel

import LoggedIn.Home.View as HomeView
import LoggedIn.User.View as UserView

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
        User -> UserView.view loggedData loggedIn.user