Browse Source

git-download: Add some helpers.

* guix/git-download.scm (git-version, git-file-name): New variables.
wip-gexp-grafts
David Craven 6 years ago
parent
commit
ee17a9e06e
No known key found for this signature in database GPG Key ID: C5E051C79C0BECDB
  1. 12
      guix/git-download.scm

12
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,12 @@ 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)
"Return the version string for packages using git-download."
(string-append version "-" revision "." (string-take commit 7)))
(define (git-file-name name version)
"Return the file-name for packages using git-download."
(string-append name "-" version "-checkout"))
;;; git-download.scm ends here

Loading…
Cancel
Save