elm-pages 3.0.0-beta.8 → 3.0.0

package/src/Pages/Generate.elm

@@ -1,1151 +0,0 @@
-module Pages.Generate exposing
-    ( buildWithLocalState, buildNoState, Builder
-    , Type(..)
-    , serverRender
-    , preRender, single
-    )
-
-{-|
-
-
-## Initializing the Generator Builder
-
-@docs buildWithLocalState, buildNoState, Builder
-
-@docs Type
-
-
-## Generating Server-Rendered Pages
-
-@docs serverRender
-
-
-## Generating pre-rendered pages
-
-@docs preRender, single
-
--}
-
-import Elm
-import Elm.Annotation
-import Elm.Declare
-import Pages.Internal.RoutePattern as RoutePattern
-
-
-{-| -}
-type Type
-    = Alias Elm.Annotation.Annotation
-    | Custom (List Elm.Variant)
-
-
-typeToDeclaration : String -> Type -> Elm.Declaration
-typeToDeclaration name type_ =
-    case type_ of
-        Alias annotation ->
-            Elm.alias name annotation
-
-        Custom variants ->
-            Elm.customType name variants
-
-
-{-| -}
-type Builder
-    = ServerRender
-        { data : ( Type, Elm.Expression -> Elm.Expression )
-        , action : ( Type, Elm.Expression -> Elm.Expression )
-        , head : Elm.Expression -> Elm.Expression
-        , moduleName : List String
-        }
-    | PreRender
-        { data : ( Type, Elm.Expression -> Elm.Expression )
-        , pages : Maybe Elm.Expression
-        , head : Elm.Expression -> Elm.Expression
-        , moduleName : List String
-        }
-
-
-{-| -}
-serverRender :
-    { data : ( Type, Elm.Expression -> Elm.Expression )
-    , action : ( Type, Elm.Expression -> Elm.Expression )
-    , head : Elm.Expression -> Elm.Expression
-    , moduleName : List String
-    }
-    -> Builder
-serverRender =
-    ServerRender
-
-
-{-| -}
-preRender :
-    { data : ( Type, Elm.Expression -> Elm.Expression )
-    , pages : Elm.Expression
-    , head : Elm.Expression -> Elm.Expression
-    , moduleName : List String
-    }
-    -> Builder
-preRender input =
-    --let
-    --    hasDynamicRouteSegments : Bool
-    --    hasDynamicRouteSegments =
-    --        RoutePattern.fromModuleName input.moduleName
-    --            -- TODO give error if not parseable here
-    --            |> Maybe.map RoutePattern.hasRouteParams
-    --            |> Maybe.withDefault False
-    --in
-    PreRender
-        { data = input.data
-        , pages =
-            input.pages
-                |> Elm.withType
-                    (Elm.Annotation.namedWith [ "DataSource" ]
-                        "DataSource"
-                        [ Elm.Annotation.list <| Elm.Annotation.named [] "RouteParams"
-                        ]
-                    )
-                |> Just
-        , head = input.head
-        , moduleName = input.moduleName
-        }
-
-
-{-| -}
-single :
-    { data : ( Type, Elm.Expression )
-    , head : Elm.Expression -> Elm.Expression
-    , moduleName : List String
-    }
-    -> Builder
-single input =
-    PreRender
-        { data = ( Tuple.first input.data, \_ -> Tuple.second input.data )
-        , pages = Nothing
-        , head = input.head
-        , moduleName = input.moduleName
-        }
-
-
-{-| -}
-buildNoState :
-    { view : Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression
-    }
-    -> Builder
-    -> Elm.File
-buildNoState definitions builder_ =
-    case builder_ of
-        ServerRender builder ->
-            userFunction builder.moduleName
-                { view = \_ -> definitions.view
-                , localState = Nothing
-                , data = builder.data |> Tuple.second
-                , action = builder.action |> Tuple.second |> Action
-                , head = builder.head
-                , types =
-                    { model = Alias (Elm.Annotation.record [])
-                    , msg = Alias Elm.Annotation.unit
-                    , data = builder.data |> Tuple.first
-                    , actionData = builder.action |> Tuple.first
-                    }
-                }
-
-        PreRender builder ->
-            userFunction builder.moduleName
-                { view = \_ -> definitions.view
-                , localState = Nothing
-                , data = builder.data |> Tuple.second
-                , action = builder.pages |> Pages
-                , head = builder.head
-                , types =
-                    { model = Alias (Elm.Annotation.record [])
-                    , msg = Alias Elm.Annotation.unit
-                    , data = builder.data |> Tuple.first
-                    , actionData =
-                        Elm.Annotation.namedWith [ "DataSource" ]
-                            "DataSource"
-                            [ Elm.Annotation.list (Elm.Annotation.named [] "RouteParams")
-                            ]
-                            |> Alias
-                    }
-                }
-
-
-{-| -}
-buildWithLocalState :
-    { view : Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression
-    , update : Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression
-    , init : Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression
-    , subscriptions : Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression
-    , msg : Type
-    , model : Type
-    }
-    -> Builder
-    -> Elm.File
-buildWithLocalState definitions builder_ =
-    case builder_ of
-        ServerRender builder ->
-            userFunction builder.moduleName
-                { view = definitions.view
-                , localState =
-                    Just
-                        { update = definitions.update
-                        , init = definitions.init
-                        , subscriptions = definitions.subscriptions
-                        }
-                , data = builder.data |> Tuple.second
-                , action = builder.action |> Tuple.second |> Action
-                , head = builder.head
-                , types =
-                    { model = definitions.model
-                    , msg = definitions.msg
-                    , data = builder.data |> Tuple.first
-                    , actionData = builder.action |> Tuple.first
-                    }
-                }
-
-        PreRender builder ->
-            userFunction builder.moduleName
-                { view = definitions.view
-                , localState =
-                    Just
-                        { update = definitions.update
-                        , init = definitions.init
-                        , subscriptions = definitions.subscriptions
-                        }
-                , data = builder.data |> Tuple.second
-                , action = builder.pages |> Pages
-                , head = builder.head
-                , types =
-                    { model = definitions.model
-                    , msg = definitions.msg
-                    , data = builder.data |> Tuple.first
-                    , actionData =
-                        Elm.Annotation.namedWith [ "DataSource" ]
-                            "DataSource"
-                            [ Elm.Annotation.list (Elm.Annotation.named [] "RouteParams")
-                            ]
-                            |> Alias
-                    }
-                }
-
-
-type ActionOrPages
-    = Action (Elm.Expression -> Elm.Expression)
-    | Pages (Maybe Elm.Expression)
-
-
-{-| -}
-userFunction :
-    List String
-    ->
-        { view : Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression
-        , localState :
-            Maybe
-                { update : Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression
-                , init : Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression
-                , subscriptions : Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression
-                }
-        , data : Elm.Expression -> Elm.Expression
-        , action : ActionOrPages
-        , head : Elm.Expression -> Elm.Expression
-        , types : { model : Type, msg : Type, data : Type, actionData : Type }
-        }
-    -> Elm.File
-userFunction moduleName definitions =
-    let
-        viewFn :
-            { declaration : Elm.Declaration
-            , call : Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression
-            , callFrom : List String -> Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression
-            }
-        viewFn =
-            case definitions.localState of
-                Just _ ->
-                    Elm.Declare.fn4 "view"
-                        ( "maybeUrl"
-                        , "PageUrl"
-                            |> Elm.Annotation.named [ "Pages", "PageUrl" ]
-                            |> Elm.Annotation.maybe
-                            |> Just
-                        )
-                        ( "sharedModel"
-                        , Nothing
-                        )
-                        ( "model", Just (Elm.Annotation.named [] "Model") )
-                        ( "app", Just appType )
-                        definitions.view
-
-                Nothing ->
-                    let
-                        viewDeclaration :
-                            { declaration : Elm.Declaration
-                            , call : Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression
-                            , callFrom : List String -> Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression
-                            }
-                        viewDeclaration =
-                            Elm.Declare.fn3 "view"
-                                ( "maybeUrl"
-                                , "PageUrl"
-                                    |> Elm.Annotation.named [ "Pages", "PageUrl" ]
-                                    |> Elm.Annotation.maybe
-                                    |> Just
-                                )
-                                ( "sharedModel"
-                                , Nothing
-                                )
-                                ( "app", Just appType )
-                                (definitions.view Elm.unit)
-                    in
-                    { declaration = viewDeclaration.declaration
-                    , call = \_ -> viewDeclaration.call
-                    , callFrom = \a _ c d -> viewDeclaration.callFrom a c d
-                    }
-
-        localDefinitions :
-            Maybe
-                { updateFn :
-                    { declaration : Elm.Declaration
-                    , call : Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression
-                    , callFrom : List String -> Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression
-                    }
-                , initFn : { declaration : Elm.Declaration, call : Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression, callFrom : List String -> Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression }
-                , subscriptionsFn : { declaration : Elm.Declaration, call : Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression, callFrom : List String -> Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression }
-                }
-        localDefinitions =
-            definitions.localState
-                |> Maybe.map
-                    (\localState ->
-                        { updateFn =
-                            Elm.Declare.fn5 "update"
-                                ( "pageUrl"
-                                , "PageUrl"
-                                    |> Elm.Annotation.named [ "Pages", "PageUrl" ]
-                                    |> Just
-                                )
-                                ( "sharedModel", Nothing )
-                                ( "app", Just appType )
-                                ( "msg", Just (Elm.Annotation.named [] "Msg") )
-                                ( "model", Just (Elm.Annotation.named [] "Model") )
-                                localState.update
-                        , initFn =
-                            Elm.Declare.fn3 "init"
-                                ( "pageUrl"
-                                , "PageUrl"
-                                    |> Elm.Annotation.named [ "Pages", "PageUrl" ]
-                                    |> Elm.Annotation.maybe
-                                    |> Just
-                                )
-                                ( "sharedModel", Nothing )
-                                ( "app", Just appType )
-                                localState.init
-                        , subscriptionsFn =
-                            Elm.Declare.fn5
-                                "subscriptions"
-                                ( "maybePageUrl"
-                                , "PageUrl"
-                                    |> Elm.Annotation.named [ "Pages", "PageUrl" ]
-                                    |> Elm.Annotation.maybe
-                                    |> Just
-                                )
-                                ( "routeParams", Nothing )
-                                ( "path", Nothing )
-                                ( "sharedModel", Nothing )
-                                ( "model", Nothing )
-                                localState.subscriptions
-                        }
-                    )
-
-        dataFn : { declaration : Elm.Declaration, call : List Elm.Expression -> Elm.Expression, callFrom : List String -> List Elm.Expression -> Elm.Expression }
-        dataFn =
-            case definitions.action of
-                Pages Nothing ->
-                    Elm.Declare.function "data"
-                        []
-                        (\_ ->
-                            definitions.data Elm.unit
-                                |> Elm.withType
-                                    (case definitions.action of
-                                        Pages _ ->
-                                            Elm.Annotation.namedWith [ "DataSource" ]
-                                                "DataSource"
-                                                [ Elm.Annotation.named [] "Data"
-                                                ]
-
-                                        Action _ ->
-                                            myType "Data"
-                                    )
-                        )
-
-                _ ->
-                    Elm.Declare.function "data"
-                        [ ( "routeParams"
-                          , "RouteParams"
-                                |> Elm.Annotation.named []
-                                |> Just
-                          )
-                        ]
-                        (\args ->
-                            case args of
-                                [ arg ] ->
-                                    definitions.data arg
-                                        |> Elm.withType
-                                            (case definitions.action of
-                                                Pages _ ->
-                                                    Elm.Annotation.namedWith [ "DataSource" ]
-                                                        "DataSource"
-                                                        [ Elm.Annotation.named [] "Data"
-                                                        ]
-
-                                                Action _ ->
-                                                    myType "Data"
-                                            )
-
-                                _ ->
-                                    Elm.unit
-                        )
-
-        actionFn : Maybe { declaration : Elm.Declaration, call : List Elm.Expression -> Elm.Expression, callFrom : List String -> List Elm.Expression -> Elm.Expression }
-        actionFn =
-            case definitions.action of
-                Action action_ ->
-                    Elm.Declare.function "action"
-                        [ ( "routeParams"
-                          , "RouteParams"
-                                |> Elm.Annotation.named []
-                                |> Just
-                          )
-                        ]
-                        (\args ->
-                            case args of
-                                [ arg ] ->
-                                    action_ arg |> Elm.withType (myType "ActionData")
-
-                                _ ->
-                                    Elm.unit
-                        )
-                        |> Just
-
-                Pages pages_ ->
-                    pages_
-                        |> Maybe.map
-                            (\justPagesExpression ->
-                                Elm.Declare.function "pages"
-                                    []
-                                    (\_ -> justPagesExpression)
-                            )
-
-        headFn : { declaration : Elm.Declaration, call : Elm.Expression -> Elm.Expression, callFrom : List String -> Elm.Expression -> Elm.Expression }
-        headFn =
-            Elm.Declare.fn "head"
-                ( "app", Just appType )
-                (definitions.head
-                    >> Elm.withType
-                        (Elm.Annotation.list
-                            (Elm.Annotation.named [ "Head" ] "Tag")
-                        )
-                )
-    in
-    Elm.file ("Route" :: moduleName)
-        ([ definitions.types.model |> typeToDeclaration "Model"
-         , definitions.types.msg |> typeToDeclaration "Msg"
-         , Elm.alias "RouteParams"
-            (Elm.Annotation.record
-                (RoutePattern.fromModuleName moduleName
-                    -- TODO give error if not parseable here
-                    |> Maybe.map RoutePattern.toRouteParamsRecord
-                    |> Maybe.withDefault []
-                )
-            )
-         , Elm.declaration "route"
-            (case definitions.action of
-                Action _ ->
-                    serverRender_
-                        { action =
-                            \routeParams ->
-                                actionFn
-                                    |> Maybe.map
-                                        (\justActionFn ->
-                                            justActionFn.call [ routeParams ]
-                                                |> Elm.withType (myType "ActionData")
-                                        )
-                                    |> Maybe.withDefault Elm.unit
-                        , data =
-                            \routeParams ->
-                                dataFn.call [ routeParams ]
-                                    |> Elm.withType (myType "Data")
-                        , head = headFn.call
-                        }
-
-                Pages _ ->
-                    (case actionFn of
-                        Nothing ->
-                            single_
-                                { data =
-                                    dataFn.call []
-                                        |> Elm.withType
-                                            (Elm.Annotation.namedWith [ "DataSource" ]
-                                                "DataSource"
-                                                [ Elm.Annotation.named [] "Data"
-                                                ]
-                                            )
-                                , head = headFn.call
-                                }
-
-                        Just justActionFn ->
-                            preRender_
-                                { pages = justActionFn.call []
-                                , data =
-                                    \routeParams ->
-                                        dataFn.call [ routeParams ]
-                                            |> Elm.withType
-                                                (Elm.Annotation.namedWith [ "DataSource" ]
-                                                    "DataSource"
-                                                    [ Elm.Annotation.named [] "Data"
-                                                    ]
-                                                )
-                                , head = headFn.call
-                                }
-                    )
-                        |> (case localDefinitions of
-                                Just local ->
-                                    buildWithLocalState_
-                                        { view = viewFn.call
-                                        , update = local.updateFn.call
-                                        , init = local.initFn.call
-                                        , subscriptions = local.subscriptionsFn.call
-                                        }
-                                        >> Elm.withType
-                                            (Elm.Annotation.namedWith [ "RouteBuilder" ]
-                                                "StatefulRoute"
-                                                [ localType "RouteParams"
-                                                , localType "Data"
-                                                , localType "ActionData"
-                                                , localType "Model"
-                                                , localType "Msg"
-                                                ]
-                                            )
-
-                                Nothing ->
-                                    buildNoState_
-                                        { view = viewFn.call Elm.unit
-                                        }
-                                        >> Elm.withType
-                                            (Elm.Annotation.namedWith [ "RouteBuilder" ]
-                                                "StatelessRoute"
-                                                [ localType "RouteParams"
-                                                , localType "Data"
-                                                , localType "ActionData"
-                                                ]
-                                            )
-                           )
-            )
-         ]
-            ++ (case localDefinitions of
-                    Just local ->
-                        [ local.initFn.declaration
-                        , local.updateFn.declaration
-                        , local.subscriptionsFn.declaration
-                        ]
-
-                    Nothing ->
-                        []
-               )
-            ++ [ definitions.types.data |> typeToDeclaration "Data"
-               , definitions.types.actionData |> typeToDeclaration "ActionData"
-               , dataFn.declaration
-               , headFn.declaration
-               , viewFn.declaration
-               ]
-            ++ ([ actionFn |> Maybe.map .declaration
-                ]
-                    |> List.filterMap identity
-               )
-        )
-
-
-localType : String -> Elm.Annotation.Annotation
-localType =
-    Elm.Annotation.named []
-
-
-myType : String -> Elm.Annotation.Annotation
-myType dataType =
-    Elm.Annotation.namedWith [ "Server", "Request" ]
-        "Parser"
-        [ Elm.Annotation.namedWith [ "DataSource" ]
-            "DataSource"
-            [ Elm.Annotation.namedWith [ "Server", "Response" ]
-                "Response"
-                [ Elm.Annotation.named [] dataType
-                , Elm.Annotation.named [ "ErrorPage" ] "ErrorPage"
-                ]
-            ]
-        ]
-
-
-appType : Elm.Annotation.Annotation
-appType =
-    Elm.Annotation.namedWith [ "RouteBuilder" ]
-        "StaticPayload"
-        [ Elm.Annotation.named [] "Data"
-        , Elm.Annotation.named [] "ActionData"
-        , Elm.Annotation.named [] "RouteParams"
-        ]
-
-
-serverRender_ :
-    { data : Elm.Expression -> Elm.Expression
-    , action : Elm.Expression -> Elm.Expression
-    , head : Elm.Expression -> Elm.Expression
-    }
-    -> Elm.Expression
-serverRender_ serverRenderArg =
-    Elm.apply
-        (Elm.value
-            { importFrom = [ "RouteBuilder" ]
-            , name = "serverRender"
-            , annotation =
-                Just
-                    (Elm.Annotation.function
-                        [ Elm.Annotation.record
-                            [ ( "data"
-                              , Elm.Annotation.function
-                                    [ Elm.Annotation.var "routeParams" ]
-                                    (Elm.Annotation.namedWith
-                                        [ "Server", "Request" ]
-                                        "Parser"
-                                        [ Elm.Annotation.namedWith
-                                            [ "DataSource" ]
-                                            "DataSource"
-                                            [ Elm.Annotation.namedWith
-                                                [ "Server", "Response" ]
-                                                "Response"
-                                                [ Elm.Annotation.var "data"
-                                                , Elm.Annotation.namedWith
-                                                    [ "ErrorPage" ]
-                                                    "ErrorPage"
-                                                    []
-                                                ]
-                                            ]
-                                        ]
-                                    )
-                              )
-                            , ( "action"
-                              , Elm.Annotation.function
-                                    [ Elm.Annotation.var "routeParams" ]
-                                    (Elm.Annotation.namedWith
-                                        [ "Server", "Request" ]
-                                        "Parser"
-                                        [ Elm.Annotation.namedWith
-                                            [ "DataSource" ]
-                                            "DataSource"
-                                            [ Elm.Annotation.namedWith
-                                                [ "Server", "Response" ]
-                                                "Response"
-                                                [ Elm.Annotation.var "action"
-                                                , Elm.Annotation.namedWith
-                                                    [ "ErrorPage" ]
-                                                    "ErrorPage"
-                                                    []
-                                                ]
-                                            ]
-                                        ]
-                                    )
-                              )
-                            , ( "head"
-                              , Elm.Annotation.function
-                                    [ Elm.Annotation.namedWith
-                                        [ "RouteBuilder" ]
-                                        "StaticPayload"
-                                        [ Elm.Annotation.var "data"
-                                        , Elm.Annotation.var "action"
-                                        , Elm.Annotation.var "routeParams"
-                                        ]
-                                    ]
-                                    (Elm.Annotation.list
-                                        (Elm.Annotation.namedWith [ "Head" ] "Tag" [])
-                                    )
-                              )
-                            ]
-                        ]
-                        (Elm.Annotation.namedWith
-                            [ "RouteBuilder" ]
-                            "Builder"
-                            [ Elm.Annotation.var "routeParams"
-                            , Elm.Annotation.var "data"
-                            , Elm.Annotation.var "action"
-                            ]
-                        )
-                    )
-            }
-        )
-        [ Elm.record
-            [ Tuple.pair
-                "data"
-                (Elm.functionReduced "serverRenderUnpack" serverRenderArg.data)
-            , Tuple.pair
-                "action"
-                (Elm.functionReduced "serverRenderUnpack" serverRenderArg.action)
-            , Tuple.pair
-                "head"
-                (Elm.functionReduced "serverRenderUnpack" serverRenderArg.head)
-            ]
-        ]
-
-
-preRender_ :
-    { data : Elm.Expression -> Elm.Expression
-    , pages : Elm.Expression
-    , head : Elm.Expression -> Elm.Expression
-    }
-    -> Elm.Expression
-preRender_ serverRenderArg =
-    Elm.apply
-        (Elm.value
-            { importFrom = [ "RouteBuilder" ]
-            , name = "preRender"
-            , annotation =
-                Just
-                    (Elm.Annotation.function
-                        [ Elm.Annotation.record
-                            [ ( "data"
-                              , Elm.Annotation.function
-                                    [ Elm.Annotation.var "routeParams" ]
-                                    (Elm.Annotation.namedWith
-                                        [ "DataSource" ]
-                                        "DataSource"
-                                        [ Elm.Annotation.var "data"
-                                        ]
-                                    )
-                              )
-                            , ( "pages"
-                              , Elm.Annotation.namedWith
-                                    [ "DataSource" ]
-                                    "DataSource"
-                                    [ Elm.Annotation.list (Elm.Annotation.named [] "RouteParams")
-                                    ]
-                              )
-                            , ( "head"
-                              , Elm.Annotation.function
-                                    [ Elm.Annotation.namedWith
-                                        [ "RouteBuilder" ]
-                                        "StaticPayload"
-                                        [ Elm.Annotation.var "data"
-                                        , Elm.Annotation.var "action"
-                                        , Elm.Annotation.var "routeParams"
-                                        ]
-                                    ]
-                                    (Elm.Annotation.list
-                                        (Elm.Annotation.namedWith [ "Head" ] "Tag" [])
-                                    )
-                              )
-                            ]
-                        ]
-                        (Elm.Annotation.namedWith
-                            [ "RouteBuilder" ]
-                            "Builder"
-                            [ Elm.Annotation.named [] "RouteParams"
-                            , Elm.Annotation.named [] "Data"
-                            , Elm.Annotation.named [] "Action"
-                            ]
-                        )
-                    )
-            }
-        )
-        [ Elm.record
-            [ Tuple.pair "data" (Elm.functionReduced "serverRenderUnpack" serverRenderArg.data)
-            , Tuple.pair "pages" serverRenderArg.pages
-            , Tuple.pair "head" (Elm.functionReduced "serverRenderUnpack" serverRenderArg.head)
-            ]
-        ]
-
-
-single_ :
-    { data : Elm.Expression
-    , head : Elm.Expression -> Elm.Expression
-    }
-    -> Elm.Expression
-single_ serverRenderArg =
-    Elm.apply
-        (Elm.value
-            { importFrom = [ "RouteBuilder" ]
-            , name = "single"
-            , annotation =
-                Just
-                    (Elm.Annotation.function
-                        [ Elm.Annotation.record
-                            [ ( "data"
-                              , Elm.Annotation.namedWith
-                                    [ "DataSource" ]
-                                    "DataSource"
-                                    [ Elm.Annotation.var "data"
-                                    ]
-                              )
-                            , ( "head"
-                              , Elm.Annotation.function
-                                    [ Elm.Annotation.namedWith
-                                        [ "RouteBuilder" ]
-                                        "StaticPayload"
-                                        [ Elm.Annotation.var "data"
-                                        , Elm.Annotation.var "action"
-                                        , Elm.Annotation.var "routeParams"
-                                        ]
-                                    ]
-                                    (Elm.Annotation.list
-                                        (Elm.Annotation.namedWith [ "Head" ] "Tag" [])
-                                    )
-                              )
-                            ]
-                        ]
-                        (Elm.Annotation.namedWith
-                            [ "RouteBuilder" ]
-                            "Builder"
-                            [ Elm.Annotation.named [] "RouteParams"
-                            , Elm.Annotation.named [] "Data"
-                            , Elm.Annotation.named [] "Action"
-                            ]
-                        )
-                    )
-            }
-        )
-        [ Elm.record
-            [ Tuple.pair "data" serverRenderArg.data
-            , Tuple.pair "head" (Elm.functionReduced "serverRenderUnpack" serverRenderArg.head)
-            ]
-        ]
-
-
-buildWithLocalState_ :
-    { view :
-        Elm.Expression
-        -> Elm.Expression
-        -> Elm.Expression
-        -> Elm.Expression
-        -> Elm.Expression
-    , init :
-        Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression
-    , update :
-        Elm.Expression
-        -> Elm.Expression
-        -> Elm.Expression
-        -> Elm.Expression
-        -> Elm.Expression
-        -> Elm.Expression
-    , subscriptions :
-        Elm.Expression
-        -> Elm.Expression
-        -> Elm.Expression
-        -> Elm.Expression
-        -> Elm.Expression
-        -> Elm.Expression
-    }
-    -> Elm.Expression
-    -> Elm.Expression
-buildWithLocalState_ buildWithLocalStateArg buildWithLocalStateArg0 =
-    Elm.apply
-        (Elm.value
-            { importFrom = [ "RouteBuilder" ]
-            , name = "buildWithLocalState"
-            , annotation =
-                Just
-                    (Elm.Annotation.function
-                        [ Elm.Annotation.record
-                            [ ( "view"
-                              , Elm.Annotation.function
-                                    [ Elm.Annotation.maybe
-                                        (Elm.Annotation.namedWith
-                                            [ "Pages", "PageUrl" ]
-                                            "PageUrl"
-                                            []
-                                        )
-                                    , Elm.Annotation.namedWith [ "Shared" ] "Model" []
-                                    , Elm.Annotation.var "model"
-                                    , Elm.Annotation.namedWith
-                                        [ "RouteBuilder" ]
-                                        "StaticPayload"
-                                        [ Elm.Annotation.var "data"
-                                        , Elm.Annotation.var "action"
-                                        , Elm.Annotation.var "routeParams"
-                                        ]
-                                    ]
-                                    (Elm.Annotation.namedWith
-                                        [ "View" ]
-                                        "View"
-                                        [ Elm.Annotation.namedWith
-                                            [ "Pages", "Msg" ]
-                                            "Msg"
-                                            [ Elm.Annotation.var "msg" ]
-                                        ]
-                                    )
-                              )
-                            , ( "init"
-                              , Elm.Annotation.function
-                                    [ Elm.Annotation.maybe
-                                        (Elm.Annotation.namedWith
-                                            [ "Pages", "PageUrl" ]
-                                            "PageUrl"
-                                            []
-                                        )
-                                    , Elm.Annotation.namedWith [ "Shared" ] "Model" []
-                                    , Elm.Annotation.namedWith
-                                        [ "RouteBuilder" ]
-                                        "StaticPayload"
-                                        [ Elm.Annotation.var "data"
-                                        , Elm.Annotation.var "action"
-                                        , Elm.Annotation.var "routeParams"
-                                        ]
-                                    ]
-                                    (Elm.Annotation.tuple
-                                        (Elm.Annotation.var "model")
-                                        (Elm.Annotation.namedWith
-                                            [ "Effect" ]
-                                            "Effect"
-                                            [ Elm.Annotation.var "msg" ]
-                                        )
-                                    )
-                              )
-                            , ( "update"
-                              , Elm.Annotation.function
-                                    [ Elm.Annotation.namedWith
-                                        [ "Pages", "PageUrl" ]
-                                        "PageUrl"
-                                        []
-                                    , Elm.Annotation.namedWith [ "Shared" ] "Model" []
-                                    , Elm.Annotation.namedWith
-                                        [ "RouteBuilder" ]
-                                        "StaticPayload"
-                                        [ Elm.Annotation.var "data"
-                                        , Elm.Annotation.var "action"
-                                        , Elm.Annotation.var "routeParams"
-                                        ]
-                                    , Elm.Annotation.var "msg"
-                                    , Elm.Annotation.var "model"
-                                    ]
-                                    (Elm.Annotation.tuple
-                                        (Elm.Annotation.var "model")
-                                        (Elm.Annotation.namedWith
-                                            [ "Effect" ]
-                                            "Effect"
-                                            [ Elm.Annotation.var "msg" ]
-                                        )
-                                    )
-                              )
-                            , ( "subscriptions"
-                              , Elm.Annotation.function
-                                    [ Elm.Annotation.maybe
-                                        (Elm.Annotation.namedWith
-                                            [ "Pages", "PageUrl" ]
-                                            "PageUrl"
-                                            []
-                                        )
-                                    , Elm.Annotation.var "routeParams"
-                                    , Elm.Annotation.namedWith [ "Path" ] "Path" []
-                                    , Elm.Annotation.namedWith [ "Shared" ] "Model" []
-                                    , Elm.Annotation.var "model"
-                                    ]
-                                    (Elm.Annotation.namedWith [] "Sub" [ Elm.Annotation.var "msg" ])
-                              )
-                            ]
-                        , Elm.Annotation.namedWith
-                            [ "RouteBuilder" ]
-                            "Builder"
-                            [ Elm.Annotation.var "routeParams"
-                            , Elm.Annotation.var "data"
-                            , Elm.Annotation.var "action"
-                            ]
-                        ]
-                        (Elm.Annotation.namedWith
-                            [ "RouteBuilder" ]
-                            "StatefulRoute"
-                            [ Elm.Annotation.var "routeParams"
-                            , Elm.Annotation.var "data"
-                            , Elm.Annotation.var "action"
-                            , Elm.Annotation.var "model"
-                            , Elm.Annotation.var "msg"
-                            ]
-                        )
-                    )
-            }
-        )
-        [ Elm.record
-            [ Tuple.pair
-                "view"
-                (Elm.functionReduced
-                    "buildWithLocalStateUnpack"
-                    (\functionReducedUnpack ->
-                        Elm.functionReduced
-                            "unpack"
-                            (\functionReducedUnpack0 ->
-                                Elm.functionReduced
-                                    "unpack"
-                                    (\functionReducedUnpack_2_1_2_0_2_2_0_1_0_2_0_0 ->
-                                        Elm.functionReduced
-                                            "unpack"
-                                            (buildWithLocalStateArg.view
-                                                functionReducedUnpack
-                                                functionReducedUnpack0
-                                                functionReducedUnpack_2_1_2_0_2_2_0_1_0_2_0_0
-                                            )
-                                    )
-                            )
-                    )
-                )
-            , Tuple.pair
-                "init"
-                (Elm.functionReduced
-                    "buildWithLocalStateUnpack"
-                    (\functionReducedUnpack ->
-                        Elm.functionReduced
-                            "unpack"
-                            (\functionReducedUnpack0 ->
-                                Elm.functionReduced
-                                    "unpack"
-                                    (buildWithLocalStateArg.init
-                                        functionReducedUnpack
-                                        functionReducedUnpack0
-                                    )
-                            )
-                    )
-                )
-            , Tuple.pair
-                "update"
-                (Elm.functionReduced
-                    "buildWithLocalStateUnpack"
-                    (\functionReducedUnpack ->
-                        Elm.functionReduced
-                            "unpack"
-                            (\functionReducedUnpack0 ->
-                                Elm.functionReduced
-                                    "unpack"
-                                    (\functionReducedUnpack_2_1_2_0_2_2_2_1_0_2_0_0 ->
-                                        Elm.functionReduced
-                                            "unpack"
-                                            (\functionReducedUnpack_2_1_2_1_2_0_2_2_2_1_0_2_0_0 ->
-                                                Elm.functionReduced
-                                                    "unpack"
-                                                    (buildWithLocalStateArg.update
-                                                        functionReducedUnpack
-                                                        functionReducedUnpack0
-                                                        functionReducedUnpack_2_1_2_0_2_2_2_1_0_2_0_0
-                                                        functionReducedUnpack_2_1_2_1_2_0_2_2_2_1_0_2_0_0
-                                                    )
-                                            )
-                                    )
-                            )
-                    )
-                )
-            , Tuple.pair
-                "subscriptions"
-                (Elm.functionReduced
-                    "buildWithLocalStateUnpack"
-                    (\functionReducedUnpack ->
-                        Elm.functionReduced
-                            "unpack"
-                            (\functionReducedUnpack0 ->
-                                Elm.functionReduced
-                                    "unpack"
-                                    (\functionReducedUnpack_2_1_2_0_2_2_3_1_0_2_0_0 ->
-                                        Elm.functionReduced
-                                            "unpack"
-                                            (\functionReducedUnpack_2_1_2_1_2_0_2_2_3_1_0_2_0_0 ->
-                                                Elm.functionReduced
-                                                    "unpack"
-                                                    (buildWithLocalStateArg.subscriptions
-                                                        functionReducedUnpack
-                                                        functionReducedUnpack0
-                                                        functionReducedUnpack_2_1_2_0_2_2_3_1_0_2_0_0
-                                                        functionReducedUnpack_2_1_2_1_2_0_2_2_3_1_0_2_0_0
-                                                    )
-                                            )
-                                    )
-                            )
-                    )
-                )
-            ]
-        , buildWithLocalStateArg0
-        ]
-
-
-buildNoState_ :
-    { view :
-        Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression
-    }
-    -> Elm.Expression
-    -> Elm.Expression
-buildNoState_ buildNoStateArg buildNoStateArg0 =
-    Elm.apply
-        (Elm.value
-            { importFrom = [ "RouteBuilder" ]
-            , name = "buildNoState"
-            , annotation =
-                Just
-                    (Elm.Annotation.function
-                        [ Elm.Annotation.record
-                            [ ( "view"
-                              , Elm.Annotation.function
-                                    [ Elm.Annotation.maybe
-                                        (Elm.Annotation.namedWith
-                                            [ "Pages", "PageUrl" ]
-                                            "PageUrl"
-                                            []
-                                        )
-                                    , Elm.Annotation.namedWith [ "Shared" ] "Model" []
-                                    , Elm.Annotation.namedWith
-                                        [ "RouteBuilder" ]
-                                        "StaticPayload"
-                                        [ Elm.Annotation.var "data"
-                                        , Elm.Annotation.var "action"
-                                        , Elm.Annotation.var "routeParams"
-                                        ]
-                                    ]
-                                    (Elm.Annotation.namedWith
-                                        [ "View" ]
-                                        "View"
-                                        [ Elm.Annotation.namedWith
-                                            [ "Pages", "Msg" ]
-                                            "Msg"
-                                            [ Elm.Annotation.unit ]
-                                        ]
-                                    )
-                              )
-                            ]
-                        , Elm.Annotation.namedWith
-                            [ "RouteBuilder" ]
-                            "Builder"
-                            [ Elm.Annotation.var "routeParams"
-                            , Elm.Annotation.var "data"
-                            , Elm.Annotation.var "action"
-                            ]
-                        ]
-                        (Elm.Annotation.namedWith
-                            [ "RouteBuilder" ]
-                            "StatefulRoute"
-                            [ Elm.Annotation.var "routeParams"
-                            , Elm.Annotation.var "data"
-                            , Elm.Annotation.var "action"
-                            , Elm.Annotation.record []
-                            , Elm.Annotation.unit
-                            ]
-                        )
-                    )
-            }
-        )
-        [ Elm.record
-            [ Tuple.pair
-                "view"
-                (Elm.functionReduced
-                    "buildNoStateUnpack"
-                    (\functionReducedUnpack ->
-                        Elm.functionReduced
-                            "unpack"
-                            (\functionReducedUnpack0 ->
-                                Elm.functionReduced
-                                    "unpack"
-                                    (buildNoStateArg.view functionReducedUnpack
-                                        functionReducedUnpack0
-                                    )
-                            )
-                    )
-                )
-            ]
-        , buildNoStateArg0
-        ]