diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-03 09:34:37 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-04 14:47:02 -0700 |
| commit | 006d3969bad1f84c0133a36ed9a623b59bd01c0e (patch) | |
| tree | b16c80a6b3d9930dc98f3e3d141a8dabd075b05d /src/property/service.lisp | |
| parent | 6195f10ed2c7c8999b2fd8078a12c6c84cb5a592 (diff) | |
| download | consfigurator-006d3969bad1f84c0133a36ed9a623b59bd01c0e.tar.gz | |
rename basic propapp accessors
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/service.lisp')
| -rw-r--r-- | src/property/service.lisp | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/property/service.lisp b/src/property/service.lisp index ad920c9..6650244 100644 --- a/src/property/service.lisp +++ b/src/property/service.lisp @@ -84,8 +84,9 @@ properties." disable starting services by the package manager." (let ((propapp (if (cdr propapps) (apply #'eseqprops propapps) (car propapps)))) (:retprop :type :lisp - :hostattrs - (lambda () (propappattrs propapp) (os:required 'os:debianlike)) + :hostattrs (lambda () + (propapp-attrs propapp) + (os:required 'os:debianlike)) :apply (lambda (&aux (already-exists (file-exists-p +policyrcd+))) (with-remote-temporary-file (temp :directory "/usr/sbin") @@ -98,7 +99,7 @@ disable starting services by the package manager." ;; check that it's actually been a second. (loop do (sleep 1) until (> (get-universal-time) before)) (unwind-protect (with-connattrs (:no-services t) - (propappapply propapp)) + (apply-propapp propapp)) (if already-exists ;; Check whether some property we applied set the ;; contents of /usr/sbin/policy-rc.d, in which case @@ -107,4 +108,4 @@ disable starting services by the package manager." (rename-file temp +policyrcd+)) (when (file-exists-p +policyrcd+) (delete-file +policyrcd+))))))) - :unapply (lambda () (propappunapply propapp))))) + :unapply (lambda () (unapply-propapp propapp))))) |