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

module LoggedIn.View
  ( view
  ) where

import Signal exposing (Address)

import Html exposing (..)

import TransitRouter
import Route exposing (..)

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

import LoggedIn.Model as LoggedInModel

import LoggedIn.Home.View as HomeView

view : Address Action -> Model -> LoggedInModel.Model -> Html
view address model loggedIn =
  case TransitRouter.getRoute model of
    Home -> HomeView.view address model loggedIn.home
    User -> text ""