From a09cdf1f9d25abd1b3910409787a58386ebc21e2 Mon Sep 17 00:00:00 2001 From: Maxim Cournoyer Date: Wed, 19 May 2021 22:27:25 -0400 Subject: services: opendht: Fix hang at boot. Fixes . The problem was caused by the 'file-system-mapping' record not being in scope. * gnu/services/networking.scm (opendht-shepherd-service): Import the (gnu system file-systems) module. [requirement]: Depend on networking, to avoid spurious output. [modules]: New field. [start] : New argument. --- gnu/services/networking.scm | 28 +++++++++++++++++----------- 1 file changed, 17 insertions(+), 11 deletions(-) (limited to 'gnu/services') diff --git a/gnu/services/networking.scm b/gnu/services/networking.scm index d713042a9f..b78c8ceacc 100644 --- a/gnu/services/networking.scm +++ b/gnu/services/networking.scm @@ -839,17 +839,23 @@ CONFIG, an object." (define (opendht-shepherd-service config) "Return a running OpenDHT." - (shepherd-service - (documentation "Run an OpenDHT node.") - (provision '(opendht dhtnode dhtproxy)) - (requirement '(user-processes syslogd)) - (start #~(make-forkexec-constructor/container - (list #$@(opendht-configuration->command-line-arguments config)) - #:mappings (list (file-system-mapping - (source "/dev/log") ;for syslog - (target source))) - #:user "opendht")) - (stop #~(make-kill-destructor)))) + (with-imported-modules (source-module-closure + '((gnu build shepherd) + (gnu system file-systems))) + (shepherd-service + (documentation "Run an OpenDHT node.") + (provision '(opendht dhtnode dhtproxy)) + (requirement '(networking syslogd)) + (modules '((gnu build shepherd) + (gnu system file-systems))) + (start #~(make-forkexec-constructor/container + (list #$@(opendht-configuration->command-line-arguments config)) + #:mappings (list (file-system-mapping + (source "/dev/log") ;for syslog + (target source))) + #:user "opendht" + #:group "opendht")) + (stop #~(make-kill-destructor))))) (define opendht-service-type (service-type -- cgit 1.4.1