ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-26 14:28:15 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* 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
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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