amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

build/guile-build-system: Remove trailing #t in phases.

Browse source 
* guix/build/guile-build-system.scm (set-locale-path): Delete trailing #t.
(invoke-each, build, install-documentation): Likewise.

Change-Id: I7a0d035b9bef2160856e141642dee70974c571db
This commit is contained in:
Maxim Cournoyer 2024-12-16 12:12:36 +09:00
parent bcb5724e59
commit b7e02bc4cb
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 4 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

12
guix/build/guile-build-system.scm
View file

@ -76,8 +76,7 @@ determined."
(match (assoc-ref (or native-inputs inputs) "locales")
(#f #t)
(locales
(setenv "GUIX_LOCPATH" (string-append locales "/lib/locale"))
#t)))
(setenv "GUIX_LOCPATH" (string-append locales "/lib/locale")))))
(define* (invoke-each commands
#:key (max-processes (current-processor-count))
@ -112,8 +111,7 @@ Raise an error if one of the processes exit with non-zero."
(lambda ()
(primitive-exit 127))))
(pid
(hashv-set! processes pid command)
#t)))
(hashv-set! processes pid command))))
(let loop ((commands commands)
(running 0)
@ -208,8 +206,7 @@ installed; this is useful for files that are meant to be included."
flags)))
source-files)
#:max-processes (parallel-job-count)
#:report-progress report-build-progress))
#t))
#:report-progress report-build-progress))))
(define* (install-documentation #:key outputs
(documentation-file-regexp
@ -220,8 +217,7 @@ installed; this is useful for files that are meant to be included."
(doc (string-append out "/share/doc/"
(strip-store-file-name out))))
(for-each (cut install-file <> doc)
(find-files "." documentation-file-regexp))
#t))
(find-files "." documentation-file-regexp))))
(define %standard-phases
(modify-phases gnu:%standard-phases