bin: Refer to %xapian-index, not db-path, in main function.

This bug was introduced in ec434ea0710e9ece9f5239c7fe2b1f965a53bea1
when copy-pasting code.

* bin/tissue (main): Refer to %xapian-index, not db-path.

1 files changed, 2 insertions, 2 deletions

diff --git a/bin/tissue b/bin/tissue
index d7736c2..7b2c154 100755
--- a/bin/tissue
+++ b/bin/tissue
@@ -487,8 +487,8 @@ Pull latest from upstream repositories.
                ;; Ensure index exists, rebuilding it if it is stale.
                (let ((current-head
                       (oid->string (reference-name->oid (current-git-repository) "HEAD"))))
-                 (unless (and (file-exists? db-path)
-                              (string=? (call-with-database db-path
+                 (unless (and (file-exists? %xapian-index)
+                              (string=? (call-with-database %xapian-index
                                           (cut Database-get-metadata <> "commit"))
                                         current-head))
                    (index %xapian-index)))