dillonkearns/elm-pages-v3-beta
1
1
Fork 0
mirror of https://github.com/dillonkearns/elm-pages-v3-beta.git synced 2024-12-25 12:52:27 +03:00
Code Issues Packages Projects Releases Wiki Activity

Handle dev server reloads from 404 pages.

Browse Source
This commit is contained in:
Dillon Kearns 2023-02-09 12:01:16 -08:00
parent 6b445ae436
commit e1af771fc7
1 changed files with 80 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -764,7 +764,86 @@ update config appMsg model =
_ ->
( model, NoEffect )
)
|> Result.withDefault ( model, NoEffect )
|> Result.withDefault
(let
pageDataResult : Maybe (InitKind sharedData pageData actionData errorPage)
pageDataResult =
case Bytes.Decode.decode config.decodeResponse pageDataBytes of
Just (ResponseSketch.RenderPage _ _) ->
Nothing
Just (ResponseSketch.HotUpdate pageData shared actionData) ->
OkPage shared pageData actionData
|> Just
Just (ResponseSketch.NotFound notFound) ->
NotFound notFound
|> Just
_ ->
Nothing
in
case pageDataResult of
Just (OkPage sharedData pageData actionData) ->
let
urls : { currentUrl : Url, basePath : List String }
urls =
{ currentUrl = model.url
, basePath = config.basePath
}
pagePath : Path
pagePath =
urlsToPagePath urls
userFlags : Pages.Flags.Flags
userFlags =
model.userFlags
|> Decode.decodeValue
(Decode.field "userFlags" Decode.value)
|> Result.withDefault Json.Encode.null
|> Pages.Flags.BrowserFlags
( userModel, userCmd ) =
Just
{ path =
{ path = pagePath
, query = model.url.query
, fragment = model.url.fragment
}
, metadata = config.urlToRoute model.url
, pageUrl =
Just
{ protocol = model.url.protocol
, host = model.url.host
, port_ = model.url.port_
, path = pagePath
, query = model.url.query |> Maybe.map QueryParams.fromString
, fragment = model.url.fragment
}
}
|> config.init userFlags sharedData pageData actionData
cmd : Effect userMsg pageData actionData sharedData userEffect errorPage
cmd =
UserCmd userCmd
in
( { model
| pageData =
Ok
{ userModel = userModel
, sharedData = sharedData
, pageData = pageData
, actionData = actionData
}
, notFound = Nothing
}
, cmd
)
_ ->
( model, NoEffect )
)
FetcherStarted fetcherKey transitionId fetcherData initiatedAt ->
( { model