diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2018-09-23 22:11:35 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-09-23 23:34:16 +0200 |
| commit | c122a2e509df98c4391750a066fecba37465eab3 (patch) | |
| tree | 1aece42f5e82f9d2d2999c223304ee012cb3cc34 | |
| parent | 88600acc939365b4ffd45a8be74117a8cf8dc3dd (diff) | |
| download | guix-c122a2e509df98c4391750a066fecba37465eab3.tar guix-c122a2e509df98c4391750a066fecba37465eab3.tar.gz | |
serialization: Remove redundancy in 'write-file'.
* guix/serialization.scm (write-file): Remove redundant 'member' call.
| -rw-r--r-- | guix/serialization.scm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/guix/serialization.scm b/guix/serialization.scm index 129374f541..87ad7eeec0 100644 --- a/guix/serialization.scm +++ b/guix/serialization.scm @@ -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)) |