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

Include Just in front of route helper.

Browse Source
This commit is contained in:
Dillon Kearns 2022-09-13 06:35:42 -07:00
parent 27d13c5a15
commit 392389ebbc
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
codegen/Generate.elm
View File

@ -59,6 +59,7 @@ file templates =
(\segments ->
(routes
|> List.concatMap RoutePattern.routeToBranch
|> List.map (Tuple.mapSecond (\constructRoute -> Elm.CodeGen.apply [ Elm.CodeGen.val "Just", constructRoute ]))
|> Elm.CodeGen.caseExpr (Elm.CodeGen.val "segments")
)
|> Elm.Pretty.prettyExpression