~ruther/guix-local: guix: git: Avoid touching the network unless needed in 'reference-available?'.

a789dd58656d5f7f1b8edf790d77753fc71670af — Simon Tournier 3 years ago 790e5bf

guix: git: Avoid touching the network unless needed in 'reference-available?'.

* guix/git/scm (reference-available?): Use the resolve-reference procedure
to determine whether the reference exists in the local Git checkout.

Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>

patch browse .tar.gz .zip

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

M guix/git.scm

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

@@ 360,17 360,8 @@ dynamic extent of EXP."
 (define (reference-available? repository ref)
   "Return true if REF, a reference such as '(commit . \"cabba9e\"), is
 definitely available in REPOSITORY, false otherwise."
-  (match ref
-    ((or ('commit . commit)
-         ('tag-or-commit . (? commit-id? commit)))
-     (let ((len (string-length commit))
-           (oid (string->oid commit)))
-       (false-if-git-not-found
-        (->bool (if (< len 40)
-                    (object-lookup-prefix repository oid len OBJ-COMMIT)
-                    (commit-lookup repository oid))))))
-    (_
-     #f)))
+  (false-if-git-not-found
+   (->bool (resolve-reference repository ref))))
 
 (define (clone-from-swh url tag-or-commit output)
   "Attempt to clone TAG-OR-COMMIT (a string), which originates from URL, using