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

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

* .guix/tissue-package.scm (tissue)[source]: Use
current-source-directory in git-predicate.
---
 .guix/tissue-package.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/.guix/tissue-package.scm b/.guix/tissue-package.scm
index ef20db2..23590bf 100644
--- a/.guix/tissue-package.scm
+++ b/.guix/tissue-package.scm
@@ -58,7 +58,7 @@
     (source (local-file ".."
                         "tissue-checkout"
                         #:recursive? #t
-                        #:select? (or (git-predicate "..")
+                        #:select? (or (git-predicate (dirname (current-source-directory)))
                                       (const #t))))
     (inputs
      (modify-inputs (package-inputs guix:tissue)
-- 
cgit v1.2.3