aboutsummaryrefslogtreecommitdiff
path: root/guix/git.scm
diff options
context:
space:
mode:
authorSimon Tournier <zimon.toutoune@gmail.com>2023-09-25 12:00:18 +0200
committerSimon Tournier <zimon.toutoune@gmail.com>2023-09-25 12:00:18 +0200
commit94f3831e5bb1e04eeb3a0e7d31a0675208ce6f4c (patch)
tree375a0774edeb6bc5d51e99b8728582aa051b482a /guix/git.scm
parentbe5bec47f7942a5e4d2a30eadd9a6fa4c715e88b (diff)
downloadguix-94f3831e5bb1e04eeb3a0e7d31a0675208ce6f4c.tar
guix-94f3831e5bb1e04eeb3a0e7d31a0675208ce6f4c.tar.gz
git: Restore 'false-if-git-not-found' in 'reference-available?'.
* guix/git/scm (reference-available?): Add 'false-if-git-not-found' for the case 'commit.
Diffstat (limited to 'guix/git.scm')
-rw-r--r--guix/git.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/guix/git.scm b/guix/git.scm
index 1b3355109e..b7182305cf 100644
--- a/guix/git.scm
+++ b/guix/git.scm
@@ -364,7 +364,8 @@ definitely available in REPOSITORY, false otherwise."
(match ref
(('commit . (? commit-id? commit))
(let ((oid (string->oid commit)))
- (->bool (commit-lookup repository oid))))
+ (false-if-git-not-found
+ (->bool (commit-lookup repository oid)))))
((or ('tag . str)
('tag-or-commit . str))
(false-if-git-not-found