rename newModel -> updateModel
This commit is contained in:
parent
e0d395ba9f
commit
aa36f74762
@ -195,9 +195,9 @@ type Msg
|
|||||||
|
|
||||||
update : Msg -> Model -> (Model, Cmd Msg)
|
update : Msg -> Model -> (Model, Cmd Msg)
|
||||||
|
|
||||||
update msg model = (newModel msg model, Cmd.none)
|
update msg model = (updateModel msg model, Cmd.none)
|
||||||
|
|
||||||
newModel msg model =
|
updateModel msg model =
|
||||||
case msg of
|
case msg of
|
||||||
MapScale y ->
|
MapScale y ->
|
||||||
{ model | zoom = incZoom model.zoom y }
|
{ model | zoom = incZoom model.zoom y }
|
||||||
|
Loading…
Reference in New Issue
Block a user