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

Handle parsing in lazy load task.

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

69
elm-package/src/Pages/ContentCache.elm
View File

@ -330,10 +330,6 @@ warmUpCache markupParser imageAssets renderer url cacheResult =
Err error
-- ContentCache.update model.contentCache markdownToHtml url content
lazyLoad :
(Dict String String
-> List String
@ -346,25 +342,56 @@ lazyLoad :
-> ContentCache msg metadata view
-> Task Http.Error (ContentCache msg metadata view)
lazyLoad markupParser imageAssets markdownToHtml url cacheResult =
case lookup cacheResult url of
Just entry ->
case entry of
NeedContent _ ->
httpTask url
|> Task.map
(\downloadedContent ->
update cacheResult markdownToHtml url downloadedContent
)
Unparsed _ _ ->
Task.succeed cacheResult
Parsed _ _ ->
Task.succeed cacheResult
Nothing ->
case cacheResult of
Err _ ->
Task.succeed cacheResult
Ok cache ->
case Dict.get (pathForUrl url) cache of
Just entry ->
case entry of
NeedContent _ ->
httpTask url
|> Task.map
(\downloadedContent ->
update cacheResult markdownToHtml url downloadedContent
)
Unparsed metadata content ->
let
parsedMarkup =
Mark.compile
(markupParser imageAssets
(cacheResult |> routesForCache)
(extractMetadata cacheResult)
)
content
in
case parsedMarkup of
Mark.Success parsed ->
-- TODO feels strange that the metadata could change here... make a way to
-- only parse the metadata once
cache
|> Dict.insert (pathForUrl url) (Parsed metadata parsed.view)
|> Ok
|> Task.succeed
Mark.Almost _ ->
-- TODO handle errors properly
cacheResult
|> Task.succeed
Mark.Failure _ ->
-- TODO handle errors properly
cacheResult
|> Task.succeed
Parsed _ _ ->
Task.succeed cacheResult
Nothing ->
Task.succeed cacheResult
httpTask url =
Http.task