dillonkearns/elm-pages-v3-beta
1
1
Fork 0
mirror of https://github.com/dillonkearns/elm-pages-v3-beta.git synced 2025-01-01 16:36:19 +03:00
Code Issues Packages Projects Releases Wiki Activity

Don't call a route's init when staying on the same path.

Browse Source
This commit is contained in:
Dillon Kearns 2022-10-19 15:14:57 -07:00
parent 5ccf361985
commit 98736e0a39
1 changed files with 31 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/Pages/Internal/Platform.elm
View File

@ -423,9 +423,7 @@ update config appMsg model =
)
else
( { model
| url = url
}
( model
, NoEffect
)
-- TODO is it reasonable to always re-fetch route data if you re-navigate to the current route? Might be a good
@ -605,10 +603,14 @@ update config appMsg model =
, actionData = newActionData
}
( userModel, _ ) =
( userModel, userEffect ) =
-- TODO if urlWithoutRedirectResolution is different from the url with redirect resolution, then
-- instead of calling update, call pushUrl (I think?)
-- TODO include user Cmd
if stayingOnSamePath then
( previousPageData.userModel, NoEffect )
else
config.update model.pageFormState
(model.inFlightFetchers |> toFetcherState)
(model.transition |> Maybe.map Tuple.second)
@ -626,6 +628,7 @@ update config appMsg model =
}
)
previousPageData.userModel
|> Tuple.mapSecond UserCmd
updatedModel : Model userModel pageData actionData sharedData
updatedModel =
@ -656,10 +659,13 @@ update config appMsg model =
, currentPath = newUrl.path
}
, if not stayingOnSamePath && scrollToTopWhenDone then
ScrollToTop
Batch
[ ScrollToTop
, userEffect
]
else
NoEffect
userEffect
)
|> (case maybeUserMsg of
Just userMsg ->
@ -1392,7 +1398,8 @@ loadDataAndUpdateUrl ( newPageData, newSharedData, newActionData ) maybeUserMsg
, actionData = newActionData
}
( userModel, _ ) =
-- TODO use userEffect here?
( userModel, userEffect ) =
-- TODO if urlWithoutRedirectResolution is different from the url with redirect resolution, then
-- instead of calling update, call pushUrl (I think?)
-- TODO include user Cmd