ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-23 19:19:20 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: opendht: Fix hang at boot.

Browse source 
Fixes <https://issues.guix.gnu.org/48521>.

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] <group>: New argument.
This commit is contained in:
Maxim Cournoyer 2021-05-19 22:27:25 -04:00
parent 75abb01247
commit a09cdf1f9d
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 17 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
gnu/services/networking.scm
View file

@ -839,17 +839,23 @@ (define (opendht-configuration->command-line-arguments config)
(define (opendht-shepherd-service config) (define (opendht-shepherd-service config)
"Return a <shepherd-service> running OpenDHT." "Return a <shepherd-service> running OpenDHT."
(with-imported-modules (source-module-closure
'((gnu build shepherd)
(gnu system file-systems)))
(shepherd-service (shepherd-service
(documentation "Run an OpenDHT node.") (documentation "Run an OpenDHT node.")
(provision '(opendht dhtnode dhtproxy)) (provision '(opendht dhtnode dhtproxy))
(requirement '(user-processes syslogd)) (requirement '(networking syslogd))
(modules '((gnu build shepherd)
(gnu system file-systems)))
(start #~(make-forkexec-constructor/container (start #~(make-forkexec-constructor/container
(list #$@(opendht-configuration->command-line-arguments config)) (list #$@(opendht-configuration->command-line-arguments config))
#:mappings (list (file-system-mapping #:mappings (list (file-system-mapping
(source "/dev/log") ;for syslog (source "/dev/log") ;for syslog
(target source))) (target source)))
#:user "opendht")) #:user "opendht"
(stop #~(make-kill-destructor)))) #:group "opendht"))
(stop #~(make-kill-destructor)))))
(define opendht-service-type (define opendht-service-type
(service-type (service-type