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

Pass back strings as error message to JS.

Browse Source
This commit is contained in:
Dillon Kearns 2019-10-26 16:41:46 -07:00
parent d6b007f7ff
commit 84c9bc132c
1 changed files with 27 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
src/Pages/Internal/Platform/Cli.elm
View File

@ -37,7 +37,7 @@ import Url exposing (Url)
type ToJsPayload pathKey
= Errors (Dict String String)
= Errors String
| Success (ToJsSuccessPayload pathKey)
@ -58,7 +58,7 @@ toJsCodec =
Success { pages, manifest } ->
success (ToJsSuccessPayload pages manifest)
)
|> Codec.variant1 "Errors" Errors (Codec.dict Codec.string)
|> Codec.variant1 "Errors" Errors Codec.string
|> Codec.variant1 "Success"
Success
successCodec
@ -263,7 +263,8 @@ init toModel contentCache siteMetadata config cliMsgConstructor flags =
Ok _ ->
( Model staticResponses secrets |> toModel
, SendJsData
(Errors
(Errors <|
pageErrorsToString
(mapKeys
(\key -> "/" ++ String.join "/" key)
pageErrors
@ -274,7 +275,7 @@ init toModel contentCache siteMetadata config cliMsgConstructor flags =
Err error ->
( Model staticResponses Secrets.empty |> toModel
, SendJsData
(Errors (Dict.fromList [ ( "", "Failed to parse flags: " ++ Decode.errorToString error ) ]))
(Errors <| "Failed to parse flags: " ++ Decode.errorToString error)
)
Nothing ->
@ -303,7 +304,7 @@ init toModel contentCache siteMetadata config cliMsgConstructor flags =
Err error ->
( Model staticResponses secrets |> toModel
, Errors Dict.empty |> SendJsData
, Errors "TODO real error here" |> SendJsData
-- TODO send real error message
)
@ -314,7 +315,8 @@ init toModel contentCache siteMetadata config cliMsgConstructor flags =
Err error ->
( Model Dict.empty secrets |> toModel
, SendJsData
(Errors
(Errors <|
pageErrorsToString
(mapKeys
(\key -> "/" ++ String.join "/" key)
error
@ -332,10 +334,19 @@ init toModel contentCache siteMetadata config cliMsgConstructor flags =
Err error ->
( Model Dict.empty Secrets.empty |> toModel
, SendJsData
(Errors (Dict.fromList [ ( "", "Failed to parse flags: " ++ Decode.errorToString error ) ]))
(Errors <| "Failed to parse flags: " ++ Decode.errorToString error)
)
type alias PageErrors =
Dict String String
pageErrorsToString : PageErrors -> String
pageErrorsToString pageErrors =
"TODO"
update :
Result (List String) (List ( PagePath pathKey, metadata ))
->
@ -525,7 +536,7 @@ sendStaticResponsesIfDone staticResponses manifest =
)
else
Errors failedRequests
Errors <| pageErrorsToString failedRequests
)