futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

build-system/guile: Fix indentation.

Browse Source 
The inner (let) was on the same level as the outer one, which was confusing.

* guix/build/guile-build-system.scm (build): Fix indentation.

Change-Id: I701b61747c270b185eac9377b066748baa2b3d20
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Tomas Volf 2024-02-23 19:18:13 +01:00 committed by Ludovic Courtès
parent 7fc91c1413
commit c3cd24b29a
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
guix/build/guile-build-system.scm
View File

@ -184,32 +184,32 @@ installed; this is useful for files that are meant to be included."
(#f "") (#f "")
(path (string-append ":" path))))) (path (string-append ":" path)))))
(let ((source-files (let ((source-files
(with-directory-excursion source-directory (with-directory-excursion source-directory
(find-files "." scheme-file-regexp)))) (find-files "." scheme-file-regexp))))
(invoke-each (invoke-each
(filter-map (lambda (file) (filter-map (lambda (file)
(and (or (not not-compiled-file-regexp) (and (or (not not-compiled-file-regexp)
(not (string-match not-compiled-file-regexp (not (string-match not-compiled-file-regexp
file))) file)))
(cons* guild (cons* guild
"guild" "compile" "guild" "compile"
"-L" source-directory "-L" source-directory
"-o" (string-append go-dir "-o" (string-append go-dir
(file-sans-extension file) (file-sans-extension file)
".go") ".go")
(string-append source-directory "/" file) (string-append source-directory "/" file)
flags))) flags)))
source-files) source-files)
#:max-processes (parallel-job-count) #:max-processes (parallel-job-count)
#:report-progress report-build-progress) #:report-progress report-build-progress)
(for-each (for-each
(lambda (file) (lambda (file)
(install-file (string-append source-directory "/" file) (install-file (string-append source-directory "/" file)
(string-append module-dir (string-append module-dir
"/" (dirname file)))) "/" (dirname file))))
source-files)) source-files))
#t)) #t))
(define* (install-documentation #:key outputs (define* (install-documentation #:key outputs