[GNUnet-SVN] [gnunet] branch master updated: contrib: guix-env.scm cheap hack, needs to be fixed.

[gnunet]

This is an automated email from the git hooks/post-receive script.

ng0 pushed a commit to branch master
in repository gnunet.

The following commit(s) were added to refs/heads/master by this push:
     new e834a115d contrib: guix-env.scm cheap hack, needs to be fixed.
e834a115d is described below

commit e834a115d6a4f54722b494fcaaa14d1e5f6f36b6
Author: ng0 <address@hidden>
AuthorDate: Mon Aug 21 11:11:15 2017 +0000

    contrib: guix-env.scm cheap hack, needs to be fixed.
---
 contrib/packages/guix/guix-env.scm | 21 ++++++++++++++++-----
 1 file 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)

-- 
To stop receiving notification emails like this one, please contact
address@hidden