ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: Use more 'file-append'.

Browse source 
* gnu/services/authentication.scm (pam-ldap-pam-service): Use
'file-append' instead of #~(string-append ...).
* gnu/services/base.scm (greetd-pam-service): Likewise.
* gnu/services/kerberos.scm (pam-krb5-pam-service): Likewise.
* gnu/services/pam-mount.scm (pam-mount-pam-service): Likewise.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Felix Lechner 2023-05-12 11:52:50 -07:00 committed by Ludovic Courtès
parent 20c51c1d2c
commit 48d06aee7b
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
4 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
gnu/services/authentication.scm
View file

@ -504,7 +504,7 @@ (define (nslcd-shepherd-service config)
(define (pam-ldap-pam-service config) (define (pam-ldap-pam-service config)
"Return a PAM service for LDAP authentication." "Return a PAM service for LDAP authentication."
(define pam-ldap-module (define pam-ldap-module
#~(string-append #$(nslcd-configuration-nss-pam-ldapd config) (file-append (nslcd-configuration-nss-pam-ldapd config)
"/lib/security/pam_ldap.so")) "/lib/security/pam_ldap.so"))
(pam-extension (pam-extension
(transformer (transformer

2
gnu/services/base.scm
View file

@ -3263,7 +3263,7 @@ (define (greetd-pam-service config)
(define optional-pam-mount (define optional-pam-mount
(pam-entry (pam-entry
(control "optional") (control "optional")
(module #~(string-append #$greetd-pam-mount "/lib/security/pam_mount.so")) (module (file-append greetd-pam-mount "/lib/security/pam_mount.so"))
(arguments '("disable_interactive")))) (arguments '("disable_interactive"))))
(list (list

4
gnu/services/kerberos.scm
View file

@ -432,8 +432,8 @@ (define (pam-krb5-pam-service config)
(transformer (transformer
(lambda (pam) (lambda (pam)
(define pam-krb5-module (define pam-krb5-module
#~(string-append #$(pam-krb5-configuration-pam-krb5 config) (file-append (pam-krb5-configuration-pam-krb5 config)
"/lib/security/pam_krb5.so")) "/lib/security/pam_krb5.so"))
(let ((pam-krb5-sufficient (let ((pam-krb5-sufficient
(pam-entry (pam-entry

2
gnu/services/pam-mount.scm
View file

@ -94,7 +94,7 @@ (define (pam-mount-pam-service config)
(define optional-pam-mount (define optional-pam-mount
(pam-entry (pam-entry
(control "optional") (control "optional")
(module #~(string-append #$pam-mount "/lib/security/pam_mount.so")))) (module (file-append pam-mount "/lib/security/pam_mount.so"))))
(list (list
(pam-extension (pam-extension
(transformer (transformer