We are using a parser similar to this one:
parser : Parser (Route -> a) a parser = oneOf [ Parser.map Home Parser.top , Parser.map About (s "about") , Parser.map Login (s "login") , Parser.map Logout (s "logout") , Parser.map ChangeLanguage (s "change-language" </> string) ... ]
and we want to add language codes to all the urls in order to set the language like:
What is the recommended way for doing this?
Do we have to add to every line the parser?
Parser.map About (string </> s "about")
and add that code to every Route?
type Route = About lang
Or is there any better approach?