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

Remove unused code.

Browse Source
This commit is contained in:
Dillon Kearns 2021-07-07 21:15:54 -07:00
parent 32b9b8e94a
commit 091210023e
1 changed files with 2 additions and 95 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

97
src/Pages/Internal/Platform/StaticResponses.elm
View File

@ -1,4 +1,4 @@
module Pages.Internal.Platform.StaticResponses exposing (NextStep(..), StaticResponses, error, init, nextStep, renderApiRequest, renderSingleRoute, update)
module Pages.Internal.Platform.StaticResponses exposing (NextStep(..), StaticResponses, error, nextStep, renderApiRequest, renderSingleRoute, update)
import ApiRoute
import BuildError exposing (BuildError)
@ -25,8 +25,7 @@ import TerminalText as Terminal
type StaticResponses
= GettingInitialData StaticHttpResult
| ApiRequest StaticHttpResult
= ApiRequest StaticHttpResult
| StaticResponses (Dict String StaticHttpResult)
| CheckIfHandled (DataSource (Maybe NotFoundReason)) StaticHttpResult (Dict String StaticHttpResult)
@ -40,32 +39,6 @@ error =
StaticResponses Dict.empty
init :
{ config
| getStaticRoutes : DataSource (List route)
, site : SiteConfig route siteData
, data : route -> DataSource pageData
, sharedData : DataSource sharedData
, apiRoutes :
(Html Never -> String) -> List (ApiRoute.Done ApiRoute.Response)
}
-> StaticResponses
init config =
NotFetched
(DataSource.map3 (\_ _ _ -> ())
(config.getStaticRoutes
|> DataSource.andThen
(\resolvedRoutes ->
config.site resolvedRoutes |> .data
)
)
(buildTimeFilesRequest config)
config.sharedData
)
Dict.empty
|> GettingInitialData
buildTimeFilesRequest :
{ config
| apiRoutes :
@ -221,9 +194,6 @@ nextStep config ({ mode, secrets, allRawResponses, errors } as model) maybeRoute
StaticResponses s ->
s
GettingInitialData initialData ->
Dict.singleton cliDictKey initialData
ApiRequest staticHttpResult ->
Dict.singleton cliDictKey staticHttpResult
@ -433,69 +403,6 @@ nextStep config ({ mode, secrets, allRawResponses, errors } as model) maybeRoute
else
case model.staticResponses of
GettingInitialData (NotFetched _ _) ->
let
resolvedRoutes : Result StaticHttpRequest.Error (List route)
resolvedRoutes =
StaticHttpRequest.resolve ApplicationType.Cli
(DataSource.map3
(\routes _ _ ->
routes
)
config.getStaticRoutes
(buildTimeFilesRequest config)
config.sharedData
)
(allRawResponses |> Dict.Extra.filterMap (\_ value -> Just value))
in
case resolvedRoutes of
Ok staticRoutes ->
let
newState : StaticResponses
newState =
staticRoutes
|> List.map
(\route ->
let
entry : StaticHttpResult
entry =
NotFetched
(DataSource.map2 (\_ _ -> ())
config.sharedData
(config.data route)
)
Dict.empty
in
( config.routeToPath route |> String.join "/"
, entry
)
)
|> Dict.fromList
|> StaticResponses
newThing : List { masked : RequestDetails, unmasked : RequestDetails }
newThing =
[]
in
( newState
, Continue allRawResponses newThing (Just staticRoutes)
)
Err error_ ->
( model.staticResponses
, Finish
(ToJsPayload.Errors <|
([ StaticHttpRequest.toBuildError
-- TODO give more fine-grained error reference
"get static routes"
error_
]
++ failedRequests
++ errors
)
)
)
StaticResponses _ ->
--let
-- siteStaticData =