diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2021-09-10 15:53:32 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2021-09-18 23:08:32 +0200 |
| commit | dce2cf311bc12dee4560329f53ccb53470d5793e (patch) | |
| tree | be8771313735697cab632ae3057216772a707825 /guix/git.scm | |
| parent | 05f44c2d858a1e7b13c90362c35fa86bdc4d5a24 (diff) | |
| download | guix-dce2cf311bc12dee4560329f53ccb53470d5793e.tar guix-dce2cf311bc12dee4560329f53ccb53470d5793e.tar.gz | |
git: 'reference-available?' recognizes 'tag-or-commit'.
* guix/git.scm (reference-available?): Handle 'tag-or-commit' with a
40-digit hex string.
Diffstat (limited to 'guix/git.scm')
| -rw-r--r-- | guix/git.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/guix/git.scm b/guix/git.scm index 719af950ad..dc2ca1be84 100644 --- a/guix/git.scm +++ b/guix/git.scm @@ -36,7 +36,7 @@ #:use-module (guix sets) #:use-module ((guix diagnostics) #:select (leave warning)) #:use-module (guix progress) - #:autoload (guix swh) (swh-download) + #:autoload (guix swh) (swh-download commit-id?) #:use-module (rnrs bytevectors) #:use-module (ice-9 format) #:use-module (ice-9 match) @@ -342,7 +342,8 @@ dynamic extent of EXP." "Return true if REF, a reference such as '(commit . \"cabba9e\"), is definitely available in REPOSITORY, false otherwise." (match ref - (('commit . commit) + ((or ('commit . commit) + ('tag-or-commit . (? commit-id? commit))) (let ((len (string-length commit)) (oid (string->oid commit))) (false-if-git-not-found |