dillonkearns/elm-pages-v3-beta
1
1
Fork 0
mirror of https://github.com/dillonkearns/elm-pages-v3-beta.git synced 2024-12-25 04:43:03 +03:00
Code Issues Packages Projects Releases Wiki Activity

Explicitly expose the minimum types/values in codegen template.

Browse Source
This commit is contained in:
Dillon Kearns 2023-01-20 14:34:59 -08:00
parent c178ec2a18
commit a183d4715c
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/Pages/Generate.elm
View File

@ -720,8 +720,8 @@ userFunction moduleName definitions =
)
in
Elm.file ("Route" :: moduleName)
([ definitions.types.model |> typeToDeclaration "Model"
, definitions.types.msg |> typeToDeclaration "Msg"
([ definitions.types.model |> typeToDeclaration "Model" |> Elm.expose
, definitions.types.msg |> typeToDeclaration "Msg" |> Elm.expose
, Elm.alias "RouteParams"
(Elm.Annotation.record
(RoutePattern.fromModuleName moduleName
@ -730,6 +730,7 @@ userFunction moduleName definitions =
|> Maybe.withDefault []
)
)
|> Elm.expose
, Elm.declaration "route"
((case definitions.action of
Action _ ->
@ -808,6 +809,7 @@ userFunction moduleName definitions =
)
)
)
|> Elm.expose
]
++ (case localDefinitions of
Just local ->
@ -819,8 +821,8 @@ userFunction moduleName definitions =
Nothing ->
[]
)
++ [ definitions.types.data |> typeToDeclaration "Data"
, definitions.types.actionData |> typeToDeclaration "ActionData"
++ [ definitions.types.data |> typeToDeclaration "Data" |> Elm.expose
, definitions.types.actionData |> typeToDeclaration "ActionData" |> Elm.expose
, dataFn.declaration
, headFn.declaration
, viewFn.declaration