~ruther/guix-local: git: Restore 'false-if-git-not-found' in 'reference-available?'.

94f3831e5bb1e04eeb3a0e7d31a0675208ce6f4c — Simon Tournier 2 years ago be5bec4

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.

patch browse .tar.gz .zip

1 files changed, 2 insertions(+), 1 deletions(-)

M guix/git.scm

M guix/git.scm => guix/git.scm +2 -1

@@ 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