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

Handle endings in toModuleName.

Browse Source
This commit is contained in:
Dillon Kearns 2022-09-15 10:39:22 -07:00
parent ac57661c61
commit 3bb7c37e4a
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/Pages/Internal/RoutePattern.elm
View File

@ -25,8 +25,9 @@ type alias RoutePattern =
toModuleName : RoutePattern -> List String
toModuleName route =
case route.ending of
Nothing ->
let
segmentsAsModuleParts : List String
segmentsAsModuleParts =
route.segments
|> List.foldl
(\segment soFar ->
@ -38,9 +39,13 @@ toModuleName route =
soFar ++ [ name ++ "_" ]
)
[]
in
case route.ending of
Nothing ->
segmentsAsModuleParts
_ ->
[ "Unhandled2" ]
Just ending ->
segmentsAsModuleParts ++ [ endingToVariantName ending |> Tuple.first ]
fromModuleName : List String -> Maybe RoutePattern

1
tests/Pages/RouteParamsTest.elm
View File

@ -204,6 +204,7 @@ routeModuleNameFuzzer =
Fuzz.oneOf
[ Fuzz.constant [ "Index" ]
, Fuzz.constant [ "User", "Id_" ]
, Fuzz.constant [ "Docs", "Section__" ]
]