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

Migrate codegen for dataForRoute.

Browse Source
This commit is contained in:
Dillon Kearns 2022-09-17 19:46:44 -07:00
parent ab91fc7ee5
commit f24f240cf1
1 changed files with 50 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
codegen/GenerateMain.elm
View File

@ -69,7 +69,7 @@ otherFile routes phaseString =
, sharedData =
Elm.value { name = "template", importFrom = [ "Shared" ], annotation = Nothing }
|> Elm.get "data"
, data = todo
, data = Elm.val "dataForRoute"
, action = todo
, onActionData = todo
, view = todo
@ -309,6 +309,54 @@ otherFile routes phaseString =
}
)
dataForRoute :
{ declaration : Elm.Declaration
, call : Elm.Expression -> Elm.Expression
, callFrom : List String -> Elm.Expression -> Elm.Expression
}
dataForRoute =
Elm.Declare.fn
"dataForRoute"
( "maybeRoute", Type.maybe (Type.named [ "Route" ] "Route") |> Just )
(\maybeRoute ->
Elm.Case.maybe maybeRoute
{ nothing =
Gen.DataSource.succeed
(Gen.Server.Response.mapError Gen.Basics.never
(Gen.Server.Response.withStatusCode 404
(Gen.Server.Response.render (Elm.val "Data404NotFoundPage____"))
)
)
, just =
( "justRoute"
, \justRoute ->
branchHelper justRoute
(\route maybeRouteParams ->
Elm.apply
(Elm.value
{ name = "route"
, importFrom = "Route" :: (route |> RoutePattern.toModuleName)
, annotation = Nothing
}
|> Elm.get "data"
)
[ maybeRouteParams
|> Maybe.withDefault (Elm.record [])
]
|> Gen.DataSource.map
(Gen.Server.Response.call_.map (Elm.val ("Data" ++ (RoutePattern.toModuleName route |> String.join "__"))))
)
)
}
|> Elm.withType
(Gen.DataSource.annotation_.dataSource
(Gen.Server.Response.annotation_.response
(Type.named [] "PageData")
(Type.named [ "ErrorPage" ] "ErrorPage")
)
)
)
init :
{ declaration : Elm.Declaration
, call : Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression
@ -1133,6 +1181,7 @@ otherFile routes phaseString =
|> Elm.declaration "main"
|> expose
, config.declaration
, dataForRoute.declaration
, templateSubscriptions.declaration
, byteEncodePageData.declaration
, byteDecodePageData.declaration