From e80411d8bde977d91d202c9998af3e4adecc9584 Mon Sep 17 00:00:00 2001
From: Rene Vergara <rene@vergara.network>
Date: Wed, 10 May 2023 15:24:16 -0500
Subject: [PATCH] Fix new endpoint for login language

---
 src/ZGoBackend.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/ZGoBackend.hs b/src/ZGoBackend.hs
index 116002a..99a6a49 100644
--- 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