Vergara_Tech/zgo-backend
Vergara_Tech/zgo-backend
2
1
Fork 0
Code Issues Pull requests Projects Releases 4 Packages Wiki Activity

Add upsert of language component

Browse source
This commit is contained in:
Rene Vergara 2023-02-02 15:43:54 -06:00
parent fb82923949
commit de3293f6ec
Signed by: pitmutt
GPG key ID: 65122AD495A7F5B2
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/LangComponent.hs
View file

@ -82,5 +82,10 @@ loadLangComponent :: LangComponent -> Action IO ()
loadLangComponent lc = do loadLangComponent lc = do
let langComp = val lc let langComp = val lc
case langComp of case langComp of
Doc x -> insert_ "langcomps" x Doc x ->
upsert
(select
["language" =: lc_lang lc, "component" =: lc_component lc]
"langcomps")
x
_ -> error "Couldn't parse language JSON" _ -> error "Couldn't parse language JSON"