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

Use some helpers.

Browse Source
This commit is contained in:
Dillon Kearns 2022-09-23 15:20:19 -07:00
parent 77f6568e4a
commit bfd5ed49c8
1 changed files with 6 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
codegen/GenerateMain.elm
View File

@ -694,7 +694,9 @@ otherFile routes phaseString =
|> Maybe.withDefault (Elm.record [])
]
|> Gen.DataSource.map
(Gen.Server.Response.call_.map (Elm.val ("ActionData" ++ (RoutePattern.toModuleName route |> String.join "__"))))
(Gen.Server.Response.call_.map
(route |> routeVariantExpression ActionData)
)
)
)
}
@ -1063,11 +1065,7 @@ otherFile routes phaseString =
++ (routes
|> List.map
(\route ->
Elm.Pattern.variant1
("Msg"
++ (RoutePattern.toModuleName route |> String.join "__")
)
(Elm.Pattern.var "msg_")
(route |> destructureRouteVariant Msg "msg_")
|> Elm.Case.patternToBranch
(\msg_ ->
Elm.Case.custom
@ -1095,18 +1093,8 @@ otherFile routes phaseString =
)
Type.unit
[ Elm.Pattern.triple
(Elm.Pattern.variant1
("Model"
++ (RoutePattern.toModuleName route |> String.join "__")
)
(Elm.Pattern.var "pageModel")
)
(Elm.Pattern.variant1
("Data"
++ (RoutePattern.toModuleName route |> String.join "__")
)
(Elm.Pattern.var "thisPageData")
)
(route |> destructureRouteVariant Model "pageModel")
(route |> destructureRouteVariant Data "thisPageData")
(Elm.Pattern.variant1
"Just"
(Elm.Pattern.triple