elm-pages 3.0.0-beta.2 → 3.0.0-beta.21

package/src/Scaffold/Route.elm

@@ -0,0 +1,1473 @@
+module Scaffold.Route exposing
+    ( buildWithLocalState, buildWithSharedState, buildNoState, Builder
+    , Type(..)
+    , serverRender
+    , preRender, single
+    , addDeclarations
+    , moduleNameCliArg
+    )
+
+{-| This module provides some functions for scaffolding code for a new Route Module. It uses [`elm-codegen`'s API](https://package.elm-lang.org/packages/mdgriffith/elm-codegen/latest/) for generating code.
+
+Typically you'll want to use this via the `elm-pages codegen` CLI command. The default starter template includes a file that uses these functions, which you can tweak to customize your scaffolding commands.
+Learn more about [the `elm-pages run` CLI command in its docs page](https://elm-pages.com/docs/run-command).
+
+
+## Initializing the Generator Builder
+
+@docs buildWithLocalState, buildWithSharedState, buildNoState, Builder
+
+@docs Type
+
+
+## Generating Server-Rendered Pages
+
+@docs serverRender
+
+
+## Generating pre-rendered pages
+
+@docs preRender, single
+
+
+## Including Additional elm-codegen Declarations
+
+@docs addDeclarations
+
+
+## CLI Options Parsing Helpers
+
+@docs moduleNameCliArg
+
+-}
+
+import Cli.Option as Option
+import Cli.Validate
+import Elm
+import Elm.Annotation
+import Elm.Declare
+import Pages.Internal.RoutePattern as RoutePattern
+
+
+{-| A positional argument for elm-cli-options-parser that does a Regex validation to check that the module name is a valid Elm Route module name.
+-}
+moduleNameCliArg : Option.Option from String builderState -> Option.Option from (List String) builderState
+moduleNameCliArg =
+    Option.validate
+        (Cli.Validate.regex moduleNameRegex)
+        >> Option.map
+            (\rawModuleName ->
+                rawModuleName |> String.split "."
+            )
+
+
+moduleNameRegex : String
+moduleNameRegex =
+    "^[A-Z][a-zA-Z0-9_]*(\\.([A-Z][a-zA-Z0-9_]*))*$"
+
+
+{-| -}
+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
+        (List Elm.Declaration)
+        { data : ( Type, Elm.Expression -> Elm.Expression )
+        , action : ( Type, Elm.Expression -> Elm.Expression )
+        , head : Elm.Expression -> Elm.Expression
+        , moduleName : List String
+        }
+    | PreRender
+        (List Elm.Declaration)
+        { 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
+                    (throwableTask
+                        (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 : { maybeUrl : Elm.Expression, sharedModel : Elm.Expression, app : Elm.Expression } -> Elm.Expression
+    }
+    -> Builder
+    -> { path : String, body : String }
+buildNoState definitions builder_ =
+    case builder_ of
+        ServerRender declarations builder ->
+            userFunction builder.moduleName
+                { view =
+                    \maybeUrl sharedModel _ app ->
+                        definitions.view
+                            { maybeUrl = maybeUrl
+                            , sharedModel = sharedModel
+                            , app = app
+                            }
+                , 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
+                    }
+                , declarations = declarations
+                }
+
+        PreRender declarations builder ->
+            userFunction builder.moduleName
+                { view =
+                    \maybeUrl sharedModel _ app ->
+                        definitions.view
+                            { maybeUrl = maybeUrl
+                            , sharedModel = sharedModel
+                            , app = app
+                            }
+                , 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 =
+                        throwableTask
+                            (Elm.Annotation.list (Elm.Annotation.named [] "RouteParams"))
+                            |> Alias
+                    }
+                , declarations = declarations
+                }
+
+
+{-| -}
+addDeclarations : List Elm.Declaration -> Builder -> Builder
+addDeclarations declarations builder =
+    case builder of
+        ServerRender existingDeclarations record ->
+            ServerRender (existingDeclarations ++ declarations) record
+
+        PreRender existingDeclarations record ->
+            PreRender (existingDeclarations ++ declarations) record
+
+
+{-| -}
+buildWithLocalState :
+    { view :
+        { maybeUrl : Elm.Expression, sharedModel : Elm.Expression, model : Elm.Expression, app : Elm.Expression } -> Elm.Expression
+    , update :
+        { pageUrl : Elm.Expression
+        , sharedModel : Elm.Expression
+        , app : Elm.Expression
+        , msg : Elm.Expression
+        , model : Elm.Expression
+        }
+        -> Elm.Expression
+    , init :
+        { pageUrl : Elm.Expression
+        , sharedModel : Elm.Expression
+        , app : Elm.Expression
+        }
+        -> Elm.Expression
+    , subscriptions :
+        { maybePageUrl : Elm.Expression
+        , routeParams : Elm.Expression
+        , path : Elm.Expression
+        , sharedModel : Elm.Expression
+        , model : Elm.Expression
+        }
+        -> Elm.Expression
+    , msg : Type
+    , model : Type
+    }
+    -> Builder
+    -> { path : String, body : String }
+buildWithLocalState definitions builder_ =
+    case builder_ of
+        ServerRender declarations builder ->
+            userFunction builder.moduleName
+                { view =
+                    \maybeUrl sharedModel model app ->
+                        definitions.view
+                            { maybeUrl = maybeUrl
+                            , sharedModel = sharedModel
+                            , model = model
+                            , app = app
+                            }
+                , localState =
+                    Just
+                        { update =
+                            \pageUrl sharedModel app msg model ->
+                                definitions.update
+                                    { pageUrl = pageUrl
+                                    , sharedModel = sharedModel
+                                    , app = app
+                                    , msg = msg
+                                    , model = model
+                                    }
+                        , init =
+                            \pageUrl sharedModel app ->
+                                definitions.init
+                                    { pageUrl = pageUrl
+                                    , sharedModel = sharedModel
+                                    , app = app
+                                    }
+                        , subscriptions =
+                            \maybePageUrl routeParams path sharedModel model ->
+                                definitions.subscriptions
+                                    { maybePageUrl = maybePageUrl
+                                    , routeParams = routeParams
+                                    , path = path
+                                    , sharedModel = sharedModel
+                                    , model = model
+                                    }
+                        , state = LocalState
+                        }
+                , 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
+                    }
+                , declarations = declarations
+                }
+
+        PreRender declarations builder ->
+            userFunction builder.moduleName
+                { view =
+                    \maybeUrl sharedModel model app ->
+                        definitions.view
+                            { maybeUrl = maybeUrl
+                            , sharedModel = sharedModel
+                            , model = model
+                            , app = app
+                            }
+                , localState =
+                    Just
+                        { update =
+                            \pageUrl sharedModel app msg model ->
+                                definitions.update
+                                    { pageUrl = pageUrl
+                                    , sharedModel = sharedModel
+                                    , app = app
+                                    , msg = msg
+                                    , model = model
+                                    }
+                        , init =
+                            \pageUrl sharedModel app ->
+                                definitions.init
+                                    { pageUrl = pageUrl
+                                    , sharedModel = sharedModel
+                                    , app = app
+                                    }
+                        , subscriptions =
+                            \maybePageUrl routeParams path sharedModel model ->
+                                definitions.subscriptions
+                                    { maybePageUrl = maybePageUrl
+                                    , routeParams = routeParams
+                                    , path = path
+                                    , sharedModel = sharedModel
+                                    , model = model
+                                    }
+                        , state = LocalState
+                        }
+                , 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 =
+                        throwableTask
+                            (Elm.Annotation.list (Elm.Annotation.named [] "RouteParams"))
+                            |> Alias
+                    }
+                , declarations = declarations
+                }
+
+
+{-| -}
+buildWithSharedState :
+    { view :
+        { maybeUrl : Elm.Expression, sharedModel : Elm.Expression, model : Elm.Expression, app : Elm.Expression } -> Elm.Expression
+    , update :
+        { pageUrl : Elm.Expression
+        , sharedModel : Elm.Expression
+        , app : Elm.Expression
+        , msg : Elm.Expression
+        , model : Elm.Expression
+        }
+        -> Elm.Expression
+    , init :
+        { pageUrl : Elm.Expression
+        , sharedModel : Elm.Expression
+        , app : Elm.Expression
+        }
+        -> Elm.Expression
+    , subscriptions :
+        { maybePageUrl : Elm.Expression
+        , routeParams : Elm.Expression
+        , path : Elm.Expression
+        , sharedModel : Elm.Expression
+        , model : Elm.Expression
+        }
+        -> Elm.Expression
+    , msg : Type
+    , model : Type
+    }
+    -> Builder
+    -> { path : String, body : String }
+buildWithSharedState definitions builder_ =
+    case builder_ of
+        ServerRender declarations builder ->
+            userFunction builder.moduleName
+                { view =
+                    \maybeUrl sharedModel model app ->
+                        definitions.view
+                            { maybeUrl = maybeUrl
+                            , sharedModel = sharedModel
+                            , model = model
+                            , app = app
+                            }
+                , localState =
+                    Just
+                        { update =
+                            \pageUrl sharedModel app msg model ->
+                                definitions.update
+                                    { pageUrl = pageUrl
+                                    , sharedModel = sharedModel
+                                    , app = app
+                                    , msg = msg
+                                    , model = model
+                                    }
+                        , init =
+                            \pageUrl sharedModel app ->
+                                definitions.init
+                                    { pageUrl = pageUrl
+                                    , sharedModel = sharedModel
+                                    , app = app
+                                    }
+                        , subscriptions =
+                            \maybePageUrl routeParams path sharedModel model ->
+                                definitions.subscriptions
+                                    { maybePageUrl = maybePageUrl
+                                    , routeParams = routeParams
+                                    , path = path
+                                    , sharedModel = sharedModel
+                                    , model = model
+                                    }
+                        , state = SharedState
+                        }
+                , 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
+                    }
+                , declarations = declarations
+                }
+
+        PreRender declarations builder ->
+            userFunction builder.moduleName
+                { view =
+                    \maybeUrl sharedModel model app ->
+                        definitions.view
+                            { maybeUrl = maybeUrl
+                            , sharedModel = sharedModel
+                            , model = model
+                            , app = app
+                            }
+                , localState =
+                    Just
+                        { update =
+                            \pageUrl sharedModel app msg model ->
+                                definitions.update
+                                    { pageUrl = pageUrl
+                                    , sharedModel = sharedModel
+                                    , app = app
+                                    , msg = msg
+                                    , model = model
+                                    }
+                        , init =
+                            \pageUrl sharedModel app ->
+                                definitions.init
+                                    { pageUrl = pageUrl
+                                    , sharedModel = sharedModel
+                                    , app = app
+                                    }
+                        , subscriptions =
+                            \maybePageUrl routeParams path sharedModel model ->
+                                definitions.subscriptions
+                                    { maybePageUrl = maybePageUrl
+                                    , routeParams = routeParams
+                                    , path = path
+                                    , sharedModel = sharedModel
+                                    , model = model
+                                    }
+                        , state = SharedState
+                        }
+                , 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 =
+                        throwableTask
+                            (Elm.Annotation.list (Elm.Annotation.named [] "RouteParams"))
+                            |> Alias
+                    }
+                , declarations = declarations
+                }
+
+
+type State
+    = SharedState
+    | LocalState
+
+
+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
+                , state : State
+                }
+        , data : Elm.Expression -> Elm.Expression
+        , action : ActionOrPages
+        , head : Elm.Expression -> Elm.Expression
+        , types : { model : Type, msg : Type, data : Type, actionData : Type }
+        , declarations : List Elm.Declaration
+        }
+    -> { path : String, body : String }
+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"
+                        , Just (Elm.Annotation.named [ "Shared" ] "Model")
+                        )
+                        ( "model", Just (Elm.Annotation.named [] "Model") )
+                        ( "app", Just appType )
+                        (\maybeUrl sharedModel model app ->
+                            definitions.view maybeUrl sharedModel model app
+                                |> Elm.withType
+                                    (Elm.Annotation.namedWith [ "View" ]
+                                        "View"
+                                        [ Elm.Annotation.namedWith [ "Pages", "Msg" ]
+                                            "Msg"
+                                            [ localType "Msg"
+                                            ]
+                                        ]
+                                    )
+                        )
+
+                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"
+                                , Just (Elm.Annotation.named [ "Shared" ] "Model")
+                                )
+                                ( "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 }
+                , state : State
+                }
+        localDefinitions =
+            definitions.localState
+                |> Maybe.map
+                    (\localState ->
+                        { updateFn =
+                            Elm.Declare.fn5 "update"
+                                ( "pageUrl"
+                                , "PageUrl"
+                                    |> Elm.Annotation.named [ "Pages", "PageUrl" ]
+                                    |> Just
+                                )
+                                ( "sharedModel", Just (Elm.Annotation.named [ "Shared" ] "Model") )
+                                ( "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", Just (Elm.Annotation.named [ "Shared" ] "Model") )
+                                ( "app", Just appType )
+                                (\pageUrl sharedModel app ->
+                                    localState.init pageUrl sharedModel app
+                                        |> Elm.withType
+                                            (Elm.Annotation.tuple
+                                                (localType "Model")
+                                                effectType
+                                            )
+                                )
+                        , subscriptionsFn =
+                            Elm.Declare.fn5
+                                "subscriptions"
+                                ( "maybePageUrl"
+                                , "PageUrl"
+                                    |> Elm.Annotation.named [ "Pages", "PageUrl" ]
+                                    |> Elm.Annotation.maybe
+                                    |> Just
+                                )
+                                ( "routeParams", "RouteParams" |> Elm.Annotation.named [] |> Just )
+                                ( "path", Elm.Annotation.namedWith [ "Path" ] "Path" [] |> Just )
+                                ( "sharedModel", Just (Elm.Annotation.named [ "Shared" ] "Model") )
+                                ( "model", localType "Model" |> Just )
+                                (\maybePageUrl routeParams path sharedModel model ->
+                                    localState.subscriptions maybePageUrl routeParams path sharedModel model
+                                        |> Elm.withType (Elm.Annotation.namedWith [] "Sub" [ localType "Msg" ])
+                                )
+                        , state = localState.state
+                        }
+                    )
+
+        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 _ ->
+                                            throwableTask (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 _ ->
+                                                    throwableTask (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" |> Elm.expose
+         , definitions.types.msg |> typeToDeclaration "Msg" |> Elm.expose
+         , Elm.alias "RouteParams"
+            (Elm.Annotation.record
+                (RoutePattern.fromModuleName moduleName
+                    -- TODO give error if not parseable here
+                    |> Maybe.map RoutePattern.toRouteParamsRecord
+                    |> Maybe.withDefault []
+                )
+            )
+            |> Elm.expose
+         , 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
+                                            (throwableTask
+                                                (Elm.Annotation.named [] "Data")
+                                            )
+                                , head = headFn.call
+                                }
+
+                        Just justActionFn ->
+                            preRender_
+                                { pages = justActionFn.call []
+                                , data =
+                                    \routeParams ->
+                                        dataFn.call [ routeParams ]
+                                            |> Elm.withType
+                                                (throwableTask (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
+                                , state = local.state
+                                }
+                                >> 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"
+                                        ]
+                                    )
+                   )
+            )
+            |> Elm.expose
+         ]
+            ++ (case localDefinitions of
+                    Just local ->
+                        [ local.initFn.declaration
+                        , local.updateFn.declaration
+                        , local.subscriptionsFn.declaration
+                        ]
+
+                    Nothing ->
+                        []
+               )
+            ++ [ definitions.types.data |> typeToDeclaration "Data" |> Elm.expose
+               , definitions.types.actionData |> typeToDeclaration "ActionData" |> Elm.expose
+               , dataFn.declaration
+               , headFn.declaration
+               , viewFn.declaration
+               ]
+            ++ ([ actionFn |> Maybe.map .declaration
+                ]
+                    |> List.filterMap identity
+               )
+            ++ definitions.declarations
+        )
+        |> (\{ path, contents } ->
+                { path = "app/" ++ path
+                , body = contents
+                }
+           )
+
+
+localType : String -> Elm.Annotation.Annotation
+localType =
+    Elm.Annotation.named []
+
+
+myType : String -> Elm.Annotation.Annotation
+myType dataType =
+    Elm.Annotation.namedWith [ "Server", "Request" ]
+        "Parser"
+        [ throwableTask
+            (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"
+                                        [ throwableTask
+                                            (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"
+                                        [ throwableTask
+                                            (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" ]
+                                    (throwableTask (Elm.Annotation.var "data"))
+                              )
+                            , ( "pages"
+                              , throwableTask
+                                    (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"
+                              , throwableTask (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
+    , state : State
+    }
+    -> Elm.Expression
+    -> Elm.Expression
+buildWithLocalState_ buildWithLocalStateArg buildWithLocalStateArg0 =
+    Elm.apply
+        (Elm.value
+            { importFrom = [ "RouteBuilder" ]
+            , name =
+                case buildWithLocalStateArg.state of
+                    LocalState ->
+                        "buildWithLocalState"
+
+                    SharedState ->
+                        "buildWithSharedState"
+            , 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.named [] "Model")
+                                        (Elm.Annotation.namedWith
+                                            [ "Effect" ]
+                                            "Effect"
+                                            [ Elm.Annotation.named [] "Msg" ]
+                                        )
+                                    )
+                              )
+                            , ( "update"
+                              , Elm.Annotation.function
+                                    [ Elm.Annotation.namedWith
+                                        [ "Pages", "PageUrl" ]
+                                        "PageUrl"
+                                        []
+                                    , Elm.Annotation.namedWith [ "Shared" ] "Model" []
+                                    , Elm.Annotation.namedWith
+                                        [ "RouteBuilder" ]
+                                        "StaticPayload"
+                                        [ localType "Data"
+                                        , localType "ActionData"
+                                        , localType "RouteParams"
+                                        ]
+                                    , Elm.Annotation.named [] "Msg"
+                                    , Elm.Annotation.named [] "Model"
+                                    ]
+                                    (case buildWithLocalStateArg.state of
+                                        LocalState ->
+                                            Elm.Annotation.tuple
+                                                (localType "Model")
+                                                (Elm.Annotation.namedWith
+                                                    [ "Effect" ]
+                                                    "Effect"
+                                                    [ localType "Msg" ]
+                                                )
+
+                                        SharedState ->
+                                            Elm.Annotation.triple
+                                                (localType "Model")
+                                                (Elm.Annotation.namedWith
+                                                    [ "Effect" ]
+                                                    "Effect"
+                                                    [ localType "Msg" ]
+                                                )
+                                                (Elm.Annotation.maybe (Elm.Annotation.named [ "Shared" ] "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" [ localType "Msg" ])
+                              )
+                            ]
+                        , Elm.Annotation.namedWith
+                            [ "RouteBuilder" ]
+                            "Builder"
+                            [ localType "RouteParams"
+                            , localType "Data"
+                            , localType "ActionData"
+                            ]
+                        ]
+                        (Elm.Annotation.namedWith
+                            [ "RouteBuilder" ]
+                            "StatefulRoute"
+                            [ localType "RouteParams"
+                            , localType "Data"
+                            , localType "ActionData"
+                            , localType "Model"
+                            , localType "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.named [] "Data"
+                                        , Elm.Annotation.named [] "ActionData"
+                                        , Elm.Annotation.named [] "RouteParams"
+                                        ]
+                                    ]
+                                    (Elm.Annotation.namedWith
+                                        [ "View" ]
+                                        "View"
+                                        [ Elm.Annotation.namedWith
+                                            [ "Pages", "Msg" ]
+                                            "Msg"
+                                            [ Elm.Annotation.unit ]
+                                        ]
+                                    )
+                              )
+                            ]
+                        , Elm.Annotation.namedWith
+                            [ "RouteBuilder" ]
+                            "Builder"
+                            [ Elm.Annotation.named [] "RouteParams"
+                            , Elm.Annotation.named [] "Data"
+                            , Elm.Annotation.named [] "ActionData"
+                            ]
+                        ]
+                        (Elm.Annotation.namedWith
+                            [ "RouteBuilder" ]
+                            "StatefulRoute"
+                            [ Elm.Annotation.named [] "RouteParams"
+                            , Elm.Annotation.named [] "Data"
+                            , Elm.Annotation.named [] "ActionData"
+                            , 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
+        ]
+
+
+effectType : Elm.Annotation.Annotation
+effectType =
+    Elm.Annotation.namedWith
+        [ "Effect" ]
+        "Effect"
+        [ Elm.Annotation.named [] "Msg" ]
+
+
+throwableTask : Elm.Annotation.Annotation -> Elm.Annotation.Annotation
+throwableTask dataType =
+    Elm.Annotation.namedWith [ "BackendTask" ]
+        "BackendTask"
+        [ Elm.Annotation.named [ "FatalError" ] "FatalError"
+        , dataType
+        ]