dillonkearns/elm-pages-v3-beta
1
1
Fork 0
mirror of https://github.com/dillonkearns/elm-pages-v3-beta.git synced 2024-11-30 13:16:08 +03:00
Code Issues Packages Projects Releases Wiki Activity

Remove redundant implementation.

Browse Source
This commit is contained in:
Dillon Kearns 2022-02-16 17:08:46 -08:00
parent 094e905dd5
commit 3976ec436a
1 changed files with 1 additions and 69 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

70
src/DataSource/Http.elm
View File

@ -224,75 +224,7 @@ internalRequest :
-> Expect a
-> DataSource a
internalRequest request_ expect =
case expect of
ExpectJson decoder ->
Request
[ request_ ]
(\rawResponseDict ->
rawResponseDict
|> RequestsAndPending.get (request_ |> HashRequest.hash)
|> (\maybeResponse ->
case maybeResponse of
Just rawResponse ->
Ok rawResponse
Nothing ->
Err (Pages.StaticHttpRequest.MissingHttpResponse (requestToString request_) [ request_ ])
)
|> Result.andThen
(\(RequestsAndPending.Response maybeResponse body) ->
case body of
RequestsAndPending.JsonBody json ->
json
|> Json.Decode.decodeValue decoder
|> Result.mapError
(\error ->
error
|> Json.Decode.errorToString
|> Pages.StaticHttpRequest.DecoderError
)
_ ->
("Unexpected Response type. Expected JSON but was " ++ RequestsAndPending.responseKindString body)
|> Pages.StaticHttpRequest.DecoderError
|> Err
)
|> toResult
)
ExpectString mapStringFn ->
Request
[ request_ ]
(\rawResponseDict ->
rawResponseDict
|> RequestsAndPending.get (request_ |> HashRequest.hash)
|> (\maybeResponse ->
case maybeResponse of
Just rawResponse ->
Ok rawResponse
Nothing ->
Err (Pages.StaticHttpRequest.MissingHttpResponse (requestToString request_) [ request_ ])
)
|> Result.andThen
(\(RequestsAndPending.Response maybeResponse body) ->
case body of
RequestsAndPending.StringBody string ->
string
|> mapStringFn
|> Result.mapError Pages.StaticHttpRequest.DecoderError
_ ->
("Unexpected Response type. Expected String but was " ++ RequestsAndPending.responseKindString body)
|> Pages.StaticHttpRequest.DecoderError
|> Err
)
|> toResult
)
ExpectResponse _ ->
Pages.StaticHttpRequest.DecoderError "Not handled yet TODO"
|> RequestError
request request_ expect
expectToString : Expect a -> String