services: agetty: 'stop' method does nothing when running is 'idle.

This is a followup to 57e731c358.

* gnu/services/base.scm (agetty-shepherd-service): Change 'stop' method
to return #f immediately when the running value is 'idle.
This commit is contained in:
Ludovic Courtès 2023-05-20 00:42:20 +02:00
parent f52020ea99
commit d99a4c4cb3
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -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)