Remove reference to package-private type alias in generated code.

codegen/GenerateMain.elm

@@ -32,7 +32,6 @@ import Gen.Pages.Internal.Platform
 import Gen.Pages.Internal.Platform.Cli
 import Gen.Pages.Internal.RoutePattern
 import Gen.Pages.PageUrl
-import Gen.Pages.ProgramConfig
 import Gen.PagesMsg
 import Gen.Platform.Sub
 import Gen.Server.Request
@@ -178,7 +177,7 @@ otherFile routes phaseString =
             , errorPageToData = Elm.val "DataErrorPage____"
             , notFoundRoute = Elm.nothing
             }
-                |> Gen.Pages.ProgramConfig.make_.programConfig
+                |> make_
                 |> Elm.withType Type.unit
 
         --|> Elm.withType
@@ -2221,3 +2220,105 @@ ignoreBranchIfNeeded info routes =
         Nothing
     ]
         |> List.filterMap identity
+
+
+make_ :
+    { init : Elm.Expression
+    , update : Elm.Expression
+    , subscriptions : Elm.Expression
+    , sharedData : Elm.Expression
+    , data : Elm.Expression
+    , action : Elm.Expression
+    , onActionData : Elm.Expression
+    , view : Elm.Expression
+    , handleRoute : Elm.Expression
+    , getStaticRoutes : Elm.Expression
+    , urlToRoute : Elm.Expression
+    , routeToPath : Elm.Expression
+    , site : Elm.Expression
+    , toJsPort : Elm.Expression
+    , fromJsPort : Elm.Expression
+    , gotBatchSub : Elm.Expression
+    , hotReloadData : Elm.Expression
+    , onPageChange : Elm.Expression
+    , apiRoutes : Elm.Expression
+    , pathPatterns : Elm.Expression
+    , basePath : Elm.Expression
+    , sendPageData : Elm.Expression
+    , byteEncodePageData : Elm.Expression
+    , byteDecodePageData : Elm.Expression
+    , encodeResponse : Elm.Expression
+    , encodeAction : Elm.Expression
+    , decodeResponse : Elm.Expression
+    , globalHeadTags : Elm.Expression
+    , cmdToEffect : Elm.Expression
+    , perform : Elm.Expression
+    , errorStatusCode : Elm.Expression
+    , notFoundPage : Elm.Expression
+    , internalError : Elm.Expression
+    , errorPageToData : Elm.Expression
+    , notFoundRoute : Elm.Expression
+    }
+    -> Elm.Expression
+make_ programConfig_args =
+    Elm.record
+        [ Tuple.pair "init" programConfig_args.init
+        , Tuple.pair "update" programConfig_args.update
+        , Tuple.pair
+            "subscriptions"
+            programConfig_args.subscriptions
+        , Tuple.pair "sharedData" programConfig_args.sharedData
+        , Tuple.pair "data" programConfig_args.data
+        , Tuple.pair "action" programConfig_args.action
+        , Tuple.pair "onActionData" programConfig_args.onActionData
+        , Tuple.pair "view" programConfig_args.view
+        , Tuple.pair "handleRoute" programConfig_args.handleRoute
+        , Tuple.pair
+            "getStaticRoutes"
+            programConfig_args.getStaticRoutes
+        , Tuple.pair "urlToRoute" programConfig_args.urlToRoute
+        , Tuple.pair "routeToPath" programConfig_args.routeToPath
+        , Tuple.pair "site" programConfig_args.site
+        , Tuple.pair "toJsPort" programConfig_args.toJsPort
+        , Tuple.pair "fromJsPort" programConfig_args.fromJsPort
+        , Tuple.pair "gotBatchSub" programConfig_args.gotBatchSub
+        , Tuple.pair
+            "hotReloadData"
+            programConfig_args.hotReloadData
+        , Tuple.pair "onPageChange" programConfig_args.onPageChange
+        , Tuple.pair "apiRoutes" programConfig_args.apiRoutes
+        , Tuple.pair "pathPatterns" programConfig_args.pathPatterns
+        , Tuple.pair "basePath" programConfig_args.basePath
+        , Tuple.pair "sendPageData" programConfig_args.sendPageData
+        , Tuple.pair
+            "byteEncodePageData"
+            programConfig_args.byteEncodePageData
+        , Tuple.pair
+            "byteDecodePageData"
+            programConfig_args.byteDecodePageData
+        , Tuple.pair
+            "encodeResponse"
+            programConfig_args.encodeResponse
+        , Tuple.pair "encodeAction" programConfig_args.encodeAction
+        , Tuple.pair
+            "decodeResponse"
+            programConfig_args.decodeResponse
+        , Tuple.pair
+            "globalHeadTags"
+            programConfig_args.globalHeadTags
+        , Tuple.pair "cmdToEffect" programConfig_args.cmdToEffect
+        , Tuple.pair "perform" programConfig_args.perform
+        , Tuple.pair
+            "errorStatusCode"
+            programConfig_args.errorStatusCode
+        , Tuple.pair "notFoundPage" programConfig_args.notFoundPage
+        , Tuple.pair
+            "internalError"
+            programConfig_args.internalError
+        , Tuple.pair
+            "errorPageToData"
+            programConfig_args.errorPageToData
+        , Tuple.pair
+            "notFoundRoute"
+            programConfig_args.notFoundRoute
+        ]