Lifechart.elm 497 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
module Lifechart exposing (main)

import Navigation
import Time
import Lifechart.Model as Model
import Lifechart.Update exposing (init, update)
import Lifechart.View exposing (view)


main : Program Never Model.Model Model.Msg
main =
    Navigation.program Model.NewUrl
        { init = init
        , update = update
        , view = view
        , subscriptions = subscriptions
        }


subscriptions : Model.Model -> Sub Model.Msg
subscriptions model =
    Time.every Time.second Model.Tick