guix: use git-version-gen to infer the version number from the local directory.

1 files changed, 11 insertions, 1 deletions

diff --git a/guix.scm b/guix.scm
index 3c2a8d3..f95785d 100644
--- a/guix.scm
+++ b/guix.scm
@@ -44,10 +44,20 @@
                (return (string-append (derivation->output-path git)
                                       "/bin/git"))))))
 
+(define git-version-gen
+  (run-with-store
+   (open-connection)
+   (mlet %store-monad ((gnulib (package->derivation gnulib)))
+         (mlet %store-monad ((built
+                              (built-derivations
+                               (list gnulib))))
+               (return (string-append (derivation->output-path gnulib)
+                                      "/src/gnulib/build-aux/git-version-gen"))))))
+
 (define disfluid:package-version
   (with-directory-excursion
       (dirname (current-filename))
-    (let ((port (open-pipe* OPEN_READ git-exec "describe" "--tags")))
+    (let ((port (open-pipe* OPEN_READ git-version-gen ".tarball-version")))
       (let ((version (read-line port)))
         (when (eof-object? version)
           (set! version "0.0.0"))