elm-pages 3.0.17 → 3.0.19

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(
 									[
@@ -31866,7 +31918,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 +31929,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 +33312,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 +33337,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 +33370,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 +34070,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 							A3(
 							$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 							_List_fromArray(
-								['Internal', 'ApiRoute']),
+								['ApiRoute']),
 							'ApiRouteBuilder',
 							_List_fromArray(
 								[
@@ -34033,7 +34085,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 					A3(
 						$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 						_List_fromArray(
-							['Internal', 'ApiRoute']),
+							['ApiRoute']),
 						'ApiRouteBuilder',
 						_List_fromArray(
 							[
@@ -34058,7 +34110,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 							A3(
 							$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 							_List_fromArray(
-								['Internal', 'ApiRoute']),
+								['ApiRoute']),
 							'ApiRoute',
 							_List_fromArray(
 								[
@@ -34094,7 +34146,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 							A3(
 							$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 							_List_fromArray(
-								['Internal', 'ApiRoute']),
+								['ApiRoute']),
 							'ApiRoute',
 							_List_fromArray(
 								[
@@ -34138,7 +34190,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 							A3(
 							$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 							_List_fromArray(
-								['Internal', 'ApiRoute']),
+								['ApiRoute']),
 							'ApiRouteBuilder',
 							_List_fromArray(
 								[
@@ -34149,7 +34201,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 					A3(
 						$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 						_List_fromArray(
-							['Internal', 'ApiRoute']),
+							['ApiRoute']),
 						'ApiRouteBuilder',
 						_List_fromArray(
 							[
@@ -34192,7 +34244,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 							A3(
 							$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 							_List_fromArray(
-								['Internal', 'ApiRoute']),
+								['ApiRoute']),
 							'ApiRouteBuilder',
 							_List_fromArray(
 								[
@@ -34217,7 +34269,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 					A3(
 						$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 						_List_fromArray(
-							['Internal', 'ApiRoute']),
+							['ApiRoute']),
 						'ApiRoute',
 						_List_fromArray(
 							[
@@ -34264,7 +34316,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 							A3(
 							$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 							_List_fromArray(
-								['Internal', 'ApiRoute']),
+								['ApiRoute']),
 							'ApiRouteBuilder',
 							_List_fromArray(
 								[
@@ -34308,7 +34360,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 					A3(
 						$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 						_List_fromArray(
-							['Internal', 'ApiRoute']),
+							['ApiRoute']),
 						'ApiRoute',
 						_List_fromArray(
 							[
@@ -34333,7 +34385,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 							A3(
 							$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 							_List_fromArray(
-								['Internal', 'ApiRoute']),
+								['ApiRoute']),
 							'ApiRouteBuilder',
 							_List_fromArray(
 								[
@@ -34388,7 +34440,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 					A3(
 						$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 						_List_fromArray(
-							['Internal', 'ApiRoute']),
+							['ApiRoute']),
 						'ApiRoute',
 						_List_fromArray(
 							[
@@ -34413,7 +34465,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 							A3(
 							$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 							_List_fromArray(
-								['Internal', 'ApiRoute']),
+								['ApiRoute']),
 							'ApiRouteBuilder',
 							_List_fromArray(
 								[
@@ -34438,7 +34490,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 					A3(
 						$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 						_List_fromArray(
-							['Internal', 'ApiRoute']),
+							['ApiRoute']),
 						'ApiRoute',
 						_List_fromArray(
 							[
@@ -34463,7 +34515,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 							A3(
 							$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 							_List_fromArray(
-								['Internal', 'ApiRoute']),
+								['ApiRoute']),
 							'ApiRouteBuilder',
 							_List_fromArray(
 								[
@@ -34474,7 +34526,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 					A3(
 						$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 						_List_fromArray(
-							['Internal', 'ApiRoute']),
+							['ApiRoute']),
 						'ApiRouteBuilder',
 						_List_fromArray(
 							[
@@ -34497,7 +34549,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 					A3(
 						$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 						_List_fromArray(
-							['Internal', 'ApiRoute']),
+							['ApiRoute']),
 						'ApiRouteBuilder',
 						_List_fromArray(
 							[
@@ -34518,7 +34570,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 							A3(
 							$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 							_List_fromArray(
-								['Internal', 'ApiRoute']),
+								['ApiRoute']),
 							'ApiRoute',
 							_List_fromArray(
 								[
@@ -34566,7 +34618,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 							A3(
 							$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 							_List_fromArray(
-								['Internal', 'ApiRoute']),
+								['ApiRoute']),
 							'ApiRoute',
 							_List_fromArray(
 								[
@@ -34576,7 +34628,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 					A3(
 						$mdgriffith$elm_codegen$Elm$Annotation$namedWith,
 						_List_fromArray(
-							['Internal', 'ApiRoute']),
+							['ApiRoute']),
 						'ApiRoute',
 						_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.19";

package/package.json

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

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