amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: ngircd: Streamline wrapper definition.

Browse source 
* gnu/services/messaging.scm (ngircd-shepherd-service): Streamline wrapper
definition.

Change-Id: Ie48a02d141ab329a5b684897fb2562b4e6745452
This commit is contained in:
Maxim Cournoyer 2025-04-14 20:47:43 +09:00
parent b444fc05b5
commit 7686fe9d4f
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 11 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

37
gnu/services/messaging.scm
View file

@ -1558,32 +1558,17 @@ wrapper for the 'ngircd' command."
(target source))) (target source)))
'()) '())
(if (maybe-value-set? ssl) (if (maybe-value-set? ssl)
(let ((ca-file (ngircd-ssl-ca-file ssl)) ;; When SSL is used, expose the specified keys and certificates.
(cert-file (ngircd-ssl-cert-file ssl)) (filter-map (lambda (value)
(key-file (ngircd-ssl-key-file ssl)) (if (maybe-value-set? value)
(dh-file (ngircd-ssl-dh-file ssl))) (file-system-mapping
;; When SSL is used, expose the specified keys and certificates. (source value)
(append (target source))
(if (maybe-value-set? ca-file) #f))
(list (file-system-mapping (list (ngircd-ssl-ca-file ssl)
(source ca-file) (ngircd-ssl-cert-file ssl)
(target source))) (ngircd-ssl-key-file ssl)
'()) (ngircd-ssl-dh-file ssl)))
(if (maybe-value-set? cert-file)
(list (file-system-mapping
(source cert-file)
(target source)))
'())
(if (maybe-value-set? key-file)
(list (file-system-mapping
(source key-file)
(target source)))
'())
(if (maybe-value-set? dh-file)
(list (file-system-mapping
(source dh-file)
(target source)))
'())))
'()) '())
(if (maybe-value-set? channels) (if (maybe-value-set? channels)
(filter-map (lambda (channel) (filter-map (lambda (channel)