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)))
'())
(if (maybe-value-set? ssl)
(let ((ca-file (ngircd-ssl-ca-file ssl))
(cert-file (ngircd-ssl-cert-file ssl))
(key-file (ngircd-ssl-key-file ssl))
(dh-file (ngircd-ssl-dh-file ssl)))
;; When SSL is used, expose the specified keys and certificates.
(append
(if (maybe-value-set? ca-file)
(list (file-system-mapping
(source ca-file)
(target source)))
'())
(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)))
'())))
;; When SSL is used, expose the specified keys and certificates.
(filter-map (lambda (value)
(if (maybe-value-set? value)
(file-system-mapping
(source value)
(target source))
#f))
(list (ngircd-ssl-ca-file ssl)
(ngircd-ssl-cert-file ssl)
(ngircd-ssl-key-file ssl)
(ngircd-ssl-dh-file ssl)))
'())
(if (maybe-value-set? channels)
(filter-map (lambda (channel)