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

Reduce oneOf decoder error noise for error case in BackendTask.Custom failures.

Browse Source
This commit is contained in:
Dillon Kearns 2023-02-13 19:00:56 -08:00
parent 26670d4283
commit a444c5af2c
1 changed files with 109 additions and 102 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/BackendTask/Custom.elm
View File

@ -110,10 +110,15 @@ run portName input decoder =
]
|> BackendTask.Http.jsonBody
, expect =
Decode.oneOf
[ Decode.field "elm-pages-internal-error" Decode.string
Decode.field "elm-pages-internal-error" Decode.string
|> Decode.maybe
|> Decode.andThen
(\errorKind ->
(\maybeInternalErrorCode ->
case maybeInternalErrorCode of
Just errorKind ->
--Decode.field "elm-pages-internal-error" Decode.string
-- |> Decode.andThen
(--\errorKind ->
if errorKind == "CustomBackendTaskNotDefined" then
FatalError.recoverable
{ title = "Custom BackendTask Error"
@ -225,8 +230,10 @@ run portName input decoder =
|> Decode.succeed
)
|> Decode.map Err
, decoder |> Decode.map Ok
]
Nothing ->
decoder |> Decode.map Ok
)
|> BackendTask.Http.expectJson
}
|> BackendTask.andThen BackendTask.fromResult