elm-pages 3.0.7 → 3.0.9

package/README.md

@@ -11,10 +11,10 @@
 
 - [elm-pages Docs Site](https://elm-pages.com/docs)
 - [elm-pages site showcase](https://elm-pages.com/showcase/)
-- [elm-pages Elm API Docs](https://package.elm-lang.org/packages/dillonkearns/elm-pages/10.0.1/)
+- [elm-pages Elm API Docs](https://package.elm-lang.org/packages/dillonkearns/elm-pages/10.0.2/)
 - [Quick start repo](https://github.com/dillonkearns/elm-pages-starter) [(live site hosted here)](https://elm-pages-starter.netlify.com)
 - [Introducing `elm-pages` blog post](https://elm-pages.com/blog/introducing-elm-pages)
-- [`examples` folder](https://github.com/dillonkearns/elm-pages/blob/master/examples/) (includes https://elm-pages.com site source)
+- [`examples` folder](https://github.com/dillonkearns/elm-pages/blob/master/examples/) (includes https://elm-pages.com site source) Use `git clone --recurse-submodules https://github.com/dillonkearns/elm-pages.git` so that there aren't missing files when you try to build the examples.
 
 ## Compatibility Key
 
@@ -34,7 +34,7 @@ Thanks goes to these wonderful people ([emoji key](https://allcontributors.org/d
   <tr>
     <td align="center"><a href="https://github.com/danmarcab"><img src="https://avatars2.githubusercontent.com/u/1517969?v=4" width="100px;" alt=""/><br /><sub><b>Daniel Marín</b></sub></a><br /><a href="https://github.com/dillonkearns/elm-pages/commits?author=danmarcab" title="Code">💻</a></td>
     <td align="center"><a href="https://citric.id"><img src="https://avatars1.githubusercontent.com/u/296665?v=4" width="100px;" alt=""/><br /><sub><b>Steven Vandevelde</b></sub></a><br /><a href="https://github.com/dillonkearns/elm-pages/commits?author=icidasset" title="Code">💻</a></td>
-    <td align="center"><a href="https://github.com/Y0hy0h"><img src="https://avatars0.githubusercontent.com/u/11377826?v=4" width="100px;" alt=""/><br /><sub><b>Johannes Maas</b></sub></a><br /><a href="#userTesting-Y0hy0h" title="User Testing">📓</a> <a href="https://github.com/dillonkearns/elm-pages/commits?author=Y0hy0h" title="Code">💻</a></td>
+    <td align="center"><a href="https://github.com/j-maas"><img src="https://avatars0.githubusercontent.com/u/11377826?v=4" width="100px;" alt=""/><br /><sub><b>Johannes Maas</b></sub></a><br /><a href="#userTesting-j-maas" title="User Testing">📓</a> <a href="https://github.com/dillonkearns/elm-pages/commits?author=j-maas" title="Code">💻</a></td>
     <td align="center"><a href="https://github.com/vViktorPL"><img src="https://avatars1.githubusercontent.com/u/2961541?v=4" width="100px;" alt=""/><br /><sub><b>Wiktor Toporek</b></sub></a><br /><a href="https://github.com/dillonkearns/elm-pages/commits?author=vViktorPL" title="Code">💻</a></td>
     <td align="center"><a href="https://sunrisemovement.com"><img src="https://avatars1.githubusercontent.com/u/1508245?v=4" width="100px;" alt=""/><br /><sub><b>Luke Westby</b></sub></a><br /><a href="https://github.com/dillonkearns/elm-pages/commits?author=lukewestby" title="Code">💻</a></td>
   </tr>

package/generator/dead-code-review/elm-stuff/tests-0.19.1/js/node_runner.js

@@ -75,7 +75,7 @@ console.elmlog = (str) => logs.push(str + "\n");
 const { Elm } = require("./Runner.elm.js");
 
 // Start the Elm app
-const flags = { initialSeed: 3448341197, fuzzRuns: 100, filter: null };
+const flags = { initialSeed: 1491170149, fuzzRuns: 100, filter: null };
 const app = Elm.Runner.init({ flags: flags });
 
 // Record the timing at which we received the last "runTest" message

package/generator/dead-code-review/elm-stuff/tests-0.19.1/js/node_supervisor.js

@@ -82,7 +82,7 @@ const verbosity = 0;
 // Create a long lived reporter worker
 const { Elm } = require("./Reporter.elm.js");
 const flags = {
-  initialSeed: 3448341197,
+  initialSeed: 1491170149,
   fuzzRuns: 100,
   mode: "consoleNoColor",
   verbosity: verbosity,

package/generator/review/elm-stuff/tests-0.19.1/js/node_runner.js

@@ -75,7 +75,7 @@ console.elmlog = (str) => logs.push(str + "\n");
 const { Elm } = require("./Runner.elm.js");
 
 // Start the Elm app
-const flags = { initialSeed: 1590047921, fuzzRuns: 100, filter: null };
+const flags = { initialSeed: 3733738384, fuzzRuns: 100, filter: null };
 const app = Elm.Runner.init({ flags: flags });
 
 // Record the timing at which we received the last "runTest" message

package/generator/review/elm-stuff/tests-0.19.1/js/node_supervisor.js

@@ -82,7 +82,7 @@ const verbosity = 0;
 // Create a long lived reporter worker
 const { Elm } = require("./Reporter.elm.js");
 const flags = {
-  initialSeed: 1590047921,
+  initialSeed: 3733738384,
   fuzzRuns: 100,
   mode: "consoleNoColor",
   verbosity: verbosity,

package/generator/src/build.js

@@ -73,7 +73,7 @@ export async function run(options) {
     // This is a temporary hack to avoid this warning. elm-pages manages compiling the Elm code without Vite's involvement, so it is external to Vite.
     // There is a pending issue to allow having external scripts in Vite, once this issue is fixed we can remove this hack:
     // https://github.com/vitejs/vite/issues/3533
-    if (!messages[0]?.startsWith(`<script src="/elm.js">`)) {
+    if (messages && messages[0] && !messages[0].startsWith(`<script src="/elm.js">`)) {
       console.info(...messages);
     }
   };
@@ -221,7 +221,6 @@ export async function render(request) {
     addWatcher,
     false
   );
-  console.dir(response);
   if (response.kind === "bytes") {
     return {
         body: response.contentDatPayload.buffer,

package/generator/src/compatibility-key.js

@@ -1,3 +1,3 @@
 export const compatibilityKey = 20;
 
-export const packageVersion = "3.0.7";
+export const packageVersion = "3.0.8";

package/generator/src/dev-server.js

@@ -37,7 +37,7 @@ const __dirname = path.dirname(__filename);
  */
 export async function start(options) {
   console.error = function (...messages) {
-    if (!messages[0]?.startsWith("Failed to load url")) {
+    if (messages && messages[0] && !messages[0].startsWith("Failed to load url")) {
       console.info(...messages);
     }
   };

package/generator/src/generate-template-module-connector.js

@@ -3,7 +3,7 @@ import * as path from "path";
 import { default as mm } from "micromatch";
 import * as routeHelpers from "./route-codegen-helpers.js";
 import { restoreColorSafe } from "./error-formatter.js";
-import { fileURLToPath } from "url";
+import { fileURLToPath, pathToFileURL } from "url";
 
 /**
  * @param {string} basePath
@@ -66,7 +66,7 @@ export async function generateTemplateModuleConnector(basePath, phase) {
 async function runElmCodegenCli(templates, basePath, phase) {
   const __filename = fileURLToPath(import.meta.url);
   const __dirname = path.dirname(__filename);
-  const filePath = path.join(__dirname, `../../codegen/elm-pages-codegen.cjs`);
+  const filePath = pathToFileURL(path.join(__dirname, `../../codegen/elm-pages-codegen.cjs`)).href;
 
   const promise = new Promise(async (resolve, reject) => {
     const elmPagesCodegen = (await import(filePath)).default.Elm.Generate;

package/generator/src/vite-utils.js

@@ -10,7 +10,7 @@ export function merge_vite_configs(...configs) {
       ...config,
       resolve: {
         ...config.resolve,
-        alias: normalize_alias(config.resolve?.alias || {}),
+        alias: normalize_alias((config.resolve && config.resolve.alias) || {}),
       },
     }))
   );

package/generator/static-code/elm-pages.js

@@ -103,14 +103,17 @@ function find_anchor(node) {
   return /** @type {HTMLAnchorElement} */ (node);
 }
 
-Object.defineProperty(SubmitEvent.prototype, "fields", {
-  get: function fields() {
-    let formData = new FormData(this.currentTarget);
-    if (this.submitter?.name) {
-      formData.append(this.submitter.name, this.submitter.value);
-    }
-    return [...formData.entries()];
-  },
-});
+// only run in modern browsers to prevent exception: https://github.com/dillonkearns/elm-pages/issues/427
+if ("SubmitEvent" in window) {
+  Object.defineProperty(SubmitEvent.prototype, "fields", {
+    get: function fields() {
+      let formData = new FormData(this.currentTarget);
+      if (this.submitter && this.submitter.name) {
+        formData.append(this.submitter.name, this.submitter.value);
+      }
+      return [...formData.entries()];
+    },
+  });
+}
 
 setup();

package/package.json

@@ -1,7 +1,7 @@
 {
   "name": "elm-pages",
   "type": "module",
-  "version": "3.0.7",
+  "version": "3.0.9",
   "homepage": "https://elm-pages.com",
   "moduleResolution": "node",
   "description": "Type-safe static sites, written in pure elm with your own custom elm-markup syntax.",
@@ -55,7 +55,7 @@
     "@types/micromatch": "^4.0.2",
     "@types/node": "^20.1.0",
     "@types/serve-static": "^1.15.1",
-    "cypress": "^12.13.0",
+    "cypress": "^13.3.0",
     "elm-codegen": "^0.3.0",
     "elm-optimize-level-2": "^0.3.5",
     "elm-review": "^2.10.2",

package/src/ApiRoute.elm

@@ -65,10 +65,11 @@ You define your ApiRoute's in `app/Api.elm`. Here's a simple example:
 
     import ApiRoute
     import BackendTask exposing (BackendTask)
+    import FatalError exposing (FatalError)
     import Server.Request
 
     routes :
-        BackendTask (List Route)
+        BackendTask FatalError (List Route)
         -> (Maybe { indent : Int, newLines : Bool } -> Html Never -> String)
         -> List (ApiRoute.ApiRoute ApiRoute.Response)
     routes getStaticRoutes htmlToString =

package/src/BackendTask/Custom.elm

@@ -35,26 +35,23 @@ we're using `BackendTask.allowFatal` to let the framework treat that as an unexp
 ```javascript
 // custom-backend-task.js
 
-module.exports =
-  /**
-   * @param { unknown } fromElm
-   * @returns { Promise<unknown> }
-   */
-  {
-    environmentVariable: async function (name) {
-      const result = process.env[name];
-      if (result) {
-        return result;
-      } else {
-        throw `No environment variable called ${name}
+/**
+* @param { string } fromElm
+* @returns { Promise<string> }
+*/
+export async function environmentVariable(name) {
+    const result = process.env[name];
+    if (result) {
+      return result;
+    } else {
+      throw `No environment variable called ${name}
 
 Available:
 
 ${Object.keys(process.env).join("\n")}
 `;
-      }
-    },
-  }
+    }
+}
 ```
 
 

package/src/BackendTask/File.elm

@@ -167,6 +167,7 @@ bodyWithFrontmatter frontmatterDecoder filePath =
                     { title = "BackendTask.File Decoder Error"
                     , body =
                         "I encountered a Json Decoder error from a call to BackendTask.File.bodyWithFrontmatter.\n\n"
+                            ++ ("I was trying to process `" ++ filePath ++ "`.\n\n")
                             ++ Decode.errorToString frontmatterDecodeError
                     }
                         |> FatalError.build
@@ -257,6 +258,7 @@ onlyFrontmatter frontmatterDecoder filePath =
                     { title = "BackendTask.File Decoder Error"
                     , body =
                         "I encountered a Json Decoder error from a call to BackendTask.File.onlyFrontmatter.\n\n"
+                            ++ ("I was trying to process `" ++ filePath ++ "`.\n\n")
                             ++ Decode.errorToString frontmatterDecodeError
                     }
                         |> FatalError.build

package/src/BackendTask/Glob.elm

@@ -28,7 +28,7 @@ With the `BackendTask.Glob` API, you could get all of those files like so:
 
     import BackendTask exposing (BackendTask)
 
-    blogPostsGlob : BackendTask (List String)
+    blogPostsGlob : BackendTask error (List String)
     blogPostsGlob =
         Glob.succeed (\slug -> slug)
             |> Glob.match (Glob.literal "content/blog/")
@@ -69,7 +69,7 @@ There will be one argument for every `capture` in your pipeline, whereas `match`
     import BackendTask exposing (BackendTask)
     import BackendTask.Glob as Glob
 
-    blogPostsGlob : BackendTask (List String)
+    blogPostsGlob : BackendTask error (List String)
     blogPostsGlob =
         Glob.succeed (\slug -> slug)
             -- no argument from this, but we will only
@@ -97,7 +97,7 @@ Let's try our blogPostsGlob from before, but change every `match` to `capture`.
     import BackendTask exposing (BackendTask)
 
     blogPostsGlob :
-        BackendTask
+        BackendTask error
             (List
                 { filePath : String
                 , slug : String
@@ -155,20 +155,22 @@ This is my first post!
 Then we could read that title for our blog post list page using our `blogPosts` `BackendTask` that we defined above.
 
     import BackendTask.File
+    import FatalError exposing (FatalError)
     import Json.Decode as Decode exposing (Decoder)
 
-    titles : BackendTask (List BlogPost)
+    titles : BackendTask FatalError (List BlogPost)
     titles =
         blogPosts
             |> BackendTask.map
                 (List.map
                     (\blogPost ->
-                        BackendTask.File.request
+                        BackendTask.File.onlyFrontmatter
+                            blogFrontmatterDecoder
                             blogPost.filePath
-                            (BackendTask.File.frontmatter blogFrontmatterDecoder)
                     )
                 )
             |> BackendTask.resolve
+            |> BackendTask.allowFatal
 
     type alias BlogPost =
         { title : String }
@@ -249,7 +251,7 @@ could use
     import BackendTask exposing (BackendTask)
     import BackendTask.Glob as Glob
 
-    blogPostsGlob : BackendTask (List String)
+    blogPostsGlob : BackendTask error (List String)
     blogPostsGlob =
         Glob.succeed (\slug -> slug)
             |> Glob.match (Glob.literal "content/blog/")
@@ -258,14 +260,14 @@ could use
             |> Glob.toBackendTask
 
 If you want to validate file formats, you can combine that with some `BackendTask` helpers to turn a `Glob (Result String value)` into
-a `BackendTask (List value)`.
+a `BackendTask FatalError (List value)`.
 
 For example, you could take a date and parse it.
 
     import BackendTask exposing (BackendTask)
     import BackendTask.Glob as Glob
 
-    example : BackendTask (List ( String, String ))
+    example : BackendTask FatalError (List ( String, String ))
     example =
         Glob.succeed
             (\dateResult slug ->
@@ -281,14 +283,14 @@ For example, you could take a date and parse it.
             |> BackendTask.map (List.map BackendTask.fromResult)
             |> BackendTask.resolve
 
-    expectDateFormat : List String -> Result String String
+    expectDateFormat : List String -> Result FatalError String
     expectDateFormat dateParts =
         case dateParts of
             [ year, month, date ] ->
                 Ok (String.join "-" [ year, month, date ])
 
             _ ->
-                Err "Unexpected date format, expected yyyy/mm/dd folder structure."
+                Err <| FatalError.fromString "Unexpected date format, expected yyyy/mm/dd folder structure."
 
 -}
 map : (a -> b) -> Glob a -> Glob b
@@ -322,7 +324,7 @@ fullFilePath =
     import BackendTask.Glob as Glob
 
     blogPosts :
-        BackendTask
+        BackendTask error
             (List
                 { filePath : String
                 , slug : String
@@ -368,11 +370,11 @@ match 0 or more path parts like, see `recursiveWildcard`.
         , slug : String
         }
 
-    example : BackendTask (List BlogPost)
+    example : BackendTask error (List BlogPost)
     example =
         Glob.succeed BlogPost
             |> Glob.match (Glob.literal "blog/")
-            |> Glob.match Glob.wildcard
+            |> Glob.capture Glob.wildcard
             |> Glob.match (Glob.literal "-")
             |> Glob.capture Glob.wildcard
             |> Glob.match (Glob.literal "-")
@@ -391,7 +393,7 @@ match 0 or more path parts like, see `recursiveWildcard`.
 
 That will match to:
 
-    results : BackendTask (List BlogPost)
+    results : BackendTask error (List BlogPost)
     results =
         BackendTask.succeed
             [ { year = "2021"
@@ -443,7 +445,7 @@ Leading 0's are ignored.
     import BackendTask exposing (BackendTask)
     import BackendTask.Glob as Glob
 
-    slides : BackendTask (List Int)
+    slides : BackendTask error (List Int)
     slides =
         Glob.succeed identity
             |> Glob.match (Glob.literal "slide-")
@@ -472,7 +474,7 @@ With files
 
 Yields
 
-    matches : BackendTask (List Int)
+    matches : BackendTask error (List Int)
     matches =
         BackendTask.succeed
             [ 1
@@ -513,7 +515,7 @@ This is the elm-pages equivalent of `**/*.txt` in standard shell syntax:
     import BackendTask exposing (BackendTask)
     import BackendTask.Glob as Glob
 
-    example : BackendTask (List ( List String, String ))
+    example : BackendTask error (List ( List String, String ))
     example =
         Glob.succeed Tuple.pair
             |> Glob.match (Glob.literal "articles/")
@@ -537,7 +539,7 @@ With these files:
 
 We would get the following matches:
 
-    matches : BackendTask (List ( List String, String ))
+    matches : BackendTask error (List ( List String, String ))
     matches =
         BackendTask.succeed
             [ ( [ "archive", "1977", "06", "10" ], "apple-2-announced" )
@@ -552,14 +554,14 @@ And also note that it matches 0 path parts into an empty list.
 If we didn't include the `wildcard` after the `recursiveWildcard`, then we would only get
 a single level of matches because it is followed by a file extension.
 
-    example : BackendTask (List String)
+    example : BackendTask error (List String)
     example =
         Glob.succeed identity
             |> Glob.match (Glob.literal "articles/")
             |> Glob.capture Glob.recursiveWildcard
             |> Glob.match (Glob.literal ".txt")
 
-    matches : BackendTask (List String)
+    matches : BackendTask error (List String)
     matches =
         BackendTask.succeed
             [ "google-io-2021-recap"
@@ -677,7 +679,7 @@ Exactly the same as `match` except it also captures the matched sub-pattern.
         , slug : String
         }
 
-    archives : BackendTask ArchivesArticle
+    archives : BackendTask error ArchivesArticle
     archives =
         Glob.succeed ArchivesArticle
             |> Glob.match (Glob.literal "archive/")
@@ -693,7 +695,7 @@ Exactly the same as `match` except it also captures the matched sub-pattern.
 
 The file `archive/1977/06/10/apple-2-released.md` will give us this match:
 
-    matches : List ArchivesArticle
+    matches : List error ArchivesArticle
     matches =
         BackendTask.succeed
             [ { year = 1977
@@ -744,7 +746,7 @@ capture (Glob matcherPattern apply1) (Glob pattern apply2) =
         , extension : String
         }
 
-    dataFiles : BackendTask (List DataFile)
+    dataFiles : BackendTask error (List DataFile)
     dataFiles =
         Glob.succeed DataFile
             |> Glob.match (Glob.literal "my-data/")
@@ -768,7 +770,7 @@ If we have the following files
 
 That gives us
 
-    results : BackendTask (List DataFile)
+    results : BackendTask error (List DataFile)
     results =
         BackendTask.succeed
             [ { name = "authors"
@@ -781,7 +783,7 @@ That gives us
 
 You could also match an optional file path segment using `oneOf`.
 
-    rootFilesMd : BackendTask (List String)
+    rootFilesMd : BackendTask error (List String)
     rootFilesMd =
         Glob.succeed (\slug -> slug)
             |> Glob.match (Glob.literal "blog/")
@@ -806,7 +808,7 @@ With these files:
 
 This would give us:
 
-    results : BackendTask (List String)
+    results : BackendTask error (List String)
     results =
         BackendTask.succeed
             [ "first-post"
@@ -965,7 +967,7 @@ encodeOptions options =
 
     import BackendTask.Glob as Glob exposing (OnlyFolders, defaultOptions)
 
-    matchingFiles : Glob a -> BackendTask (List a)
+    matchingFiles : Glob a -> BackendTask error (List a)
     matchingFiles glob =
         glob
             |> Glob.toBackendTaskWithOptions { defaultOptions | include = OnlyFolders }
@@ -1010,12 +1012,12 @@ For example, maybe you can have
     import BackendTask exposing (BackendTask)
     import BackendTask.Glob as Glob
 
-    findBlogBySlug : String -> BackendTask String
+    findBlogBySlug : String -> BackendTask FatalError String
     findBlogBySlug slug =
         Glob.succeed identity
             |> Glob.captureFilePath
             |> Glob.match (Glob.literal "blog/")
-            |> Glob.capture (Glob.literal slug)
+            |> Glob.match (Glob.literal slug)
             |> Glob.match
                 (Glob.oneOf
                     ( ( "", () )
@@ -1024,6 +1026,7 @@ For example, maybe you can have
                 )
             |> Glob.match (Glob.literal ".md")
             |> Glob.expectUniqueMatch
+            |> BackendTask.allowFatal
 
 If we used `findBlogBySlug "first-post"` with these files:
 
@@ -1035,7 +1038,7 @@ If we used `findBlogBySlug "first-post"` with these files:
 
 This would give us:
 
-    results : BackendTask String
+    results : BackendTask FatalError String
     results =
         BackendTask.succeed "blog/first-post/index.md"
 

package/src/BackendTask.elm

@@ -88,6 +88,7 @@ Any place in your `elm-pages` app where the framework lets you pass in a value o
 
 import FatalError exposing (FatalError)
 import Json.Encode
+import List.Chunks
 import Pages.StaticHttpRequest exposing (RawRequest(..))
 
 
@@ -140,6 +141,7 @@ resolve =
 {-| Turn a list of `BackendTask`s into a single one.
 
     import BackendTask
+    import FatalError exposing (FatalError)
     import Json.Decode as Decode exposing (Decoder)
 
     type alias Pokemon =
@@ -147,7 +149,7 @@ resolve =
         , sprite : String
         }
 
-    pokemonDetailRequest : BackendTask (List Pokemon)
+    pokemonDetailRequest : BackendTask FatalError (List Pokemon)
     pokemonDetailRequest =
         BackendTask.Http.getJson
             "https://pokeapi.co/api/v2/pokemon/?limit=3"
@@ -169,10 +171,31 @@ resolve =
                 )
             )
             |> BackendTask.andThen BackendTask.combine
+            |> BackendTask.allowFatal
 
 -}
 combine : List (BackendTask error value) -> BackendTask error (List value)
 combine items =
+    items
+        |> List.Chunks.chunk 100
+        |> List.map combineHelp
+        |> List.Chunks.chunk 100
+        |> List.map combineHelp
+        |> List.Chunks.chunk 100
+        |> List.map combineHelp
+        |> combineHelp
+        |> map (List.concat >> List.concat >> List.concat)
+
+
+{-| `combineHelp` on its own will overflow the stack with larger lists of tasks
+
+dividing the tasks into smaller nested chunks and recombining makes `combine` stack safe
+
+There's probably a way of doing this without the Lists but it's a neat trick to safely combine lots of tasks!
+
+-}
+combineHelp : List (BackendTask error value) -> BackendTask error (List value)
+combineHelp items =
     List.foldl (map2 (::)) (succeed []) items |> map List.reverse
 
 
@@ -190,11 +213,11 @@ combine items =
                 }
             )
             (get
-                (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages")
+                "https://api.github.com/repos/dillonkearns/elm-pages"
                 (Decode.field "stargazers_count" Decode.int)
             )
             (get
-                (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-markdown")
+                "https://api.github.com/repos/dillonkearns/elm-markdown"
                 (Decode.field "stargazers_count" Decode.int)
             )
 
@@ -239,17 +262,19 @@ map2 fn request1 request2 =
 from the previous response to build up the URL, headers, etc. that you send to the subsequent request.
 
     import BackendTask
+    import FatalError exposing (FatalError)
     import Json.Decode as Decode exposing (Decoder)
 
-    licenseData : BackendTask String
+    licenseData : BackendTask FatalError String
     licenseData =
-        BackendTask.Http.get
-            (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages")
+        BackendTask.Http.getJson
+            "https://api.github.com/repos/dillonkearns/elm-pages"
             (Decode.at [ "license", "url" ] Decode.string)
             |> BackendTask.andThen
                 (\licenseUrl ->
-                    BackendTask.Http.get (Secrets.succeed licenseUrl) (Decode.field "description" Decode.string)
+                    BackendTask.Http.getJson licenseUrl (Decode.field "description" Decode.string)
                 )
+            |> BackendTask.allowFatal
 
 -}
 andThen : (a -> BackendTask error b) -> BackendTask error a -> BackendTask error b

package/src/List/Chunks.elm

@@ -0,0 +1,51 @@
+module List.Chunks exposing (chunk)
+
+import Array exposing (Array)
+
+
+{-| Adapted from <https://package.elm-lang.org/packages/krisajenkins/elm-exts/latest/Exts-List>
+
+Split a list into chunks of length `n`.
+
+Be aware that the last sub-list may be smaller than `n`-items long.
+
+For example `chunk 3 [1..10] => [[1,2,3], [4,5,6], [7,8,9], [10]]`
+
+-}
+chunk : Int -> List a -> List (List a)
+chunk n xs =
+    if n < 1 then
+        List.singleton xs
+
+    else
+        evaluate (chunkInternal n xs Array.empty)
+
+
+chunkInternal : Int -> List a -> Array (List a) -> Trampoline (List (List a))
+chunkInternal n xs acc =
+    -- elm-review: known-unoptimized-recursion
+    if List.isEmpty xs then
+        Done (Array.toList acc)
+
+    else
+        Jump
+            (\_ ->
+                chunkInternal n
+                    (List.drop n xs)
+                    (Array.push (List.take n xs) acc)
+            )
+
+
+type Trampoline a
+    = Done a
+    | Jump (() -> Trampoline a)
+
+
+evaluate : Trampoline a -> a
+evaluate trampoline =
+    case trampoline of
+        Done value ->
+            value
+
+        Jump f ->
+            evaluate (f ())

package/src/Pages/Internal/Platform.elm

@@ -392,7 +392,7 @@ update config appMsg model =
                     let
                         navigatingToSamePage : Bool
                         navigatingToSamePage =
-                            url.path == model.url.path
+                            url.path == model.url.path && url.query == model.url.query && url.fragment /= Nothing
                     in
                     if navigatingToSamePage then
                         -- this is a workaround for an issue with anchor fragment navigation
@@ -403,7 +403,7 @@ update config appMsg model =
 
                     else
                         ( model
-                        , BrowserPushUrl url.path
+                        , BrowserPushUrl (Url.toString url)
                         )
 
                 Browser.External href ->
@@ -425,12 +425,21 @@ update config appMsg model =
 
                 Nothing ->
                     if model.url.path == url.path && model.url.query == url.query then
-                        ( { model
-                            | -- update the URL in case query params or fragment changed
-                              url = url
-                          }
-                        , NoEffect
-                        )
+                        if url.fragment == Nothing then
+                            ( { model
+                                | -- update the URL in case query params or fragment changed
+                                  url = url
+                              }
+                            , ScrollToTop
+                            )
+
+                        else
+                            ( { model
+                                | -- update the URL in case query params or fragment changed
+                                  url = url
+                              }
+                            , NoEffect
+                            )
 
                     else
                         ( model

package/src/Server/Session.elm

@@ -27,7 +27,7 @@ Using these functions, you can store and read session data in cookies to maintai
     type alias Data =
         { darkMode : Bool }
 
-    data : RouteParams -> Request -> BackendTask (Response Data ErrorPage)
+    data : RouteParams -> Request -> BackendTask FatalError (Response Data ErrorPage)
     data routeParams request =
         request
             |> Session.withSession
@@ -42,12 +42,15 @@ Using these functions, you can store and read session data in cookies to maintai
                             (session |> Session.get "mode" |> Maybe.withDefault "light")
                                 == "dark"
                     in
-                    ( session
-                    , { darkMode = darkMode }
-                    )
+                    BackendTask.succeed
+                        ( session
+                        , Response.render
+                            { darkMode = darkMode
+                            }
+                        )
                 )
 
-The elm-pages framework will manage signing these cookies using the `secrets : BackendTask (List String)` you pass in.
+The elm-pages framework will manage signing these cookies using the `secrets : BackendTask FatalError (List String)` you pass in.
 That means that the values you set in your session will be directly visible to anyone who has access to the cookie
 (so don't directly store sensitive data in your session). Since the session cookie is signed using the secret you provide,
 the cookie will be invalidated if it is tampered with because it won't match when elm-pages verifies that it has been
@@ -56,7 +59,7 @@ signed with your secrets. Of course you need to provide secure secrets and treat
 
 ### Rotating Secrets
 
-The first String in `secrets : BackendTask (List String)` will be used to sign sessions, while the remaining String's will
+The first String in `secrets : BackendTask FatalError (List String)` will be used to sign sessions, while the remaining String's will
 still be used to attempt to "unsign" the cookies. So if you have a single secret:
 
     Session.withSession