[GNUnet-SVN] [gnunet] branch master updated: guix: fix git filter and source-dir

[gnunet]

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

dold pushed a commit to branch master
in repository gnunet.

The following commit(s) were added to refs/heads/master by this push:
     new baa1a0165 guix: fix git filter and source-dir
baa1a0165 is described below

commit baa1a0165ca3662a9e247e562205208f12df6c8b
Author: Florian Dold <address@hidden>
AuthorDate: Fri Aug 17 01:34:12 2018 +0200

    guix: fix git filter and source-dir
---
 contrib/guix/gnu/packages/gnunet.scm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/contrib/guix/gnu/packages/gnunet.scm 
b/contrib/guix/gnu/packages/gnunet.scm
index 3a1943757..a91c69a11 100644
--- a/contrib/guix/gnu/packages/gnunet.scm
+++ b/contrib/guix/gnu/packages/gnunet.scm
@@ -245,8 +245,14 @@ supports HTTP, HTTPS and GnuTLS.")
                                   "See COPYING in the distribution."))
    (home-page "https://gnunet.org/gnurl";)))
 
-(define %source-dir (dirname (current-filename)))
 
+(define (repeat f n)
+  (if (= n 1)
+      f
+      (lambda (x) (f ((repeat f (- n 1)) x)))))
+
+(define %source-dir ((repeat dirname 5) (current-filename)))
+  
 (define (git-output . args)
   "Execute 'git ARGS ...' command and return its output without trailing
 newspace."
@@ -260,7 +266,7 @@ newspace."
   (git-output "describe" "--tags"))
 
 (define (git-sources)
-  (local-file (dirname (dirname (dirname (dirname %source-dir))))
+  (local-file %source-dir
              #:recursive? #t
              #:select? (git-predicate %source-dir)))
 

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