Fix new endpoint for login language

2023-05-10 15:24:16 -05:00 · 2023-05-10 15:24:16 -05:00 · e80411d8bd
parent 0afcaed076
commit e80411d8bd
1 changed files with 1 additions and 1 deletions
--- a/src/ZGoBackend.hs
+++ b/src/ZGoBackend.hs
@ -1133,7 +1133,7 @@ routes pipe config = do
    liftAndCatchIO $ run (deleteOrder oId)
    status ok200
  -- Get language for component
-  get "getloginlang" $ do
+  get "/getloginlang" $ do
    lang <- param "lang"
    txtPack' <- liftAndCatchIO $ run (findLangComponent lang "login")
    case cast' . Doc =<< txtPack' of