Remove some hardcoding.

This commit is contained in:
Dillon Kearns 2022-09-12 17:02:54 -07:00
parent 378a8d7b41
commit b75e285247

View File

@ -138,10 +138,10 @@ routeToBranch route =
(\segment ->
case segment of
StaticSegment name ->
Elm.CodeGen.stringPattern "user"
Elm.CodeGen.stringPattern (decapitalize name)
DynamicSegment string ->
Elm.CodeGen.varPattern "id"
DynamicSegment name ->
Elm.CodeGen.varPattern (decapitalize name)
)
)
, Elm.CodeGen.val "TODO"