From ee17a9e06e636400e3354796a42ac445dbcc8f96 Mon Sep 17 00:00:00 2001
From: David Craven <david@craven.ch>
Date: Mon, 2 Jan 2017 17:49:07 +0100
Subject: git-download: Add some helpers.

* guix/git-download.scm (git-version, git-file-name): New variables.
---
 guix/git-download.scm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

(limited to 'guix/git-download.scm')

diff --git a/guix/git-download.scm b/guix/git-download.scm
index 81d1d4fbf6..fca44f552a 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,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
-- 
cgit v1.2.3