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

Filter out the CLI-only keys from the static page data dict.

Browse Source
This commit is contained in:
Dillon Kearns 2020-03-07 12:34:57 -08:00
parent d44b234dab
commit f501482d40
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/Pages/Internal/Platform/Cli.elm
View File

@ -572,6 +572,11 @@ combineMultipleErrors results =
results
cliDictKey : String
cliDictKey =
"////elm-pages-CLI////"
staticResponsesInit : Result (List BuildError) (List ( PagePath pathKey, metadata )) -> Config pathKey userMsg userModel metadata view -> List ( PagePath pathKey, StaticHttp.Request value ) -> StaticResponses
staticResponsesInit siteMetadata config list =
let
@ -580,7 +585,7 @@ staticResponsesInit siteMetadata config list =
config.generateFiles thing2
generateFilesStaticRequest =
( "////elm-pages-CLI////", NotFetched (foo |> StaticHttp.map (\_ -> ())) Dict.empty )
( cliDictKey, NotFetched (foo |> StaticHttp.map (\_ -> ())) Dict.empty )
thing2 =
siteMetadata
@ -945,6 +950,10 @@ toJsPayload encodedStatic manifest generated allErrors =
encodeStaticResponses : Mode -> StaticResponses -> Dict String (Dict String String)
encodeStaticResponses mode staticResponses =
staticResponses
|> Dict.filter
(\key value ->
key /= cliDictKey
)
|> Dict.map
(\path result ->
case result of