Potential API tweak

New.Application.elm

module Application exposing (..., init, update, bundle, Initializer, Updater, Bundler)


type Initializer =
  Initializer (Context -> ( Model, Cmd Msg, Cmd App.Msg))

type Updater =
  Updater (Context -> ( Model, Cmd Msg, Cmd App.Msg))

type Bundler =
  Bundler (Context -> Bundle Msg)


init : { page : Page } -> Initializer

update : { page : Page, model : Model, msg : Msg } -> Updater

view : { page : Page, model : Model } -> Bundler

New.Pages.elm

module Pages exposing (init, update, bundle)


init : Route -> Initializer

update : Msg -> Model -> Updater

view : Model -> Context -> Bundler

Old.Application.elm

-- CURRENT API --

module Application exposing (..., init, update, bundle)

init : { page : Page } -> Context -> ( Model, Cmd Msg, Cmd App.Msg)

update : { page : Page, model : Model, msg : Msg } -> Context -> ( Model, Cmd Msg, Cmd App.Msg)

view : { page : Page, model : Model } -> Context -> Bundle Msg

Old.Pages.elm

module Pages exposing (init, update, bundle)


init : Route -> Context -> ( Model, Cmd Msg, Cmd App.Msg)

update : Msg -> Model -> Context -> ( Model, Cmd Msg, Cmd App.Msg)

view : Model -> Context -> Bundle Msg