[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/03: git-download: Call 'libgit2-init!'.
From: |
guix-commits |
Subject: |
01/03: git-download: Call 'libgit2-init!'. |
Date: |
Fri, 16 Apr 2021 17:31:06 -0400 (EDT) |
civodul pushed a commit to branch master
in repository guix.
commit 5b35c9adc899749a0bd96a0e6d2c3bbf88e38963
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Fri Apr 16 18:00:44 2021 +0200
git-download: Call 'libgit2-init!'.
Fixes <https://bugs.gnu.org/47797>.
Reported by Ingo Ruhnke <grumbel@gmail.com>
and Nicolò Balzarotti <anothersms@gmail.com>.
Regression introduced in c1940fde43c7aca37d67589cc5cb248086d17d56.
* guix/git-download.scm (git-predicate): Add call to 'libgit2-init!'.
---
guix/git-download.scm | 2 ++
1 file changed, 2 insertions(+)
diff --git a/guix/git-download.scm b/guix/git-download.scm
index 4251847..199effe 100644
--- a/guix/git-download.scm
+++ b/guix/git-download.scm
@@ -27,6 +27,7 @@
#:use-module (guix packages)
#:use-module (guix modules)
#:autoload (guix build-system gnu) (standard-packages)
+ #:autoload (git bindings) (libgit2-init!)
#:autoload (git repository) (repository-open
repository-close!
repository-discover
@@ -225,6 +226,7 @@ upon Git errors, return #f instead of a predicate.
The returned predicate takes two arguments FILE and STAT where FILE is an
absolute file name and STAT is the result of 'lstat'."
+ (libgit2-init!)
(catch 'git-error
(lambda ()
(let* ((files (git-file-list directory))