Main.elm

import StartApp
import History
import Html
import Html.Events as Events
import Effects
import Task
import Signal
import Graphics.Element exposing (show)
import List

init = (["Initial"], Effects.none)

view address model =
  Html.div [] (List.map Html.text model)

type Action = Path String

update action model =
  case action of
    Path p -> (p :: model, Effects.none)

app = StartApp.start { init = init, view = view, update = update, inputs = [ Signal.map Path History.path ] }

main = app.html