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