Fix payment category search query

1 files changed, 4 insertions, 1 deletions

diff --git a/src/server/Model/PaymentCategory.hs b/src/server/Model/PaymentCategory.hs
index 668fb01..7c504dc 100644
--- a/src/server/Model/PaymentCategory.hs
+++ b/src/server/Model/PaymentCategory.hs
@@ -53,7 +53,10 @@ save newName categoryId =
   Query (\conn -> do
     now <- getCurrentTime
     mbPaymentCategory <- listToMaybe <$>
-      (SQLite.query conn "SELECT * FROM payment_category WHERE name = ?" (Only newName) :: IO [PaymentCategory])
+      (SQLite.query
+        conn
+        "SELECT * FROM payment_category WHERE name = ?"
+        (Only (formatPaymentName newName)) :: IO [PaymentCategory])
     if isJust mbPaymentCategory
       then
         SQLite.execute