From 40be739bd70bfec39d90bb49b46cd25b390624db Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludovic.courtes@inria.fr>
Date: Thu, 20 Sep 2018 08:25:04 +0200
Subject: [PATCH] environment: Pass 'git-predicate' the right directory.
* environment.scm: Use (current-source-location) instead of "." as the
basis of the current directory name.
---
environment.scm | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/environment.scm b/environment.scm
index 362e449..d8e0d5c 100644
--- a/environment.scm
+++ b/environment.scm
@@ -38,7 +38,10 @@
(name "guix-kernel")
(version "0.0.1")
(source (local-file "." "guix-kernel"
- #:select? (git-predicate (getcwd))
+ #:select? (git-predicate
+ (dirname (assoc-ref
+ (current-source-location)
+ 'filename)))
#:recursive? #t))
(build-system gnu-build-system)
(arguments
--
GitLab