msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

fetch languages on demand to reduce database references

Browse Source
This commit is contained in:
Krasimir Angelov
2024-03-14 20:05:19 +01:00
parent a8c5a4f93f
commit 1fd0e9d8e2
4 changed files with 26 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/compiler/api/GF/Interactive.hs
View File

@@ -372,7 +372,7 @@ updatePGF pgf mb_txnid f = do
mb_txnid
optLang pgf opts =
case Map.keys (languages pgf) of
case Map.keys langs of
[lang] -> completeLang (valStrOpts "lang" lang opts)
_ -> case valStrOpts "lang" "" opts of
"" -> fail "Specify a language to change"