From 6a766ee0d85d8e2d02e32abd8343fa328c6e845b Mon Sep 17 00:00:00 2001
From: Rene Vergara <rene@vergara.network>
Date: Thu, 16 Feb 2023 07:49:05 -0600
Subject: [PATCH] Add batch load of translation

---
 src/ZGoBackend.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/ZGoBackend.hs b/src/ZGoBackend.hs
index 502beef..ca4a7f4 100644
--- a/src/ZGoBackend.hs
+++ b/src/ZGoBackend.hs
@@ -1039,7 +1039,9 @@ routes pipe config = do
         Web.Scotty.json $ toJSON (tP :: LangComponent)
   post "/api/setlang" $ do
     langComp <- jsonData
-    _ <- liftAndCatchIO $ run (loadLangComponent langComp)
+    _ <-
+      liftAndCatchIO $
+      mapM (run . loadLangComponent) (langComp :: [LangComponent])
     status created201
 
 -- | Make a Zcash RPC call