From d99a4c4cb3b52b1ff9dc20ad05c51624256c6405 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Sat, 20 May 2023 00:42:20 +0200
Subject: services: agetty: 'stop' method does nothing when running is 'idle.

This is a followup to 57e731c358d000f614fbda23654cae6a5e79df80.

* gnu/services/base.scm (agetty-shepherd-service): Change 'stop' method
to return #f immediately when the running value is 'idle.
---
 gnu/services/base.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'gnu/services/base.scm')

diff --git a/gnu/services/base.scm b/gnu/services/base.scm
index fdc2c8c764..79c9661567 100644
--- a/gnu/services/base.scm
+++ b/gnu/services/base.scm
@@ -1187,7 +1187,11 @@ (define (agetty-shepherd-service config)
                                       '#$(car provision))
                               'idle)))
                 args)))))
-      (stop #~(make-kill-destructor))))))
+      (stop #~(let ((stop (make-kill-destructor)))
+                (lambda (running)
+                  (if (eq? 'idle running)
+                      #f
+                      (stop running)))))))))
 
 (define agetty-service-type
   (service-type (name 'agetty)
-- 
cgit v1.2.3