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

services: 'file-union' makes sure each source file exists.

Browse source 
Before that, specifying an invalid timezone in 'operating-system' would
lead to a dangling symlink in the 'etc' directory, which in turn would
lead to a kernel panic at boot time.

Reported by pizzaiolo on #guix.

* gnu/services.scm (file-union): Add 'stat' call for SOURCE.
This commit is contained in:
Ludovic Courtès 2016-02-03 22:26:33 +01:00
parent 240b57f0ca
commit 37dd1e6a34
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
gnu/services.scm
View file

@ -291,7 +291,12 @@ (define* (file-union name files) ;FIXME: Factorize.
(chdir #$output)
#$@(map (match-lambda
((target source)
#~(symlink #$source #$target)))
#~(begin
;; Stat the source to abort early if it
;; does not exist.
(stat #$source)
(symlink #$source #$target))))
files))))
(define (directory-union name things)