Fix update payment category constraint error

1 files changed, 2 insertions, 2 deletions

diff --git a/src/client/LoggedIn/Update.elm b/src/client/LoggedIn/Update.elm
index 9e6d6ee..f5ce7ea 100644
--- a/src/client/LoggedIn/Update.elm
+++ b/src/client/LoggedIn/Update.elm
@@ -74,7 +74,7 @@ update model msg loggedIn =
                  let newPayment = Payment paymentId name cost date loggedIn.me frequency
                  in  ( { loggedIn
                        | payments = newPayment :: loggedIn.payments
-                       , paymentCategories = PaymentCategory.set name category loggedIn.paymentCategories
+                       , paymentCategories = PaymentCategory.save name category loggedIn.paymentCategories
                        }
                      , Cmd.none
                      )
@@ -88,7 +88,7 @@ update model msg loggedIn =
                 , paymentCategories =
                     case mbOldPayment of
                       Just oldPayment ->
-                        PaymentCategory.update oldPayment.name name category loggedIn.paymentCategories
+                        PaymentCategory.save name category loggedIn.paymentCategories
                       Nothing ->
                         loggedData.paymentCategories
                 }