From bb0c921a38a468300c70483d2d1370d63e7e070a Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Mon, 23 Jan 2023 20:06:58 +0000
Subject: bin: Create xapian directory only when it does not exist.

* bin/tissue (pull): Create xapian directory only when it does not
exist.
---
 bin/tissue | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'bin')

diff --git a/bin/tissue b/bin/tissue
index 4a2f37d..aaaa122 100755
--- a/bin/tissue
+++ b/bin/tissue
@@ -407,7 +407,8 @@ HOSTNAME."
                    (lambda (temporary-repository-clone)
                      (clone (git-top-level) temporary-repository-clone)
                      ;; Index.
-                     (mkdir "xapian")
+                     (unless (file-exists? "xapian")
+                       (mkdir "xapian"))
                      (let ((xapian-directory (canonicalize-path "xapian")))
                        (call-with-current-directory temporary-repository-clone
                          (cut index xapian-directory))
-- 
cgit v1.2.3