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)