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

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

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 -> text ""