From 33899d1f966490d5093c86f12125d9399d6aa0fe Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 6 Jul 2023 22:12:12 +0100
Subject: .guix: Use current-source-directory in git-predicate.

With "..", the git-predicate fails and filters nothing.

* .guix/guile-xapian-package.scm (guile-xapian,
guile2.2-xapian)[source]: Use current-source-directory in
git-predicate.
---
 .guix/guile-xapian-package.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to '.guix/guile-xapian-package.scm')

diff --git a/.guix/guile-xapian-package.scm b/.guix/guile-xapian-package.scm
index 3de8532..a6fa505 100644
--- a/.guix/guile-xapian-package.scm
+++ b/.guix/guile-xapian-package.scm
@@ -30,7 +30,7 @@
     (source (local-file ".."
                         "guile-xapian-checkout"
                         #:recursive? #t
-                        #:select? (or (git-predicate "..")
+                        #:select? (or (git-predicate (dirname (current-source-directory)))
                                       (const #t))))))
 
 (define-public guile2.2-xapian
@@ -39,7 +39,7 @@
     (source (local-file ".."
                         "guile-xapian-checkout"
                         #:recursive? #t
-                        #:select? (or (git-predicate "..")
+                        #:select? (or (git-predicate (dirname (current-source-directory)))
                                       (const #t))))))
 
 guile-xapian
-- 
cgit v1.2.3