Commit 81388e65 authored by Ludovic Courtès's avatar Ludovic Courtès

build: Pass the right directory to 'git-predicate'.

* guix.scm (this-directory): New variable.
(source): Use it, in particular as the argument to 'git-predicate'.
parent 1b0cf535
...@@ -18,10 +18,13 @@ ...@@ -18,10 +18,13 @@
(define guile-syntax-highlight (define guile-syntax-highlight
(specification->package "guile-syntax-highlight")) (specification->package "guile-syntax-highlight"))
(define this-directory
(dirname (current-filename)))
(define source (define source
(local-file "." "guix-hpc-web" (local-file this-directory "guix-hpc-web"
#:recursive? #t #:recursive? #t
#:select? (git-predicate "."))) #:select? (git-predicate this-directory)))
(define build (define build
(with-imported-modules (source-module-closure (with-imported-modules (source-module-closure
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment