guix
/
guix
mirror of git://git.savannah.gnu.org/guix.git
3
4
Fork 0
Code Issues Releases Wiki Activity

services: gpm: Use "make-forkexec-contstructor". 

* gnu/services/base.scm (gpm-shepherd-service)[start]: Replace custom
logic with "make-forkexec-constructor".
This commit is contained in:
Brice Waegeneire 2021-07-03 20:07:07 +02:00
parent acfeccd8da
commit 1beeef6261
No known key found for this signature in database
GPG Key ID: A94903A166A18FAE
1 changed files with 7 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
gnu/services/base.scm
View File

@ -2217,23 +2217,13 @@ instance."
(list (shepherd-service
(requirement '(udev))
(provision '(gpm))
(start #~(lambda ()
;; 'gpm' runs in the background and sets a PID file.
;; Note that it requires running as "root".
(false-if-exception (delete-file "/var/run/gpm.pid"))
(fork+exec-command (list #$(file-append gpm "/sbin/gpm")
#$@options))
;; Wait for the PID file to appear; declare failure if
;; it doesn't show up.
(let loop ((i 3))
(or (file-exists? "/var/run/gpm.pid")
(if (zero? i)
#f
(begin
(sleep 1)
(loop (1- i))))))))
;; 'gpm' runs in the background and sets a PID file.
;; Note that it requires running as "root".
(start #~(make-forkexec-constructor
(list #$(file-append gpm "/sbin/gpm")
#$@options)
#:pid-file "/var/run/gpm.pid"
#:pid-file-timeout 3))
(stop #~(lambda (_)
;; Return #f if successfully stopped.
(not (zero? (system* #$(file-append gpm "/sbin/gpm")