diff options
author | ng0 <ng0@infotropique.org> | 2017-08-21 11:11:15 +0000 |
---|---|---|
committer | ng0 <ng0@infotropique.org> | 2017-08-21 11:12:21 +0000 |
commit | e834a115d6a4f54722b494fcaaa14d1e5f6f36b6 (patch) | |
tree | fe6fdfe27908e2f449b7db51b6f556008f8d6d6a | |
parent | ba5b3daef142ce68b84ede86dc39cacca4440f7a (diff) |
contrib: guix-env.scm cheap hack, needs to be fixed.
-rw-r--r-- | contrib/packages/guix/guix-env.scm | 21 |
1 files changed, 16 insertions, 5 deletions
diff --git a/contrib/packages/guix/guix-env.scm b/contrib/packages/guix/guix-env.scm index 9631abd7c..cf7ccb85a 100644 --- a/contrib/packages/guix/guix-env.scm +++ b/contrib/packages/guix/guix-env.scm @@ -48,6 +48,7 @@ (guix gexp) ((guix build utils) #:select (with-directory-excursion)) (guix git-download) + (guix utils) ; current-source-directory (gnu packages) (gnu packages aidc) (gnu packages autotools) @@ -86,23 +87,33 @@ (gnu packages xiph) ((guix licenses) #:prefix license:)) -(define %source-dir (canonicalize-path "../../../")) +(define %source-dir (string-append (current-source-directory) + "/../../../")) (define gnunet-git - (let* ((revision "1")) - (package + (let* ((revision "2") + (select? (delay (or (git-predicate + (string-append (current-source-directory) + "/../../../")) + source-file?)))) + (package (name "gnunet-git") (version (string-append "0.10.1-" revision "." "dev")) (source - (local-file %source-dir + (local-file ;;"../../.." + ;;%source-dir + ;;(string-append (getcwd) "/../../../") + (string-append (getcwd)) ;drrty hack and this assumes one static position FIXME! #:recursive? #t)) + ;;#:select? (git-predicate %source-dir))) + ;;#:select? (force select?))) (build-system gnu-build-system) (inputs `(("glpk" ,glpk) ("gnurl" ,gnurl) ("gstreamer" ,gstreamer) ("gst-plugins-base" ,gst-plugins-base) - ("gnutls" ,gnutls) + ("gnutls" ,gnutls) ;Change to gnutls/dane once it is merged. ("libextractor" ,libextractor) ("libgcrypt" ,libgcrypt) ("libidn" ,libidn) |