nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

serialization: Remove redundancy in 'write-file'. 

* guix/serialization.scm (write-file): Remove redundant 'member' call.
This commit is contained in:
Ludovic Courtès 2018-09-23 22:11:35 +02:00
parent 88600acc93
commit c122a2e509
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
guix/serialization.scm
View File

@ -301,8 +301,7 @@ result of 'lstat'; exclude entries for which SELECT? does not return true."
(filter-map (lambda (base) (filter-map (lambda (base)
(let ((file (string-append directory (let ((file (string-append directory
"/" base))) "/" base)))
(and (not (member base '("." ".."))) (and (select? file (lstat file))
(select? file (lstat file))
base))) base)))
basenames)) basenames))