serialization: Remove redundancy in 'write-file'.

* guix/serialization.scm (write-file): Remove redundant 'member' call.
master
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

View File

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