elm-pages 3.0.1 → 3.0.2

package/adapter/netlify.js

@@ -159,10 +159,11 @@ async function render(event, context) {
  */
 function reqToJson(req) {
   return {
+    requestTime: Math.round(new Date().getTime()),
     method: req.httpMethod,
     headers: req.headers,
     rawUrl: req.rawUrl,
-    body: req.body,
+    body: req.body || null,
     multiPartFormData: null,
   };
 }

package/generator/src/compatibility-key.js

@@ -1,3 +1,3 @@
 export const compatibilityKey = 20;
 
-export const packageVersion = "3.0.1";
+export const packageVersion = "3.0.2";

package/package.json

@@ -1,7 +1,7 @@
 {
   "name": "elm-pages",
   "type": "module",
-  "version": "3.0.1",
+  "version": "3.0.2",
   "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/Internal/Request.elm

@@ -41,19 +41,15 @@ fakeRequest =
 
 requestDecoder : Decode.Decoder RequestRecord
 requestDecoder =
-    Decode.succeed RequestRecord
-        |> andMap
-            (Decode.field "requestTime"
-                (Decode.int |> Decode.map Time.millisToPosix)
-            )
-        |> andMap (Decode.field "method" Decode.string)
-        |> andMap (Decode.field "body" (Decode.nullable Decode.string))
-        |> andMap
-            (Decode.string
-                |> Decode.field "rawUrl"
-            )
-        |> andMap (Decode.field "headers" (Decode.dict Decode.string))
-        |> andMap
+    Decode.map6 RequestRecord
+        (Decode.field "requestTime"
+            (Decode.int |> Decode.map Time.millisToPosix)
+        )
+        (Decode.field "method" Decode.string)
+        (Decode.maybe (Decode.field "body" Decode.string))
+        (Decode.field "rawUrl" Decode.string)
+        (Decode.maybe (Decode.field "headers" (Decode.dict Decode.string)) |> Decode.map (Maybe.withDefault Dict.empty))
+        (Decode.maybe
             (Decode.field "headers"
                 (optionalField "cookie" Decode.string
                     |> Decode.map
@@ -62,6 +58,8 @@ requestDecoder =
                         )
                 )
             )
+            |> Decode.map (Maybe.withDefault Dict.empty)
+        )
 
 
 andMap : Decode.Decoder a -> Decode.Decoder (a -> b) -> Decode.Decoder b