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

Change url after updating cache.

Browse Source
This commit is contained in:
Dillon Kearns 2019-08-17 08:31:27 -07:00
parent 911ec43d9a
commit bbe1da41de
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
elm-package/src/Pages.elm
View File

@ -254,6 +254,7 @@ type Msg userMsg metadata view
| UrlChanged Url.Url
| UserMsg userMsg
| UpdateCache (Result Http.Error (ContentCache userMsg metadata view))
| UpdateCacheAndUrl Url (Result Http.Error (ContentCache userMsg metadata view))
type Model userModel userMsg metadata view
@ -308,7 +309,7 @@ update markupParser markdownToHtml userUpdate msg model =
}
, model.contentCache
|> ContentCache.lazyLoad markupParser model.imageAssets markdownToHtml url
|> Task.attempt UpdateCache
|> Task.attempt (UpdateCacheAndUrl url)
)
UserMsg userMsg ->
@ -329,6 +330,17 @@ update markupParser markdownToHtml userUpdate msg model =
-- TODO handle error
( model, Cmd.none )
UpdateCacheAndUrl url cacheUpdateResult ->
case cacheUpdateResult of
-- TODO can there be race conditions here? Might need to set something in the model
-- to keep track of the last url change
Ok updatedCache ->
( { model | url = url, contentCache = updatedCache }, Cmd.none )
Err _ ->
-- TODO handle error
( { model | url = url }, Cmd.none )
warmupCache markupParser markdownToHtml url model =
{ model