Skip to content

Instantly share code, notes, and snippets.

Show Gist options
  • Save ccapndave/b174965885e431d448dd919a390b89ae to your computer and use it in GitHub Desktop.
Save ccapndave/b174965885e431d448dd919a390b89ae to your computer and use it in GitHub Desktop.
update : Msg -> Model -> (Model, Cmd Msg)
update msg model =
withLogic <| update' msg model
update' : Msg -> Model -> (Model, Cmd Msg)
update' msg model =
case msg of
LoginMsg msg ->
LoginUpdate.update msg model
|> sndMap LoginMsg
withLogic : (Model, Cmd Msg) -> (Model, Cmd Msg)
withLogic (model, cmd) =
(model, cmd)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment