From 7ffffb255b9c19aebde492d9fbb25f6fe90dd5ba Mon Sep 17 00:00:00 2001 From: Steffen Beyer Date: Thu, 2 Apr 2026 15:11:02 +0200 Subject: [PATCH] Fix Hitch reload action --- tribes/services/hitch.scm | 20 ++++---------------- 1 file changed, 4 insertions(+), 16 deletions(-) diff --git a/tribes/services/hitch.scm b/tribes/services/hitch.scm index 2b9c171..6c266a1 100644 --- a/tribes/services/hitch.scm +++ b/tribes/services/hitch.scm @@ -95,22 +95,10 @@ (define (hitch-reload-procedure package) #~(lambda _ - (use-modules (ice-9 popen) - (ice-9 rdelim)) - (let* ((port (open-pipe* OPEN_READ - #$(file-append procps "/bin/pidof") - "hitch")) - (line (read-line port)) - (status (close-pipe port))) - (and (zero? status) - (string? line) - (not (eof-object? line)) - (let ((pid (string->number - (car (string-tokenize line))))) - (and pid - (zero? (system* #$(file-append coreutils "/bin/kill") - "-HUP" - (number->string pid))))))))) + (zero? (system* #$(file-append procps "/bin/pkill") + "-HUP" + "-x" + "hitch")))) (define (hitch-shepherd-services config) (let ((config-file (hitch-config-file config))