amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

serialization: Remove redundancy in 'write-file'.

Browse source 
* 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
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))