Init

Build the root init function from submodel init functions.

Core

top : (a -> model) -> ( a -> model, Cmd msg )

field : ( a, Cmd msg ) -> ( a -> b, Cmd msg ) -> ( b, Cmd msg )

noCmd : a -> ( a -> b, Cmd msg ) -> ( b, Cmd msg )

noCmd a == field ( a, Cmd.none )

(model -> ( model, Cmd msg ))

-> ( model, Cmd msg )