TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

git-download: Call 'libgit2-init!'.

Browse source 
Fixes <https://bugs.gnu.org/47797>.
Reported by Ingo Ruhnke <grumbel@gmail.com>
and Nicolò Balzarotti <anothersms@gmail.com>.

Regression introduced in c1940fde43.

* guix/git-download.scm (git-predicate): Add call to 'libgit2-init!'.
This commit is contained in:
Ludovic Courtès 2021-04-16 18:00:44 +02:00
parent c3926120ba
commit 5b35c9adc8
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
guix/git-download.scm
View file

@ -27,6 +27,7 @@ (define-module (guix git-download)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix modules) #:use-module (guix modules)
#:autoload (guix build-system gnu) (standard-packages) #:autoload (guix build-system gnu) (standard-packages)
#:autoload (git bindings) (libgit2-init!)
#:autoload (git repository) (repository-open #:autoload (git repository) (repository-open
repository-close! repository-close!
repository-discover repository-discover
@ -225,6 +226,7 @@ (define (git-predicate directory)
The returned predicate takes two arguments FILE and STAT where FILE is an The returned predicate takes two arguments FILE and STAT where FILE is an
absolute file name and STAT is the result of 'lstat'." absolute file name and STAT is the result of 'lstat'."
(libgit2-init!)
(catch 'git-error (catch 'git-error
(lambda () (lambda ()
(let* ((files (git-file-list directory)) (let* ((files (git-file-list directory))