diff options
-rw-r--r-- | guix.scm | 12 |
1 files changed, 11 insertions, 1 deletions
@@ -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")) |