dillonkearns/elm-pages-v3-beta
1
1
Fork 0
mirror of https://github.com/dillonkearns/elm-pages-v3-beta.git synced 2024-11-28 06:05:31 +03:00
Code Issues Packages Projects Releases Wiki Activity

Remove strip response variant.

Browse Source
This commit is contained in:
Dillon Kearns 2022-01-26 08:37:39 -08:00
parent 45042b0472
commit 8813122069
2 changed files with 3 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/DataSource/Http.elm
View File

@ -260,8 +260,7 @@ unoptimizedRequest requestWithSecrets expect =
( Dict.singleton (Secrets.maskedLookup requestWithSecrets |> HashRequest.hash)
(case keepOrDiscard of
KeepOrDiscard.Keep ->
Pages.StaticHttpRequest.StripResponse
(Decode.map (\_ -> ()) decoder)
Pages.StaticHttpRequest.UseRawResponse
KeepOrDiscard.Discard ->
Pages.StaticHttpRequest.CliOnly
@ -304,9 +303,7 @@ unoptimizedRequest requestWithSecrets expect =
strippedResponses
|> Dict.insert
(Secrets.maskedLookup requestWithSecrets |> HashRequest.hash)
(Pages.StaticHttpRequest.StripResponse
(Decode.map (\_ -> ()) decoder)
)
Pages.StaticHttpRequest.UseRawResponse
KeepOrDiscard.Discard ->
strippedResponses

23
src/Pages/StaticHttpRequest.elm
View File

@ -4,12 +4,9 @@ import Base64
import BuildError exposing (BuildError)
import Bytes exposing (Bytes)
import Dict exposing (Dict)
import Internal.OptimizedDecoder
import Json.Decode.Exploration
import Json.Encode
import KeepOrDiscard exposing (KeepOrDiscard)
import List.Extra
import OptimizedDecoder
import Pages.Internal.ApplicationType exposing (ApplicationType)
import Pages.StaticHttp.Request
import RequestsAndPending exposing (RequestsAndPending)
@ -26,7 +23,6 @@ type RawRequest value
type WhatToDo
= UseRawResponse
| CliOnly
| StripResponse (OptimizedDecoder.Decoder ())
| DistilledResponse Json.Encode.Value
| DistilledBytesResponse Bytes
| Error (List BuildError)
@ -70,15 +66,6 @@ merge key whatToDo1 whatToDo2 =
( _, Error buildErrors1 ) ->
Error buildErrors1
( StripResponse strip1, StripResponse strip2 ) ->
StripResponse (OptimizedDecoder.map2 (\_ _ -> ()) strip1 strip2)
( StripResponse strip1, _ ) ->
StripResponse strip1
( _, StripResponse strip1 ) ->
StripResponse strip1
( _, CliOnly ) ->
whatToDo1
@ -139,20 +126,12 @@ strippedResponsesEncode appType rawRequest requestsAndPending =
|> Just
|> Ok
StripResponse decoder ->
Dict.get k requestsAndPending
|> Maybe.withDefault Nothing
|> Maybe.withDefault ""
|> Json.Decode.Exploration.stripString (Internal.OptimizedDecoder.jde decoder)
|> Result.withDefault "ERROR"
|> Just
|> Ok
CliOnly ->
Nothing
|> Ok
DistilledResponse value ->
-- TODO use bytes encoder here
value
|> Json.Encode.encode 0
|> Just