diff --git a/src/LangComponent.hs b/src/LangComponent.hs
index dd17638..7c01839 100644
--- 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"