David Craven <da...@craven.ch> skribis: > * guix/git-download.scm (git-version, git-file-name): New variables. > --- > guix/git-download.scm | 10 +++++++++- > 1 file changed, 9 insertions(+), 1 deletion(-) > > diff --git a/guix/git-download.scm b/guix/git-download.scm > index 81d1d4fbf..c453aaa6d 100644 > --- a/guix/git-download.scm > +++ b/guix/git-download.scm > @@ -30,7 +30,9 @@ > git-reference-commit > git-reference-recursive? > > - git-fetch)) > + git-fetch > + git-version > + git-file-name)) > > ;;; Commentary: > ;;; > @@ -110,4 +112,10 @@ HASH-ALGO (a symbol). Use NAME as the file name, or a > generic name if #f." > #:guile-for-build guile > #:local-build? #t))) > > +(define (git-version version revision commit) > + (string-append version "-" revision "." (string-take commit 7))) > + > +(define (git-file-name name version) > + (string-append name "-" version "-checkout"))
Please add a docstring. OK with this change, thank you! Ludo’.