From 3c0db1777f5ae5f21916be9402c24bcd865cad99 Mon Sep 17 00:00:00 2001
From: weiss <kingbaiing@163.com>
Date: Mon, 22 Apr 2024 15:05:10 +0200
Subject: [PATCH] change tag upsert id

---
 src/Db/Command.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Db/Command.hs b/src/Db/Command.hs
index 379f4c0..49a03e9 100644
--- 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