bin: Create xapian directory only when it does not exist.

* bin/tissue (pull): Create xapian directory only when it does not
exist.

1 files changed, 2 insertions, 1 deletions

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))