git-download: 'git-predicate' now ignores deleted files.
When git-predicate is used on an active worktree, some files in the index might not exist on the filesystem. Instead of failing with "No such file or directory", these should be ignored. * guix/git-download.scm (git-predicate): Wrap 'lstat' call in 'false-if-exception'. Return RESULT when STAT is #f. Co-authored-by: Andrew Whatson <whatson@gmail.com>
This commit is contained in:
parent
681af1fb78
commit
50d5bb1f3e
|
@ -231,11 +231,13 @@ (define (git-predicate directory)
|
|||
(lambda ()
|
||||
(let* ((files (git-file-list directory))
|
||||
(inodes (fold (lambda (file result)
|
||||
(let ((stat
|
||||
(lstat (string-append directory "/"
|
||||
file))))
|
||||
(vhash-consv (stat:ino stat) (stat:dev stat)
|
||||
result)))
|
||||
(let* ((file (string-append directory "/" file))
|
||||
(stat (false-if-exception (lstat file))))
|
||||
;; Ignore FILE if it has been deleted.
|
||||
(if stat
|
||||
(vhash-consv (stat:ino stat) (stat:dev stat)
|
||||
result)
|
||||
result)))
|
||||
vlist-null
|
||||
files)))
|
||||
(lambda (file stat)
|
||||
|
|
Loading…
Reference in a new issue