guix
/
guix
mirror of git://git.savannah.gnu.org/guix.git
3
4
Fork 0
Code Issues Releases Wiki Activity

services: provenance: Wrap config file name in 'assume-valid-file-name'. 

This gets rid of a pointless 'local-file' warning when running
'guix system reconfigure FILE' and FILE is a relative file name.

* gnu/services.scm (provenance-entry): Wrap CONFIG-FILE in
'assume-valid-file-name'.
This commit is contained in:
Ludovic Courtès 2020-10-16 14:57:25 +02:00
parent 5d4ad8e1be
commit 5dbfdf8be4
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
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

@ -461,7 +461,12 @@ channels in use and CONFIG-FILE, if it is true."
(mbegin %store-monad
(let ((config-file (cond ((string? config-file)
(local-file config-file "configuration.scm"))
;; CONFIG-FILE has been passed typically via
;; 'guix system reconfigure CONFIG-FILE' so we
;; can assume it's valid: tell 'local-file' to
;; not emit a warning.
(local-file (assume-valid-file-name config-file)
"configuration.scm"))
((not config-file)
#f)
(else