ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 15:36:20 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

system: More 'file-append' instead of #~(string-append #$thing …).

Browse source 
* gnu/system/shadow.scm (<user-account>)[shell]: Use 'file-append'.
(%base-user-accounts): Likewise.
* gnu/system/grub.scm (%background-image): Likewise.
This commit is contained in:
Ludovic Courtès 2017-02-01 12:30:56 +01:00
parent ae763b5b0b
commit 357db1f91d
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gnu/system/grub.scm
View file

@ -94,8 +94,8 @@ (define-record-type* <grub-theme>
(define %background-image
(grub-image
(aspect-ratio 4/3)
(file #~(string-append #$%artwork-repository
"/grub/GuixSD-fully-black-4-3.svg"))))
(file (file-append %artwork-repository
"/grub/GuixSD-fully-black-4-3.svg"))))
(define %default-theme
;; Default theme contributed by Felipe López.

4
gnu/system/shadow.scm
View file

@ -84,7 +84,7 @@ (define-record-type* <user-account>
(create-home-directory? user-account-create-home-directory? ;Boolean
(default #t))
(shell user-account-shell ; gexp
(default #~(string-append #$bash "/bin/bash")))
(default (file-append bash "/bin/bash")))
(system? user-account-system? ; Boolean
(default #f)))
@ -131,7 +131,7 @@ (define %base-user-accounts
(name "nobody")
(uid 65534)
(group "nogroup")
(shell #~(string-append #$shadow "/sbin/nologin"))
(shell (file-append shadow "/sbin/nologin"))
(home-directory "/nonexistent")
(create-home-directory? #f)
(system? #t))))