change tag upsert id

WeissP · Apr 22, 2024 · 3c0db17 · 3c0db17
1 parent 2c22559
commit 3c0db17
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Db/Command.hs b/src/Db/Command.hs
@@ -226,7 +226,7 @@ instance Insertable TagEntry TagPost where
 instance Upsertable TagEntry where
   upsertInfo =
     Upsert
-      { index = teID
+      { index = teName
       , predicate = Nothing
       , set = \new old -> new {teID = teID old}
       , updateWhere = \_ _ -> lit True