* 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")) + ;;; git-download.scm ends here -- 2.11.0