init : ( Model, Cmd Msg )
init =
    ( myModel, Cmd.none )

init : ( Model, Cmd Msg )
init =
    myModel
        |> withNoCmd

incrementAndPing : Model -> ( Model, Cmd Msg )
incrementAndPing model =
    ( { model | counter = model.counter + 1 }
    , ping
    )

incrementAndPing : Model -> ( Model, Cmd Msg )
incrementAndPing model =
    { model | counter = model.counter + 1 }
        |> withCmd ping