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

Fix errors.

Browse Source
This commit is contained in:
Dillon Kearns 2022-12-29 14:14:08 -07:00
parent ac153f6494
commit 499390aeae
2 changed files with 17 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/DataSource/Http.elm
View File

@ -407,10 +407,23 @@ requestRaw request__ expect =
)
)
|> toResult
|> DataSource.mapError (\error -> Exception.Catchable error "TODO - error message here")
|> DataSource.mapError
(\error ->
Exception.Catchable error (errorToString error)
)
)
errorToString : Pages.StaticHttpRequest.Error -> String
errorToString error =
case error of
Pages.StaticHttpRequest.DecoderError string ->
string
Pages.StaticHttpRequest.UserCalledStaticHttpFail string ->
string
{-| -}
type alias Metadata =
{ url : String

6
tests/StaticHttpRequestsTests.elm
View File

@ -305,11 +305,11 @@ all =
"toJsPort"
(Codec.decoder (ToJsPayload.successCodecNew2 "" ""))
(expectErrorsPort
"""-- CALLED STATIC HTTP FAIL ----------------------------------------------------- elm-pages
"""-- INTERNAL ERROR ----------------------------------------------------- elm-pages
I ran into a call to `DataSource.fail` with message: String was not uppercased"""
String was not uppercased"""
)
, test "POST method works" <|
\() ->
@ -392,7 +392,7 @@ I ran into a call to `DataSource.fail` with message: String was not uppercased""
"toJsPort"
(Codec.decoder (ToJsPayload.successCodecNew2 "" ""))
(expectErrorsPort
"""-- STATIC HTTP DECODING ERROR ----------------------------------------------------- elm-pages
"""-- INTERNAL ERROR ----------------------------------------------------- elm-pages
Problem with the given value: