diff options
| -rw-r--r-- | src/server/Model/PaymentCategory.hs | 5 |
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 |