src/client/Model.elm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

module Model
  ( Model
  , initialModel
  ) where

import Time exposing (Time)

import Model.View exposing (..)

type alias Model =
  { view : View
  , currentTime : Time
  }

initialModel : Time -> Model
initialModel initialTime =
  { view = LoadingView
  , currentTime = initialTime
  }