sharing actions

main.elm

module ColorPicker where

type Action =
    InitialsSaved Bool
  | Noop

view address model =
  let
    context = View.Context
      (Signal.forwardTo address (InitialsSaved))
  in
     View.view context model
app =
  StartApp.start {
    init = (init, Effects.none),
    view = view,
    update = update,
    inputs = [incomingGameObject]
  }

view.elm

module View (view, Context) where

type alias Context =
  {
    initialsSaved : Signal.Address Bool
  }

view context model =
  button
    [onClick context.initialsSaved True]
    [text "Play!"]