diff options
-rwxr-xr-x | bin/tissue | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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))) |