Add upsert of language component

2023-02-02 15:43:54 -06:00 · 2023-02-02 15:43:54 -06:00 · de3293f6ec
commit de3293f6ec
parent fb82923949
1 changed files with 6 additions and 1 deletions
--- a/src/LangComponent.hs
+++ b/src/LangComponent.hs
@ -82,5 +82,10 @@ loadLangComponent :: LangComponent -> Action IO ()
 loadLangComponent lc = do
  let langComp = val lc
  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"