From 1678be097bb3f6403bbc4ab8414f3e7f02c70e44 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Sun, 2 Jul 2017 15:19:47 +0200 Subject: build-system: texlive: Only build packages in the current directory. * guix/build/texlive-build-system.scm (build): Use scandir instead of find-files. --- guix/build/texlive-build-system.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'guix') diff --git a/guix/build/texlive-build-system.scm b/guix/build/texlive-build-system.scm index c1fd9fd9af..7b10198fd2 100644 --- a/guix/build/texlive-build-system.scm +++ b/guix/build/texlive-build-system.scm @@ -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")) -- cgit v1.2.3