diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-02 14:56:37 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-02 14:56:37 -0700 |
| commit | 805c59aeb5a65aa2b05ae177acbd141d517e4d06 (patch) | |
| tree | 848c28d2d2fcee490bacb3f53c4b0813befda109 /src/property.lisp | |
| parent | 0f176342245b5d1827d5dc1181d310c4bbc832c9 (diff) | |
| download | consfigurator-805c59aeb5a65aa2b05ae177acbd141d517e4d06.tar.gz | |
ASSERT-EUID-ROOT: signal ABORTED-CHANGE rather than FAILED-CHANGE
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property.lisp')
| -rw-r--r-- | src/property.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/property.lisp b/src/property.lisp index 23587d6..534426b 100644 --- a/src/property.lisp +++ b/src/property.lisp @@ -590,7 +590,7 @@ PATH if PATH already has the specified CONTENT and MODE." (defun assert-euid-root () "Assert that the remote user has uid 0 (root)" (unless (zerop (get-connattr :remote-uid)) - (failed-change "Property requires root to apply"))) + (aborted-change "Property requires root to apply"))) (defun assert-connection-supports (type) (unless (or (eq type :posix) (lisp-connection-p)) |