elm-pages 3.0.0-beta.32 → 3.0.0-beta.33

package/README.md

@@ -81,7 +81,7 @@ https://github.com/dillonkearns/elm-pages/projects
 You will see an error if the NPM and Elm package do not have a matching Compatibility Key. Usually it's best to upgrade to the latest version of both the Elm and NPM
 packages when you upgrade. However, in case you want to install versions that are behind the latest, the Compatibility Key is included here for reference.
 
-Current Compatibility Key: 12.
+Current Compatibility Key: 13.
 
 ## Contributors ✨
 

package/generator/src/compatibility-key.js

@@ -1,3 +1,3 @@
-export const compatibilityKey = 12;
+export const compatibilityKey = 13;
 
-export const packageVersion = "3.0.0-beta.32";
+export const packageVersion = "3.0.0-beta.33";

package/generator/src/render.js

@@ -91,6 +91,7 @@ export async function runGenerator(
     );
     return result;
   } catch (error) {
+    process.exitCode = 1;
     console.log(restoreColorSafe(error));
   }
 }

package/generator/src/request-cache.js

@@ -202,12 +202,26 @@ export function lookupOrPerform(
           },
         });
       } catch (error) {
-        console.trace("@@@ request-cache2 HTTP error", error);
-        reject({
-          title: "BackendTask.Http Error",
-          message: `${kleur.yellow().underline(request.url)} ${error.toString()}
-`,
-        });
+        if (error.code === "ECONNREFUSED") {
+          resolve({
+            kind: "response-json",
+            value: { "elm-pages-internal-error": "NetworkError" },
+          });
+        } else if (
+          error.code === "ETIMEDOUT" ||
+          error.code === "ERR_SOCKET_TIMEOUT"
+        ) {
+          resolve({
+            kind: "response-json",
+            value: { "elm-pages-internal-error": "Timeout" },
+          });
+        } else {
+          console.trace("elm-pages unhandled HTTP error", error);
+          resolve({
+            kind: "response-json",
+            value: { "elm-pages-internal-error": "NetworkError" },
+          });
+        }
       }
     }
   });

package/package.json

@@ -1,7 +1,7 @@
 {
   "name": "elm-pages",
   "type": "module",
-  "version": "3.0.0-beta.32",
+  "version": "3.0.0-beta.33",
   "homepage": "https://elm-pages.com",
   "moduleResolution": "node",
   "description": "Type-safe static sites, written in pure elm with your own custom elm-markup syntax.",

package/src/BackendTask/Http.elm

@@ -494,19 +494,25 @@ requestRaw request__ expect =
         (\maybeMockResolver rawResponseDict ->
             (case maybeMockResolver of
                 Just mockResolver ->
-                    mockResolver request_
+                    mockResolver request_ |> Maybe.map Ok
 
                 Nothing ->
                     rawResponseDict |> RequestsAndPending.get (request_ |> HashRequest.hash)
             )
                 |> (\maybeResponse ->
                         case maybeResponse of
-                            Just rawResponse ->
+                            Just (Ok rawResponse) ->
                                 Ok rawResponse
 
                             Nothing ->
                                 --Err (Pages.StaticHttpRequest.UserCalledStaticHttpFail ("INTERNAL ERROR - expected request" ++ request_.url))
                                 Err (BadBody Nothing ("INTERNAL ERROR - expected request" ++ request_.url))
+
+                            Just (Err RequestsAndPending.NetworkError) ->
+                                Err NetworkError
+
+                            Just (Err RequestsAndPending.Timeout) ->
+                                Err Timeout
                    )
                 |> Result.andThen
                     (\(RequestsAndPending.Response maybeResponse body) ->

package/src/Pages/Internal/Platform/CompatibilityKey.elm

@@ -3,4 +3,4 @@ module Pages.Internal.Platform.CompatibilityKey exposing (currentCompatibilityKe
 
 currentCompatibilityKey : Int
 currentCompatibilityKey =
-    12
+    13

package/src/RequestsAndPending.elm

@@ -1,4 +1,4 @@
-module RequestsAndPending exposing (RawResponse, RequestsAndPending, Response(..), ResponseBody(..), bodyEncoder, get)
+module RequestsAndPending exposing (HttpError(..), RawResponse, RequestsAndPending, Response(..), ResponseBody(..), bodyEncoder, get)
 
 import Base64
 import Bytes exposing (Bytes)
@@ -101,11 +101,39 @@ responseDecoder =
         (Decode.field "url" Decode.string)
 
 
-get : String -> RequestsAndPending -> Maybe Response
+get : String -> RequestsAndPending -> Maybe (Result HttpError Response)
 get key requestsAndPending =
     Decode.decodeValue
         (Decode.field key
-            (Decode.field "response" decoder)
+            (Decode.field "response"
+                (Decode.oneOf
+                    [ Decode.field "elm-pages-internal-error" errorDecoder |> Decode.map Err
+                    , decoder |> Decode.map Ok
+                    ]
+                )
+            )
         )
         requestsAndPending
         |> Result.toMaybe
+
+
+type HttpError
+    = NetworkError
+    | Timeout
+
+
+errorDecoder : Decoder HttpError
+errorDecoder =
+    Decode.string
+        |> Decode.andThen
+            (\errorCode ->
+                case errorCode of
+                    "NetworkError" ->
+                        Decode.succeed NetworkError
+
+                    "Timeout" ->
+                        Decode.succeed Timeout
+
+                    _ ->
+                        Decode.fail "Unhandled error code."
+            )