aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSean Whitton <spwhitton@spwhitton.name>2021-03-27 20:42:04 -0700
committerSean Whitton <spwhitton@spwhitton.name>2021-03-27 20:45:37 -0700
commitaafc09450fc8cefa908e5774f9b2fb4b36001af2 (patch)
tree1b866f0105cda28501df6b95cf14233e56dda87c
parent5f8c5cfb276e96527c99c057a7bbb41c77d6b73b (diff)
downloadconsfigurator-aafc09450fc8cefa908e5774f9b2fb4b36001af2.tar.gz
SERVICE:RUNNING: assume no change made
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rw-r--r--src/property/service.lisp4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/property/service.lisp b/src/property/service.lisp
index 1d7a334..07ffabd 100644
--- a/src/property/service.lisp
+++ b/src/property/service.lisp
@@ -56,7 +56,9 @@ properties."
(:desc #?"Attempt to start ${service} has been made")
(:apply
(unless (get-hostattrs-car :no-services)
- (run :may-fail "service" service "start"))))
+ (run :may-fail "service" service "start"))
+ ;; assume it was already running
+ :no-change))
(define-function-property-combinator without-starting-services (&rest propapps)
"Apply PROPAPPS with SERVICE:NO-SERVICES temporarily in effect."