elm-pages 3.0.17 → 3.0.18

package/codegen/elm-pages-codegen.cjs

@@ -31866,7 +31866,7 @@ var $author$project$Gen$ApiRoute$literal = F2(
 									A3(
 									$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 									_List_fromArray(
-										['Internal', 'ApiRoute']),
+										['ApiRoute']),
 									'ApiRouteBuilder',
 									_List_fromArray(
 										[
@@ -31877,7 +31877,7 @@ var $author$project$Gen$ApiRoute$literal = F2(
 							A3(
 								$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 								_List_fromArray(
-									['Internal', 'ApiRoute']),
+									['ApiRoute']),
 								'ApiRouteBuilder',
 								_List_fromArray(
 									[
@@ -33260,7 +33260,7 @@ var $author$project$Gen$ApiRoute$single = function (singleArg_) {
 								A3(
 								$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 								_List_fromArray(
-									['Internal', 'ApiRoute']),
+									['ApiRoute']),
 								'ApiRouteBuilder',
 								_List_fromArray(
 									[
@@ -33285,7 +33285,7 @@ var $author$project$Gen$ApiRoute$single = function (singleArg_) {
 						A3(
 							$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 							_List_fromArray(
-								['Internal', 'ApiRoute']),
+								['ApiRoute']),
 							'ApiRoute',
 							_List_fromArray(
 								[
@@ -33318,7 +33318,7 @@ var $author$project$Gen$ApiRoute$succeed = function (succeedArg_) {
 						A3(
 							$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 							_List_fromArray(
-								['Internal', 'ApiRoute']),
+								['ApiRoute']),
 							'ApiRouteBuilder',
 							_List_fromArray(
 								[
@@ -34018,7 +34018,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 							A3(
 							$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 							_List_fromArray(
-								['Internal', 'ApiRoute']),
+								['ApiRoute']),
 							'ApiRouteBuilder',
 							_List_fromArray(
 								[
@@ -34033,7 +34033,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 					A3(
 						$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 						_List_fromArray(
-							['Internal', 'ApiRoute']),
+							['ApiRoute']),
 						'ApiRouteBuilder',
 						_List_fromArray(
 							[
@@ -34058,7 +34058,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 							A3(
 							$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 							_List_fromArray(
-								['Internal', 'ApiRoute']),
+								['ApiRoute']),
 							'ApiRoute',
 							_List_fromArray(
 								[
@@ -34094,7 +34094,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 							A3(
 							$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 							_List_fromArray(
-								['Internal', 'ApiRoute']),
+								['ApiRoute']),
 							'ApiRoute',
 							_List_fromArray(
 								[
@@ -34138,7 +34138,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 							A3(
 							$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 							_List_fromArray(
-								['Internal', 'ApiRoute']),
+								['ApiRoute']),
 							'ApiRouteBuilder',
 							_List_fromArray(
 								[
@@ -34149,7 +34149,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 					A3(
 						$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 						_List_fromArray(
-							['Internal', 'ApiRoute']),
+							['ApiRoute']),
 						'ApiRouteBuilder',
 						_List_fromArray(
 							[
@@ -34192,7 +34192,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 							A3(
 							$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 							_List_fromArray(
-								['Internal', 'ApiRoute']),
+								['ApiRoute']),
 							'ApiRouteBuilder',
 							_List_fromArray(
 								[
@@ -34217,7 +34217,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 					A3(
 						$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 						_List_fromArray(
-							['Internal', 'ApiRoute']),
+							['ApiRoute']),
 						'ApiRoute',
 						_List_fromArray(
 							[
@@ -34264,7 +34264,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 							A3(
 							$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 							_List_fromArray(
-								['Internal', 'ApiRoute']),
+								['ApiRoute']),
 							'ApiRouteBuilder',
 							_List_fromArray(
 								[
@@ -34308,7 +34308,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 					A3(
 						$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 						_List_fromArray(
-							['Internal', 'ApiRoute']),
+							['ApiRoute']),
 						'ApiRoute',
 						_List_fromArray(
 							[
@@ -34333,7 +34333,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 							A3(
 							$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 							_List_fromArray(
-								['Internal', 'ApiRoute']),
+								['ApiRoute']),
 							'ApiRouteBuilder',
 							_List_fromArray(
 								[
@@ -34388,7 +34388,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 					A3(
 						$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 						_List_fromArray(
-							['Internal', 'ApiRoute']),
+							['ApiRoute']),
 						'ApiRoute',
 						_List_fromArray(
 							[
@@ -34413,7 +34413,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 							A3(
 							$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 							_List_fromArray(
-								['Internal', 'ApiRoute']),
+								['ApiRoute']),
 							'ApiRouteBuilder',
 							_List_fromArray(
 								[
@@ -34438,7 +34438,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 					A3(
 						$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 						_List_fromArray(
-							['Internal', 'ApiRoute']),
+							['ApiRoute']),
 						'ApiRoute',
 						_List_fromArray(
 							[
@@ -34463,7 +34463,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 							A3(
 							$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 							_List_fromArray(
-								['Internal', 'ApiRoute']),
+								['ApiRoute']),
 							'ApiRouteBuilder',
 							_List_fromArray(
 								[
@@ -34474,7 +34474,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 					A3(
 						$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 						_List_fromArray(
-							['Internal', 'ApiRoute']),
+							['ApiRoute']),
 						'ApiRouteBuilder',
 						_List_fromArray(
 							[
@@ -34497,7 +34497,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 					A3(
 						$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 						_List_fromArray(
-							['Internal', 'ApiRoute']),
+							['ApiRoute']),
 						'ApiRouteBuilder',
 						_List_fromArray(
 							[
@@ -34518,7 +34518,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 							A3(
 							$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 							_List_fromArray(
-								['Internal', 'ApiRoute']),
+								['ApiRoute']),
 							'ApiRoute',
 							_List_fromArray(
 								[
@@ -34566,7 +34566,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 							A3(
 							$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 							_List_fromArray(
-								['Internal', 'ApiRoute']),
+								['ApiRoute']),
 							'ApiRoute',
 							_List_fromArray(
 								[
@@ -34576,7 +34576,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 					A3(
 						$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 						_List_fromArray(
-							['Internal', 'ApiRoute']),
+							['ApiRoute']),
 						'ApiRoute',
 						_List_fromArray(
 							[

package/package.json

@@ -1,7 +1,7 @@
 {
   "name": "elm-pages",
   "type": "module",
-  "version": "3.0.17",
+  "version": "3.0.18",
   "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/ApiRoute.elm

@@ -189,7 +189,7 @@ You define your ApiRoute's in `app/Api.elm`. Here's a simple example:
 import BackendTask exposing (BackendTask)
 import FatalError exposing (FatalError)
 import Head
-import Internal.ApiRoute exposing (ApiRoute(..), ApiRouteBuilder(..))
+import Internal.ApiRoute
 import Internal.Request
 import Json.Encode
 import Pattern
@@ -214,8 +214,8 @@ single handler =
 
 {-| -}
 serverRender : ApiRouteBuilder (Server.Request.Request -> BackendTask FatalError (Server.Response.Response Never Never)) constructor -> ApiRoute Response
-serverRender ((ApiRouteBuilder patterns pattern _ _ _) as fullHandler) =
-    ApiRoute
+serverRender ((Internal.ApiRoute.ApiRouteBuilder patterns pattern _ _ _) as fullHandler) =
+    Internal.ApiRoute.ApiRoute
         { regex = Regex.fromString ("^" ++ pattern ++ "$") |> Maybe.withDefault Regex.never
         , matchesToResponse =
             \serverRequest path ->
@@ -246,14 +246,14 @@ serverRender ((ApiRouteBuilder patterns pattern _ _ _) as fullHandler) =
 
 {-| -}
 preRenderWithFallback : (constructor -> BackendTask FatalError (List (List String))) -> ApiRouteBuilder (BackendTask FatalError (Server.Response.Response Never Never)) constructor -> ApiRoute Response
-preRenderWithFallback buildUrls ((ApiRouteBuilder patterns pattern _ toString constructor) as fullHandler) =
+preRenderWithFallback buildUrls ((Internal.ApiRoute.ApiRouteBuilder patterns pattern _ toString constructor) as fullHandler) =
     let
         buildTimeRoutes__ : BackendTask FatalError (List String)
         buildTimeRoutes__ =
             buildUrls (constructor [])
                 |> BackendTask.map (List.map toString)
     in
-    ApiRoute
+    Internal.ApiRoute.ApiRoute
         { regex = Regex.fromString ("^" ++ pattern ++ "$") |> Maybe.withDefault Regex.never
         , matchesToResponse =
             \_ path ->
@@ -335,7 +335,7 @@ Note: `dist` is the output folder for `elm-pages build`, so this will be accessi
 
 -}
 preRender : (constructor -> BackendTask FatalError (List (List String))) -> ApiRouteBuilder (BackendTask FatalError String) constructor -> ApiRoute Response
-preRender buildUrls ((ApiRouteBuilder patterns pattern _ toString constructor) as fullHandler) =
+preRender buildUrls ((Internal.ApiRoute.ApiRouteBuilder patterns pattern _ toString constructor) as fullHandler) =
     let
         buildTimeRoutes__ : BackendTask FatalError (List String)
         buildTimeRoutes__ =
@@ -346,7 +346,7 @@ preRender buildUrls ((ApiRouteBuilder patterns pattern _ toString constructor) a
         preBuiltMatches =
             buildUrls (constructor [])
     in
-    ApiRoute
+    Internal.ApiRoute.ApiRoute
         { regex = Regex.fromString ("^" ++ pattern ++ "$") |> Maybe.withDefault Regex.never
         , matchesToResponse =
             \_ path ->
@@ -403,13 +403,13 @@ type alias Response =
 -}
 succeed : a -> ApiRouteBuilder a (List String)
 succeed a =
-    ApiRouteBuilder Pattern.empty "" (\_ -> a) (\_ -> "") (\list -> list)
+    Internal.ApiRoute.ApiRouteBuilder Pattern.empty "" (\_ -> a) (\_ -> "") (\list -> list)
 
 
 {-| Turn the route into a pattern in JSON format. For internal uses.
 -}
 toJson : ApiRoute response -> Json.Encode.Value
-toJson ((ApiRoute { kind }) as apiRoute) =
+toJson ((Internal.ApiRoute.ApiRoute { kind }) as apiRoute) =
     Json.Encode.object
         [ ( "pathPattern", apiRoute |> Internal.ApiRoute.toPattern |> Pattern.toJson )
         , ( "kind", Json.Encode.string kind )
@@ -419,8 +419,8 @@ toJson ((ApiRoute { kind }) as apiRoute) =
 {-| A literal String segment of a route.
 -}
 literal : String -> ApiRouteBuilder a constructor -> ApiRouteBuilder a constructor
-literal segment (ApiRouteBuilder patterns pattern handler toString constructor) =
-    ApiRouteBuilder
+literal segment (Internal.ApiRoute.ApiRouteBuilder patterns pattern handler toString constructor) =
+    Internal.ApiRoute.ApiRouteBuilder
         (Pattern.addLiteral segment patterns)
         (pattern ++ segment)
         handler
@@ -431,8 +431,8 @@ literal segment (ApiRouteBuilder patterns pattern handler toString constructor)
 {-| A path separator within the route.
 -}
 slash : ApiRouteBuilder a constructor -> ApiRouteBuilder a constructor
-slash (ApiRouteBuilder patterns pattern handler toString constructor) =
-    ApiRouteBuilder (patterns |> Pattern.addSlash) (pattern ++ "/") handler (\arg -> toString arg ++ "/") constructor
+slash (Internal.ApiRoute.ApiRouteBuilder patterns pattern handler toString constructor) =
+    Internal.ApiRoute.ApiRouteBuilder (patterns |> Pattern.addSlash) (pattern ++ "/") handler (\arg -> toString arg ++ "/") constructor
 
 
 {-| Captures a dynamic segment from the route.
@@ -440,8 +440,8 @@ slash (ApiRouteBuilder patterns pattern handler toString constructor) =
 capture :
     ApiRouteBuilder (String -> a) constructor
     -> ApiRouteBuilder a (String -> constructor)
-capture (ApiRouteBuilder patterns pattern previousHandler toString constructor) =
-    ApiRouteBuilder
+capture (Internal.ApiRoute.ApiRouteBuilder patterns pattern previousHandler toString constructor) =
+    Internal.ApiRoute.ApiRouteBuilder
         (patterns |> Pattern.addCapture)
         (pattern ++ "(.*)")
         (\matches ->
@@ -469,19 +469,19 @@ capture (ApiRouteBuilder patterns pattern previousHandler toString constructor)
 {-| For internal use by generated code. Not so useful in user-land.
 -}
 getBuildTimeRoutes : ApiRoute response -> BackendTask FatalError (List String)
-getBuildTimeRoutes (ApiRoute handler) =
+getBuildTimeRoutes (Internal.ApiRoute.ApiRoute handler) =
     handler.buildTimeRoutes
 
 
 {-| Include head tags on every page's HTML.
 -}
 withGlobalHeadTags : BackendTask FatalError (List Head.Tag) -> ApiRoute response -> ApiRoute response
-withGlobalHeadTags globalHeadTags (ApiRoute handler) =
-    ApiRoute { handler | globalHeadTags = Just globalHeadTags }
+withGlobalHeadTags globalHeadTags (Internal.ApiRoute.ApiRoute handler) =
+    Internal.ApiRoute.ApiRoute { handler | globalHeadTags = Just globalHeadTags }
 
 
 {-| For internal use.
 -}
 getGlobalHeadTagsBackendTask : ApiRoute response -> Maybe (BackendTask FatalError (List Head.Tag))
-getGlobalHeadTagsBackendTask (ApiRoute handler) =
+getGlobalHeadTagsBackendTask (Internal.ApiRoute.ApiRoute handler) =
     handler.globalHeadTags