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

Improve some variable names and add some notes.

Browse Source
This commit is contained in:
Dillon Kearns 2020-05-11 09:37:47 -07:00
parent 4cf6ad9d92
commit 30fbb917cd
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -592,17 +592,22 @@ cliDictKey =
staticResponsesInit : Dict String (Maybe String) -> Result (List BuildError) (List ( PagePath pathKey, metadata )) -> Config pathKey userMsg userModel metadata view -> List ( PagePath pathKey, StaticHttp.Request value ) -> StaticResponses
staticResponsesInit staticHttpCache siteMetadata config list =
staticResponsesInit staticHttpCache siteMetadataResult config list =
let
foo : StaticHttp.Request (List (Result String { path : List String, content : String }))
foo =
config.generateFiles thing2
generateFilesRequest : StaticHttp.Request (List (Result String { path : List String, content : String }))
generateFilesRequest =
config.generateFiles siteMetadataWithContent
generateFilesStaticRequest =
( cliDictKey, NotFetched (foo |> StaticHttp.map (\_ -> ())) Dict.empty )
( -- we don't want to include the CLI-only StaticHttp responses in the production bundle
-- since that data is only needed to run these functions during the build step
-- in the future, this could be refactored to have a type to represent this more clearly
cliDictKey
, NotFetched (generateFilesRequest |> StaticHttp.map (\_ -> ())) Dict.empty
)
thing2 =
siteMetadata
siteMetadataWithContent =
siteMetadataResult
|> Result.withDefault []
|> List.map
(\( pagePath, metadata ) ->