nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

git-download: Fix 'git-predicate' to use absolute paths. 

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.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Christopher Baines 2017-05-25 16:58:23 +01:00 committed by Ludovic Courtès
parent 294739b5b8
commit 151cb9738a
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
guix/git-download.scm
View File

@ -146,7 +146,8 @@ absolute file name and STAT is the result of 'lstat'."
(line (line
(loop (cons line lines)))))) (loop (cons line lines))))))
(inodes (map (lambda (file) (inodes (map (lambda (file)
(let ((stat (lstat file))) (let ((stat (lstat
(string-append directory "/" file))))
(cons (stat:dev stat) (stat:ino stat)))) (cons (stat:dev stat) (stat:ino stat))))
files)) files))
(status (close-pipe pipe))) (status (close-pipe pipe)))