From 8f688e4a83fc9fde0be05eef699e1b27dd74c618 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Olivier=20B=C3=A9gassat?= <38285177+OlivierBBB@users.noreply.github.com> Date: Sat, 14 Dec 2024 14:06:09 +0700 Subject: [PATCH] fix: `undoDepStatusAndNumberUpdate` wrong constraint fix (#551) --- hub/constraints/account-rows/specialized.lisp | 1 - 1 file changed, 1 deletion(-) diff --git a/hub/constraints/account-rows/specialized.lisp b/hub/constraints/account-rows/specialized.lisp index f31845e7..c5f7963c 100644 --- a/hub/constraints/account-rows/specialized.lisp +++ b/hub/constraints/account-rows/specialized.lisp @@ -72,7 +72,6 @@ (defun (account-increment-deployment-number kappa) (shift (eq! account/DEPLOYMENT_NUMBER_NEW (+ 1 account/DEPLOYMENT_NUMBER)) kappa)) (defun (account-turn-on-deployment-status kappa) (shift (eq! account/DEPLOYMENT_STATUS_NEW (+ 1 account/DEPLOYMENT_STATUS)) kappa)) (defun (account-undo-deployment-status-update undoAt doneAt) (begin (account-same-deployment-number undoAt) - (eq! (shift account/DEPLOYMENT_NUMBER undoAt) (shift account/DEPLOYMENT_NUMBER_NEW doneAt)) (eq! (shift account/DEPLOYMENT_STATUS_NEW undoAt) (shift account/DEPLOYMENT_STATUS doneAt)) (eq! (shift account/DEPLOYMENT_STATUS undoAt) (shift account/DEPLOYMENT_STATUS_NEW doneAt))))