[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[PATCH] git-download: Fix 'git-predicate' to use absolute paths.
From: |
Christopher Baines |
Subject: |
[PATCH] git-download: Fix 'git-predicate' to use absolute paths. |
Date: |
Thu, 25 May 2017 16:58:23 +0100 |
git ls-files will return paths relative to the repository directory. This
commit prepends the repository directory to those paths when calling lstat,
such that 'git-predicate' works if the current working directory is not the
repository directory.
* guix/git-download.scm (git-predicate): Prepend repository directory to the
file path when calling lstat.
---
guix/git-download.scm | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/guix/git-download.scm b/guix/git-download.scm
index 9f6d20ee3..316835502 100644
--- a/guix/git-download.scm
+++ b/guix/git-download.scm
@@ -146,7 +146,8 @@ absolute file name and STAT is the result of 'lstat'."
(line
(loop (cons line lines))))))
(inodes (map (lambda (file)
- (let ((stat (lstat file)))
+ (let ((stat (lstat
+ (string-append directory "/" file))))
(cons (stat:dev stat) (stat:ino stat))))
files))
(status (close-pipe pipe)))
--
2.13.0
- [PATCH] git-download: Fix 'git-predicate' to use absolute paths.,
Christopher Baines <=