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

Extract eagerLoad helper in ContentCache.

Browse Source
This commit is contained in:
Dillon Kearns 2022-01-24 19:38:53 -08:00
parent 0cd9a56675
commit 077809768a
1 changed files with 22 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
src/Pages/ContentCache.elm
View File

@ -4,6 +4,7 @@ module Pages.ContentCache exposing
, Entry(..)
, Path
, contentJsonDecoder
, eagerLoad
, init
, is404
, lazyLoad
@ -81,18 +82,27 @@ lazyLoad urls cache =
)
Nothing ->
urls.currentUrl
|> httpTask
|> Task.map
(\downloadedContent ->
( urls.currentUrl
, downloadedContent
, update
cache
urls
downloadedContent
)
)
eagerLoad urls cache
{-| -}
eagerLoad :
{ currentUrl : Url, basePath : List String }
-> ContentCache
-> Task Http.Error ( Url, ContentJson, ContentCache )
eagerLoad urls cache =
urls.currentUrl
|> httpTask
|> Task.map
(\downloadedContent ->
( urls.currentUrl
, downloadedContent
, update
cache
urls
downloadedContent
)
)
httpTask : Url -> Task Http.Error ContentJson