diff --git a/src/ZGoBackend.hs b/src/ZGoBackend.hs index 7468370..72968f8 100644 --- a/src/ZGoBackend.hs +++ b/src/ZGoBackend.hs @@ -1433,6 +1433,14 @@ routes pipe config = do Just textPack -> do status ok200 Web.Scotty.json $ toJSON (textPack :: LangComponent) + get "/getpmtservicelang" $ do + lang <- param "lang" + txtPack' <- liftAndCatchIO $ run (findLangComponent lang "pmtservice") + case cast' . Doc =<< txtPack' of + Nothing -> status noContent204 + Just textPack -> do + status ok200 + Web.Scotty.json $ toJSON (textPack :: LangComponent) get "/api/getlang" $ do component <- param "component" lang <- param "lang"