mirror of
https://git.savannah.gnu.org/git/guix.git
synced 2026-05-27 19:41:50 +02:00
system: Use 'file-append' to denote file names.
* gnu/services/avahi.scm, gnu/services/base.scm, gnu/services/databases.scm, gnu/services/dbus.scm, gnu/services/desktop.scm, gnu/services/dict.scm, gnu/services/mail.scm, gnu/services/networking.scm, gnu/services/sddm.scm, gnu/services/spice.scm, gnu/services/ssh.scm, gnu/services/web.scm, gnu/services/xorg.scm, gnu/system.scm: Replace the #~(string-append #$pkg "/bin/foo") idiom with (file-append pkg "/bin/foo").
This commit is contained in:
@@ -1505,7 +1505,7 @@ greyed out, instead of only later giving \"not selectable\" popup error.
|
||||
(system? #t)
|
||||
(comment "Dovecot daemon user")
|
||||
(home-directory "/var/empty")
|
||||
(shell #~(string-append #$shadow "/sbin/nologin")))
|
||||
(shell (file-append shadow "/sbin/nologin")))
|
||||
|
||||
(user-group (name "dovenull") (system? #t))
|
||||
(user-account
|
||||
@@ -1514,7 +1514,7 @@ greyed out, instead of only later giving \"not selectable\" popup error.
|
||||
(system? #t)
|
||||
(comment "Dovecot daemon login user")
|
||||
(home-directory "/var/empty")
|
||||
(shell #~(string-append #$shadow "/sbin/nologin")))))
|
||||
(shell (file-append shadow "/sbin/nologin")))))
|
||||
|
||||
(define %dovecot-activation
|
||||
;; Activation gexp.
|
||||
|
||||
Reference in New Issue
Block a user