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 @@
(define guile-syntax-highlight
(specification->package "guile-syntax-highlight"))
(define this-directory
(dirname (current-filename)))
(define source
(local-file "." "guix-hpc-web"
(local-file this-directory "guix-hpc-web"
#:recursive? #t
#:select? (git-predicate ".")))
#:select? (git-predicate this-directory)))
(define build
(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