build-system: texlive: Only build packages in the current directory.

* guix/build/texlive-build-system.scm (build): Use scandir instead of
find-files.
This commit is contained in:
Ricardo Wurmus 2017-07-02 15:19:47 +02:00
parent fed7200862
commit 1678be097b
No known key found for this signature in database
GPG key ID: 197A5888235FACAC

View file

@ -20,6 +20,7 @@ (define-module (guix build texlive-build-system)
#:use-module ((guix build gnu-build-system) #:prefix gnu:)
#:use-module (guix build utils)
#:use-module (ice-9 match)
#:use-module (ice-9 ftw)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-26)
#:export (%standard-phases
@ -62,7 +63,7 @@ (define* (build #:key inputs build-targets tex-format #:allow-other-keys)
(mkdir "build")
(every (cut compile-with-latex tex-format <>)
(if build-targets build-targets
(find-files "." "\\.ins$"))))
(scandir "." (cut string-suffix? ".ins" <>)))))
(define* (install #:key outputs tex-directory #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))