diff --git a/codegen/GenerateMain.elm b/codegen/GenerateMain.elm index 2c44e812..04d29e4f 100644 --- a/codegen/GenerateMain.elm +++ b/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 + ]