elm-pages 3.0.0-beta.35 → 3.0.0-beta.36

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: 1263909344, fuzzRuns: 100, filter: null };
+const flags = { initialSeed: 2714937880, 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: 1263909344,
+  initialSeed: 2714937880,
   fuzzRuns: 100,
   mode: "consoleColor",
   verbosity: verbosity,

package/generator/src/build.js

@@ -505,7 +505,7 @@ function runElmMake(mode, options, elmEntrypointPath, outputPath, cwd) {
 /**
  * @param {string} filePath
  */
-async function runTerser(filePath) {
+export async function runTerser(filePath) {
   console.log("Running terser");
   const minifiedElm = await terser.minify(
     (await fsPromises.readFile(filePath)).toString(),

package/generator/src/cli.js

@@ -19,6 +19,7 @@ import * as commander from "commander";
 import { runElmCodegenInstall } from "./elm-codegen.js";
 import { packageVersion } from "./compatibility-key.js";
 import { resolveInputPathOrModuleName } from "./resolve-elm-module.js";
+import { runTerser } from "./build.js";
 
 const Argument = commander.Argument;
 const Option = commander.Option;
@@ -194,6 +195,7 @@ async function main() {
 
       let executableName = await lamderaOrElmFallback();
       await build.compileCliApp({ debug: options.debug, executableName });
+      // await runTerser(`${projectDirectory}/elm-stuff/elm-pages/elm.js`);
       fs.renameSync(
         `${projectDirectory}/elm-stuff/elm-pages/elm.js`,
         `${projectDirectory}/elm-stuff/elm-pages/elm.cjs`
@@ -245,9 +247,29 @@ await(async()=>{let{dirname:e}=await import("path"),{fileURLToPath:i}=await impo
           outfile: path.resolve(cwd, options.output),
           external: ["node:*", ...options.external],
           minify: true,
+          pure: [
+            "A2",
+            "A3",
+            "A4",
+            "A5",
+            "A6",
+            "A7",
+            "A8",
+            "A9",
+            "F2",
+            "F3",
+            "F3",
+            "F4",
+            "F5",
+            "F6",
+            "F7",
+            "F8",
+            "F9",
+          ],
           absWorkingDir: projectDirectory,
           banner: { js: `#!/usr/bin/env node\n\n${ESM_REQUIRE_SHIM}` },
         });
+        // await runTerser(path.resolve(cwd, options.output));
       } catch (error) {
         console.log(restoreColorSafe(error));
         process.exit(1);

package/generator/src/compatibility-key.js

@@ -1,3 +1,3 @@
 export const compatibilityKey = 15;
 
-export const packageVersion = "3.0.0-beta.35";
+export const packageVersion = "3.0.0-beta.36";

package/package.json

@@ -1,7 +1,7 @@
 {
   "name": "elm-pages",
   "type": "module",
-  "version": "3.0.0-beta.35",
+  "version": "3.0.0-beta.36",
   "homepage": "https://elm-pages.com",
   "moduleResolution": "node",
   "description": "Type-safe static sites, written in pure elm with your own custom elm-markup syntax.",
@@ -27,45 +27,45 @@
   "dependencies": {
     "busboy": "^1.6.0",
     "chokidar": "^3.5.3",
-    "commander": "^10.0.0",
+    "commander": "^10.0.1",
     "connect": "^3.7.0",
     "cookie-signature": "^1.2.1",
     "cross-spawn": "7.0.3",
     "devcert": "^1.2.2",
     "elm-doc-preview": "^5.0.5",
     "elm-hot": "^1.1.6",
-    "esbuild": "^0.17.12",
+    "esbuild": "^0.17.18",
     "fs-extra": "^11.1.1",
-    "globby": "13.1.3",
+    "globby": "13.1.4",
     "gray-matter": "^4.0.3",
     "jsesc": "^3.0.2",
     "kleur": "^4.1.5",
-    "make-fetch-happen": "^11.0.3",
-    "memfs": "^3.4.13",
+    "make-fetch-happen": "^11.1.1",
+    "memfs": "^3.5.1",
     "micromatch": "^4.0.5",
     "serve-static": "^1.15.0",
-    "terser": "^5.16.8",
-    "vite": "^4.2.1",
-    "which": "^3.0.0"
+    "terser": "^5.17.1",
+    "vite": "^4.3.5",
+    "which": "^3.0.1"
   },
   "devDependencies": {
     "@types/cross-spawn": "^6.0.2",
     "@types/fs-extra": "^11.0.1",
     "@types/make-fetch-happen": "^10.0.1",
     "@types/micromatch": "^4.0.2",
-    "@types/node": "^18.15.7",
+    "@types/node": "^20.1.0",
     "@types/serve-static": "^1.15.1",
-    "cypress": "^12.8.1",
+    "cypress": "^12.11.0",
     "elm-codegen": "^0.3.0",
     "elm-optimize-level-2": "^0.3.5",
-    "elm-review": "^2.10.1",
-    "elm-test": "^0.19.1-revision11",
-    "elm-tooling": "^1.13.1",
+    "elm-review": "^2.10.2",
+    "elm-test": "^0.19.1-revision12",
+    "elm-tooling": "^1.14.0",
     "elm-verify-examples": "^5.2.0",
     "elmi-to-json": "^1.4.3",
-    "typescript": "^5.0.2",
-    "vite": "^4.2.1",
-    "vitest": "^0.29.7"
+    "typescript": "^5.0.4",
+    "vite": "^4.3.5",
+    "vitest": "^0.31.0"
   },
   "files": [
     "generator/src/",

package/src/BackendTask/Internal/Request.elm

@@ -25,10 +25,6 @@ request ({ name, body, expect } as params) =
         expect
         |> BackendTask.onError
             (\error ->
-                let
-                    _ =
-                        Debug.log "BackendTask.Internal.Request" error
-                in
                 -- TODO avoid crash here, this should be handled as an internal error
                 request params
             )

package/src/Stub.elm

@@ -0,0 +1,56 @@
+module Stub exposing (..)
+
+import Json.Decode as Decode
+import Set exposing (Set)
+
+
+type alias Id =
+    Int
+
+
+type alias Model =
+    { nextId : Id
+    , sentIds : Set Id
+    }
+
+
+
+--task : Task error value
+--task =
+--    Pending
+--        (\id -> id)
+--        (\value model -> ( model, Done (Ok value) ))
+
+
+type Task error value
+    = Pending (Id -> Id) (Decode.Value -> Model -> ( Model, Task error value ))
+    | Done (Result error value)
+
+
+map2 : (value1 -> value2 -> combined) -> Task error value1 -> Task error value2 -> Task error combined
+map2 mapFn task1 task2 =
+    case ( task1, task2 ) of
+        ( Done resolved1, Done resolved2 ) ->
+            Debug.todo ""
+
+        ( Pending toId1 resolved1, Pending toId2 resolved2 ) ->
+            Pending
+                (\id ->
+                    max (toId1 id) (toId2 id)
+                        |> nextId
+                )
+                (\value id ->
+                    Debug.todo ""
+                )
+
+        _ ->
+            Debug.todo ""
+
+
+nextId id =
+    id + 1
+
+
+
+--(Task toId1 resolve1)
+--(Task toId2 resolve2)