Add data for whether build failures are fatal and continue dev server…

… if they are not.

src/BuildError.elm

@@ -6,6 +6,7 @@ import TerminalText as Terminal
 type alias BuildError =
     { title : String
     , message : List Terminal.Text
+    , fatal : Bool
     }
 
 

src/Pages/ContentCache.elm

@@ -146,6 +146,7 @@ createBuildError path decodeError =
         , Terminal.text "\n\n"
         , Terminal.text decodeError
         ]
+    , fatal = False
     }
 
 

src/Pages/Internal/Platform/Cli.elm

@@ -392,6 +392,7 @@ init toModel contentCache siteMetadata config flags =
                     SecretsDict.masked
                     [ { title = "Internal Error"
                       , message = [ Terminal.text <| "Failed to parse flags: " ++ Decode.errorToString error ]
+                      , fatal = True
                       }
                     ]
                     Dict.empty
@@ -478,6 +479,7 @@ update siteMetadata config msg model =
                                                     Http.BadBody string ->
                                                         Terminal.text "Unable to parse HTTP response body"
                                                 ]
+                                             , fatal = True
                                              }
                                            ]
                             }
@@ -840,6 +842,7 @@ sendStaticResponsesIfDone config siteMetadata mode secrets allRawResponses error
                                             [ Terminal.text "I encountered an Err from your generateFiles function. Message:\n"
                                             , Terminal.text <| "Error: " ++ error
                                             ]
+                                        , fatal = True
                                         }
                         )
 
@@ -848,21 +851,29 @@ sendStaticResponsesIfDone config siteMetadata mode secrets allRawResponses error
                 errors ++ failedRequests ++ generatedFileErrors
         in
         ( updatedAllRawResponses
-        , SendJsData <|
-            if List.isEmpty failedRequests then
-                Success
-                    (ToJsSuccessPayload
-                        (encodeStaticResponses mode staticResponses)
-                        config.manifest
-                        generatedOkayFiles
-                        (List.map BuildError.errorToString allErrors)
-                    )
-
-            else
-                Errors <| BuildError.errorsToString allErrors
+        , toJsPayload
+            (encodeStaticResponses mode staticResponses)
+            config.manifest
+            generatedOkayFiles
+            allErrors
         )
 
 
+toJsPayload encodedStatic manifest generated allErrors =
+    SendJsData <|
+        if allErrors |> List.filter .fatal |> List.isEmpty then
+            Success
+                (ToJsSuccessPayload
+                    encodedStatic
+                    manifest
+                    generated
+                    (List.map BuildError.errorToString allErrors)
+                )
+
+        else
+            Errors <| BuildError.errorsToString allErrors
+
+
 encodeStaticResponses : Mode -> StaticResponses -> Dict String (Dict String String)
 encodeStaticResponses mode staticResponses =
     staticResponses

src/Pages/StaticHttpRequest.elm

@@ -52,6 +52,7 @@ toBuildError path error =
                 , Terminal.text "\n\n"
                 , Terminal.text missingKey
                 ]
+            , fatal = True
             }
 
         DecoderError decodeErrorMessage ->
@@ -61,6 +62,7 @@ toBuildError path error =
                 , Terminal.text "\n\n"
                 , Terminal.text decodeErrorMessage
                 ]
+            , fatal = True
             }
 
 

src/Secrets.elm

@@ -98,6 +98,7 @@ buildError secretName secretsDict =
         , Terminal.text " should be "
         , Terminal.green <| Terminal.text (sortMatches secretName availableEnvironmentVariables |> List.head |> Maybe.withDefault "")
         ]
+    , fatal = True
     }