summaryrefslogtreecommitdiff
path: root/guix/serialization.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2018-09-23 22:11:35 +0200
committerLudovic Courtès <ludo@gnu.org>2018-09-23 23:34:16 +0200
commitc122a2e509df98c4391750a066fecba37465eab3 (patch)
tree1aece42f5e82f9d2d2999c223304ee012cb3cc34 /guix/serialization.scm
parent88600acc939365b4ffd45a8be74117a8cf8dc3dd (diff)
serialization: Remove redundancy in 'write-file'.
* guix/serialization.scm (write-file): Remove redundant 'member' call.
Diffstat (limited to 'guix/serialization.scm')
-rw-r--r--guix/serialization.scm3
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))