elm-pages 3.0.18 → 3.0.20

package/README.md

@@ -11,7 +11,7 @@
 
 - [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.1.0/)
+- [elm-pages Elm API Docs](https://package.elm-lang.org/packages/dillonkearns/elm-pages/10.2.0/)
 - [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) 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.

package/codegen/elm-pages-codegen.cjs

@@ -26079,6 +26079,32 @@ var $author$project$Gen$Pages$Internal$Platform$annotation_ = {
 								]))
 						])));
 		}),
+	programConfig: F9(
+		function (programConfigArg0, programConfigArg1, programConfigArg2, programConfigArg3, programConfigArg4, programConfigArg5, programConfigArg6, programConfigArg7, programConfigArg8) {
+			return A4(
+				$mdgriffith$elm_codegen$Elm$Annotation$alias,
+				$author$project$Gen$Pages$Internal$Platform$moduleName_,
+				'ProgramConfig',
+				_List_fromArray(
+					[programConfigArg0, programConfigArg1, programConfigArg2, programConfigArg3, programConfigArg4, programConfigArg5, programConfigArg6, programConfigArg7, programConfigArg8]),
+				A3(
+					$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
+					_List_fromArray(
+						['Pages', 'ProgramConfig']),
+					'ProgramConfig',
+					_List_fromArray(
+						[
+							$mdgriffith$elm_codegen$Elm$Annotation$var('userMsg'),
+							$mdgriffith$elm_codegen$Elm$Annotation$var('userModel'),
+							$mdgriffith$elm_codegen$Elm$Annotation$var('route'),
+							$mdgriffith$elm_codegen$Elm$Annotation$var('pageData'),
+							$mdgriffith$elm_codegen$Elm$Annotation$var('actionData'),
+							$mdgriffith$elm_codegen$Elm$Annotation$var('sharedData'),
+							$mdgriffith$elm_codegen$Elm$Annotation$var('effect'),
+							$mdgriffith$elm_codegen$Elm$Annotation$var('mappedMsg'),
+							$mdgriffith$elm_codegen$Elm$Annotation$var('errorPage')
+						])));
+		}),
 	requestInfo: A4(
 		$mdgriffith$elm_codegen$Elm$Annotation$alias,
 		$author$project$Gen$Pages$Internal$Platform$moduleName_,
@@ -26202,7 +26228,33 @@ var $author$project$Gen$Pages$Internal$Platform$Cli$annotation_ = {
 						'Msg',
 						_List_Nil)
 					])));
-	}
+	},
+	programConfig: F9(
+		function (programConfigArg0, programConfigArg1, programConfigArg2, programConfigArg3, programConfigArg4, programConfigArg5, programConfigArg6, programConfigArg7, programConfigArg8) {
+			return A4(
+				$mdgriffith$elm_codegen$Elm$Annotation$alias,
+				$author$project$Gen$Pages$Internal$Platform$Cli$moduleName_,
+				'ProgramConfig',
+				_List_fromArray(
+					[programConfigArg0, programConfigArg1, programConfigArg2, programConfigArg3, programConfigArg4, programConfigArg5, programConfigArg6, programConfigArg7, programConfigArg8]),
+				A3(
+					$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
+					_List_fromArray(
+						['Pages', 'ProgramConfig']),
+					'ProgramConfig',
+					_List_fromArray(
+						[
+							$mdgriffith$elm_codegen$Elm$Annotation$var('userMsg'),
+							$mdgriffith$elm_codegen$Elm$Annotation$var('userModel'),
+							$mdgriffith$elm_codegen$Elm$Annotation$var('route'),
+							$mdgriffith$elm_codegen$Elm$Annotation$var('pageData'),
+							$mdgriffith$elm_codegen$Elm$Annotation$var('actionData'),
+							$mdgriffith$elm_codegen$Elm$Annotation$var('sharedData'),
+							$mdgriffith$elm_codegen$Elm$Annotation$var('effect'),
+							$mdgriffith$elm_codegen$Elm$Annotation$var('mappedMsg'),
+							$mdgriffith$elm_codegen$Elm$Annotation$var('errorPage')
+						])));
+		})
 };
 var $author$project$Gen$PagesMsg$moduleName_ = _List_fromArray(
 	['PagesMsg']);
@@ -26341,7 +26393,7 @@ var $author$project$Gen$Pages$Internal$Platform$application = function (applicat
 								A3(
 								$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 								_List_fromArray(
-									['Pages', 'ProgramConfig']),
+									['Pages', 'Internal', 'Platform']),
 								'ProgramConfig',
 								_List_fromArray(
 									[
@@ -31089,7 +31141,7 @@ var $author$project$Gen$Pages$Internal$Platform$Cli$cliApplication = function (c
 								A3(
 								$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 								_List_fromArray(
-									['Pages', 'ProgramConfig']),
+									['Pages', 'Internal', 'Platform', 'Cli']),
 								'ProgramConfig',
 								_List_fromArray(
 									[

package/generator/src/build.js

@@ -292,8 +292,7 @@ export async function render(request) {
       processedIndexTemplate
     );
   } catch (error) {
-    console.trace(error);
-    if (error) {
+    if(error) {
       console.error(restoreColorSafe(error));
     }
     buildError = true;

package/generator/src/compatibility-key.js

@@ -1,3 +1,3 @@
 export const compatibilityKey = 22;
 
-export const packageVersion = "3.0.16";
+export const packageVersion = "3.0.20";

package/generator/template/elm.json

@@ -12,9 +12,9 @@
             "danfishgold/base64-bytes": "1.1.0",
             "danyx23/elm-mimetype": "4.0.1",
             "dillonkearns/elm-bcp47-language-tag": "2.0.0",
-            "dillonkearns/elm-form": "3.0.0",
+            "dillonkearns/elm-form": "3.0.1",
             "dillonkearns/elm-markdown": "7.0.1",
-            "dillonkearns/elm-pages": "10.1.0",
+            "dillonkearns/elm-pages": "10.2.0",
             "elm/browser": "1.0.2",
             "elm/bytes": "1.0.8",
             "elm/core": "1.0.5",
@@ -31,12 +31,12 @@
             "elm-community/result-extra": "2.4.0",
             "jluckyiv/elm-utc-date-strings": "1.0.0",
             "justinmimbs/date": "4.1.0",
-            "mdgriffith/elm-codegen": "4.2.1",
-            "miniBill/elm-codec": "2.1.0",
+            "mdgriffith/elm-codegen": "5.2.0",
+            "miniBill/elm-codec": "2.2.0",
             "noahzgordon/elm-color-extra": "1.0.2",
             "robinheghan/fnv1a": "1.0.0",
             "rtfeldman/elm-css": "18.0.0",
-            "the-sett/elm-syntax-dsl": "6.0.2",
+            "the-sett/elm-syntax-dsl": "6.0.3",
             "turboMaCk/non-empty-list-alias": "1.4.0",
             "vito/elm-ansi": "10.0.1"
         },
@@ -53,9 +53,10 @@
             "robinheghan/murmur3": "1.0.0",
             "rtfeldman/elm-hex": "1.0.0",
             "rtfeldman/elm-iso8601-date-strings": "1.1.4",
-            "stil4m/elm-syntax": "7.3.2",
+            "stil4m/elm-syntax": "7.3.8",
             "stil4m/structured-writer": "1.0.3",
-            "the-sett/elm-pretty-printer": "3.1.0"
+            "the-sett/elm-pretty-printer": "3.1.0",
+            "wolfadex/elm-ansi": "3.0.0"
         }
     },
     "test-dependencies": {

package/generator/template/index.ts

@@ -5,7 +5,8 @@ type ElmPagesInit = {
 
 const config: ElmPagesInit = {
   load: async function (elmLoaded) {
-    await elmLoaded;
+    const app = await elmLoaded;
+    console.log("App loaded", app);
   },
   flags: function () {
     return "You can decode this in Shared.elm using Json.Decode.string!";

package/generator/template/package.json

@@ -7,15 +7,15 @@
     "build": "elm-pages build"
   },
   "devDependencies": {
-    "elm-codegen": "^0.5.3",
+    "elm-codegen": "^0.6.1",
     "elm-optimize-level-2": "^0.3.5",
-    "elm-pages": "^3.0.14",
+    "elm-pages": "3.0.19",
     "elm-review": "^2.12.0",
     "elm-tooling": "^1.15.1",
-    "lamdera": "^0.19.1-1.2.1-1",
-    "vite": "^5.3.3"
+    "lamdera": "^0.19.1-1.3.2",
+    "vite": "^6.0.6"
   },
   "dependencies": {
-    "@netlify/functions": "^2.4.1"
+    "@netlify/functions": "^3.0.0"
   }
-}
+}

package/generator/template/script/elm.json

@@ -8,12 +8,12 @@
     "dependencies": {
         "direct": {
             "dillonkearns/elm-cli-options-parser": "3.2.0",
-            "dillonkearns/elm-pages": "10.1.0",
+            "dillonkearns/elm-pages": "10.2.0",
             "elm/bytes": "1.0.8",
             "elm/core": "1.0.5",
             "elm/html": "1.0.0",
             "elm/json": "1.1.3",
-            "mdgriffith/elm-codegen": "4.2.1"
+            "mdgriffith/elm-codegen": "5.2.0"
         },
         "indirect": {
             "Chadtech/elm-bool-extra": "2.4.2",
@@ -22,7 +22,7 @@
             "danyx23/elm-mimetype": "4.0.1",
             "dillonkearns/elm-bcp47-language-tag": "2.0.0",
             "dillonkearns/elm-date-or-date-time": "2.0.0",
-            "dillonkearns/elm-form": "3.0.0",
+            "dillonkearns/elm-form": "3.0.1",
             "elm/browser": "1.0.2",
             "elm/file": "1.0.5",
             "elm/http": "2.0.0",
@@ -38,7 +38,7 @@
             "fredcy/elm-parseint": "2.0.1",
             "jluckyiv/elm-utc-date-strings": "1.0.0",
             "justinmimbs/date": "4.1.0",
-            "miniBill/elm-codec": "2.1.0",
+            "miniBill/elm-codec": "2.2.0",
             "miniBill/elm-unicode": "1.1.1",
             "noahzgordon/elm-color-extra": "1.0.2",
             "robinheghan/fnv1a": "1.0.0",
@@ -46,11 +46,11 @@
             "rtfeldman/elm-css": "18.0.0",
             "rtfeldman/elm-hex": "1.0.0",
             "rtfeldman/elm-iso8601-date-strings": "1.1.4",
-            "stil4m/elm-syntax": "7.3.2",
+            "stil4m/elm-syntax": "7.3.8",
             "stil4m/structured-writer": "1.0.3",
             "the-sett/elm-pretty-printer": "3.1.0",
-            "the-sett/elm-syntax-dsl": "6.0.2",
-            "vito/elm-ansi": "10.0.1"
+            "the-sett/elm-syntax-dsl": "6.0.3",
+            "wolfadex/elm-ansi": "3.0.0"
         }
     },
     "test-dependencies": {

package/generator/template/script/src/AddRoute.elm

@@ -22,6 +22,7 @@ import Gen.List
 import Gen.Maybe
 import Gen.Pages.Form as PagesForm
 import Gen.Pages.Script
+import Gen.Platform.Sub
 import Gen.Server.Request as Request
 import Gen.Server.Response as Response
 import Gen.View
@@ -253,7 +254,7 @@ createFile { moduleName, fields } =
                     Elm.tuple (Elm.record []) Effect.none
             , subscriptions =
                 \{ routeParams, path, shared, model } ->
-                    Elm.val "Sub.none"
+                    Gen.Platform.Sub.none
             , model =
                 Alias (Type.record [])
             , msg =

package/package.json

@@ -1,7 +1,7 @@
 {
   "name": "elm-pages",
   "type": "module",
-  "version": "3.0.18",
+  "version": "3.0.20",
   "homepage": "https://elm-pages.com",
   "moduleResolution": "node",
   "description": "Type-safe static sites, written in pure elm with your own custom elm-markup syntax.",
@@ -34,7 +34,7 @@
     "cookie-signature": "^1.2.2",
     "cross-spawn": "7.0.6",
     "devcert": "^1.2.2",
-    "elm-doc-preview": "^5.0.5",
+    "elm-doc-preview": "^6.0.0",
     "elm-hot": "^1.1.6",
     "esbuild": "^0.24.0",
     "fs-extra": "^11.2.0",
@@ -47,6 +47,7 @@
     "micromatch": "^4.0.8",
     "serve-static": "^1.16.2",
     "terser": "^5.36.0",
+    "vite": "^6.0.0",
     "which": "^5.0.0"
   },
   "devDependencies": {
@@ -65,7 +66,6 @@
     "elm-verify-examples": "^6.0.3",
     "lamdera": "^0.19.1-1.3.2",
     "typescript": "^5.7.2",
-    "vite": "^6.0.0",
     "vitest": "^2.1.6"
   },
   "files": [

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

@@ -1,8 +1,8 @@
-module Pages.Internal.Platform.Cli exposing (Flags, Model, Msg(..), Program, cliApplication, init, requestDecoder, update, currentCompatibilityKey)
+module Pages.Internal.Platform.Cli exposing (Flags, Model, Msg(..), ProgramConfig, Program, cliApplication, init, requestDecoder, update, currentCompatibilityKey)
 
 {-| Exposed for internal use only (used in generated code).
 
-@docs Flags, Model, Msg, Program, cliApplication, init, requestDecoder, update, currentCompatibilityKey
+@docs Flags, Model, Msg, ProgramConfig, Program, cliApplication, init, requestDecoder, update, currentCompatibilityKey
 
 -}
 
@@ -29,7 +29,7 @@ import Pages.Internal.Platform.Effect as Effect exposing (Effect)
 import Pages.Internal.Platform.StaticResponses as StaticResponses
 import Pages.Internal.Platform.ToJsPayload as ToJsPayload
 import Pages.Internal.ResponseSketch as ResponseSketch
-import Pages.ProgramConfig exposing (ProgramConfig)
+import Pages.ProgramConfig
 import Pages.SiteConfig exposing (SiteConfig)
 import Pages.StaticHttp.Request
 import PagesMsg exposing (PagesMsg)
@@ -71,6 +71,11 @@ type alias Program route =
     Platform.Program Flags (Model route) Msg
 
 
+{-| -}
+type alias ProgramConfig userMsg userModel route pageData actionData sharedData effect mappedMsg errorPage =
+    Pages.ProgramConfig.ProgramConfig userMsg userModel route pageData actionData sharedData effect mappedMsg errorPage
+
+
 {-| -}
 cliApplication :
     ProgramConfig userMsg userModel (Maybe route) pageData actionData sharedData effect mappedMsg errorPage

package/src/Pages/Internal/Platform.elm

@@ -1,11 +1,11 @@
 module Pages.Internal.Platform exposing
-    ( Flags, Model, Msg(..), Program, application, init, update
+    ( Flags, Model, Msg(..), Program, ProgramConfig, application, init, update
     , Effect(..), RequestInfo, view
     )
 
 {-| Exposed for internal use only (used in generated code).
 
-@docs Flags, Model, Msg, Program, application, init, update
+@docs Flags, Model, Msg, Program, ProgramConfig, application, init, update
 
 @docs Effect, RequestInfo, view
 
@@ -35,7 +35,7 @@ import Pages.Internal.NotFoundReason exposing (NotFoundReason)
 import Pages.Internal.ResponseSketch as ResponseSketch exposing (ResponseSketch)
 import Pages.Internal.String as String
 import Pages.Navigation
-import Pages.ProgramConfig exposing (ProgramConfig)
+import Pages.ProgramConfig
 import Pages.StaticHttpRequest as StaticHttpRequest
 import PagesMsg exposing (PagesMsg)
 import QueryParams
@@ -50,6 +50,11 @@ type alias Program userModel userMsg pageData actionData sharedData errorPage =
     Platform.Program Flags (Model userModel pageData actionData sharedData) (Msg userMsg pageData actionData sharedData errorPage)
 
 
+{-| -}
+type alias ProgramConfig userMsg userModel route pageData actionData sharedData effect mappedMsg errorPage =
+    Pages.ProgramConfig.ProgramConfig userMsg userModel route pageData actionData sharedData effect mappedMsg errorPage
+
+
 mainView :
     ProgramConfig userMsg userModel route pageData actionData sharedData effect (Msg userMsg pageData actionData sharedData errorPage) errorPage
     -> Model userModel pageData actionData sharedData
@@ -567,8 +572,14 @@ update config appMsg model =
                                    )
 
                     else
-                        -- TODO should the user msg still be run if the form is invalid?
                         ( model, NoEffect )
+                            |> (case fields.msg of
+                                    Just justUserMsg ->
+                                        performUserMsg justUserMsg config
+
+                                    Nothing ->
+                                        identity
+                               )
 
                 Pages.Internal.Msg.FormMsg formMsg ->
                     -- TODO when init is called for a new page, also need to clear out client-side `pageFormState`

package/src/TerminalText.elm

@@ -17,7 +17,8 @@ module TerminalText exposing
     , yellow
     )
 
-import Ansi
+import Ansi.Color
+import Ansi.Parser
 import Json.Encode as Encode
 
 
@@ -32,27 +33,27 @@ text value =
 
 cyan : String -> Text
 cyan inner =
-    Style { blankStyle | color = Just Ansi.Cyan } inner
+    Style { blankStyle | color = Just Ansi.Color.Cyan } inner
 
 
 green : String -> Text
 green inner =
-    Style { blankStyle | color = Just Ansi.Green } inner
+    Style { blankStyle | color = Just Ansi.Color.Green } inner
 
 
 yellow : String -> Text
 yellow inner =
-    Style { blankStyle | color = Just Ansi.Yellow } inner
+    Style { blankStyle | color = Just Ansi.Color.Yellow } inner
 
 
 red : String -> Text
 red inner =
-    Style { blankStyle | color = Just Ansi.Red } inner
+    Style { blankStyle | color = Just Ansi.Color.Red } inner
 
 
 blue : String -> Text
 blue inner =
-    Style { blankStyle | color = Just Ansi.Blue } inner
+    Style { blankStyle | color = Just Ansi.Color.Blue } inner
 
 
 resetColors : String
@@ -70,23 +71,23 @@ ansiPrefix =
     "\u{001B}"
 
 
-colorToString : Ansi.Color -> String
+colorToString : Ansi.Color.Color -> String
 colorToString color =
     ansi <|
         case color of
-            Ansi.Red ->
+            Ansi.Color.Red ->
                 "[31m"
 
-            Ansi.Blue ->
+            Ansi.Color.Blue ->
                 "[34m"
 
-            Ansi.Green ->
+            Ansi.Color.Green ->
                 "[32m"
 
-            Ansi.Yellow ->
+            Ansi.Color.Yellow ->
                 "[33m"
 
-            Ansi.Cyan ->
+            Ansi.Color.Cyan ->
                 "[36m"
 
             _ ->
@@ -104,7 +105,7 @@ toString list =
 toString_ : Text -> String
 toString_ (Style ansiStyle innerText) =
     String.concat
-        [ ansiStyle.color |> Maybe.withDefault Ansi.White |> colorToString
+        [ ansiStyle.color |> Maybe.withDefault Ansi.Color.White |> colorToString
         , innerText
         , resetColors
         ]
@@ -119,7 +120,7 @@ toPlainString list =
 
 fromAnsiString : String -> List Text
 fromAnsiString ansiString =
-    Ansi.parseInto ( blankStyle, [] ) parseInto ansiString
+    Ansi.Parser.parseInto ( blankStyle, [] ) parseInto ansiString
         |> Tuple.second
         |> List.reverse
 
@@ -127,7 +128,7 @@ fromAnsiString ansiString =
 type alias AnsiStyle =
     { bold : Bool
     , underline : Bool
-    , color : Maybe Ansi.Color
+    , color : Maybe Ansi.Color.Color
     }
 
 
@@ -139,16 +140,16 @@ blankStyle =
     }
 
 
-parseInto : Ansi.Action -> ( AnsiStyle, List Text ) -> ( AnsiStyle, List Text )
+parseInto : Ansi.Parser.Command -> ( AnsiStyle, List Text ) -> ( AnsiStyle, List Text )
 parseInto action ( pendingStyle, soFar ) =
     case action of
-        Ansi.Print string ->
+        Ansi.Parser.Text string ->
             ( blankStyle, Style pendingStyle string :: soFar )
 
-        Ansi.Remainder _ ->
+        Ansi.Parser.Remainder _ ->
             ( pendingStyle, soFar )
 
-        Ansi.SetForeground maybeColor ->
+        Ansi.Parser.SetForeground maybeColor ->
             case maybeColor of
                 Just newColor ->
                     ( { pendingStyle
@@ -160,22 +161,22 @@ parseInto action ( pendingStyle, soFar ) =
                 Nothing ->
                     ( blankStyle, soFar )
 
-        Ansi.SetBold bool ->
+        Ansi.Parser.SetBold bool ->
             ( { pendingStyle | bold = bool }, soFar )
 
-        Ansi.SetFaint _ ->
+        Ansi.Parser.SetFaint _ ->
             ( pendingStyle, soFar )
 
-        Ansi.SetItalic _ ->
+        Ansi.Parser.SetItalic _ ->
             ( pendingStyle, soFar )
 
-        Ansi.SetUnderline bool ->
+        Ansi.Parser.SetUnderline bool ->
             ( { pendingStyle | underline = bool }, soFar )
 
-        Ansi.SetBackground _ ->
+        Ansi.Parser.SetBackground _ ->
             ( pendingStyle, soFar )
 
-        Ansi.Linebreak ->
+        Ansi.Parser.Linebreak ->
             case soFar of
                 next :: rest ->
                     ( pendingStyle, Style blankStyle "\n" :: next :: rest )
@@ -194,56 +195,59 @@ encoder (Style ansiStyle string) =
         , ( "underline", Encode.bool ansiStyle.underline )
         , ( "color"
           , Encode.string <|
-                case ansiStyle.color |> Maybe.withDefault Ansi.White of
-                    Ansi.Red ->
+                case ansiStyle.color |> Maybe.withDefault Ansi.Color.White of
+                    Ansi.Color.Red ->
                         "red"
 
-                    Ansi.Blue ->
+                    Ansi.Color.Blue ->
                         "blue"
 
-                    Ansi.Green ->
+                    Ansi.Color.Green ->
                         "green"
 
-                    Ansi.Yellow ->
+                    Ansi.Color.Yellow ->
                         "yellow"
 
-                    Ansi.Cyan ->
+                    Ansi.Color.Cyan ->
                         "cyan"
 
-                    Ansi.Black ->
+                    Ansi.Color.Black ->
                         "black"
 
-                    Ansi.Magenta ->
+                    Ansi.Color.Magenta ->
                         "magenta"
 
-                    Ansi.White ->
+                    Ansi.Color.White ->
                         "white"
 
-                    Ansi.BrightBlack ->
+                    Ansi.Color.BrightBlack ->
                         "BLACK"
 
-                    Ansi.BrightRed ->
+                    Ansi.Color.BrightRed ->
                         "RED"
 
-                    Ansi.BrightGreen ->
+                    Ansi.Color.BrightGreen ->
                         "GREEN"
 
-                    Ansi.BrightYellow ->
+                    Ansi.Color.BrightYellow ->
                         "YELLOW"
 
-                    Ansi.BrightBlue ->
+                    Ansi.Color.BrightBlue ->
                         "BLUE"
 
-                    Ansi.BrightMagenta ->
+                    Ansi.Color.BrightMagenta ->
                         "MAGENTA"
 
-                    Ansi.BrightCyan ->
+                    Ansi.Color.BrightCyan ->
                         "CYAN"
 
-                    Ansi.BrightWhite ->
+                    Ansi.Color.BrightWhite ->
                         "WHITE"
 
-                    Ansi.Custom _ _ _ ->
+                    Ansi.Color.Custom256 _ ->
+                        ""
+
+                    Ansi.Color.CustomTrueColor _ ->
                         ""
           )
         , ( "string", Encode.string string )