From c122a2e509df98c4391750a066fecba37465eab3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sun, 23 Sep 2018 22:11:35 +0200
Subject: serialization: Remove redundancy in 'write-file'.

* guix/serialization.scm (write-file): Remove redundant 'member' call.
---
 guix/serialization.scm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'guix/serialization.scm')

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))
 
-- 
cgit v1.2.3