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