inputs.elm

module StartAppTest where

import Html exposing (text, Html)
import StartApp
import Effects exposing (Effects)
import Time
import Signal exposing (Address)


type alias Model = Float

type Action = NewTime Float


init : ( Model, Effects a )
init = ( 0.0, Effects.none)


update : Action -> Model -> (Model, Effects a)
update action model =
  
  case action of
    NewTime t
      -> (t, Effects.none)


view : Address Action -> Model -> Html
view address model = text (toString model)


timeUpdate : Signal Action
timeUpdate = Signal.map NewTime (Time.every Time.second)

 
app = StartApp.start { init = init
                     , view = view
                     , update = update
                     , inputs = [timeUpdate]
                     }
 
 
main = app.html