From 993181ad65f1bfc643913fe70f483380e660d3c0 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Sat, 3 Jun 2017 21:18:53 +0200
Subject: [PATCH] guix: mes.git: Add git hash to version.

* guix.scm (mes.git): Add git hash to version.
---
 guix.scm | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/guix.scm b/guix.scm
index 2c9a37ca..f18eea9c 100644
--- a/guix.scm
+++ b/guix.scm
@@ -129,11 +129,14 @@ prototype in C and a Nyacc-based C compiler in [Guile] Scheme.")
       (license gpl3+))))
 
 (define-public mes.git
-  (package
-    (inherit mes)
-    (name "mes")
-    (version "git")
-    (source (local-file %source-dir #:recursive? #t #:select? git-file?))))
+ (let ((version "0.6")
+        (revision "0")
+        (commit (read-string (open-pipe "git show HEAD | head -1 | cut -d ' ' -f 2" OPEN_READ))))
+    (package
+      (inherit mes)
+      (name "mes.git")
+      (version (string-append version "-" revision "." (string-take commit 7)))
+      (source (local-file %source-dir #:recursive? #t #:select? git-file?)))))
 
 ;; Return it here so `guix build/environment/package' can consume it directly.
 mes.git