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

gnu: debootstrap: Remove trailing booleans.

Browse source 
* gnu/packages/debian.scm (debootstrap)[arguments]: Remove trailing #t
from phases.
This commit is contained in:
Efraim Flashner 2022-05-23 18:08:51 +03:00
parent 658525f6ec
commit 83fd96ed38
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351
1 changed files with 3 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

9
gnu/packages/debian.scm
View file

@ -233,22 +233,19 @@ contains the archive keys used for that.")
(("PATH=/sbin:/usr/sbin:/bin:/usr/bin") (("PATH=/sbin:/usr/sbin:/bin:/usr/bin")
"PATH=$PATH:/sbin:/usr/sbin:/bin:/usr/bin")) "PATH=$PATH:/sbin:/usr/sbin:/bin:/usr/bin"))
(substitute* (find-files "scripts" ".") (substitute* (find-files "scripts" ".")
(("/usr/share/zoneinfo") (string-append tzdata "/share/zoneinfo"))) (("/usr/share/zoneinfo") (string-append tzdata "/share/zoneinfo"))))))
#t)))
(add-after 'install 'install-man-file (add-after 'install 'install-man-file
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))
(install-file "debootstrap.8" (install-file "debootstrap.8"
(string-append out "/share/man/man8")) (string-append out "/share/man/man8")))))
#t)))
(add-after 'install 'wrap-executable (add-after 'install 'wrap-executable
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((debootstrap (string-append (assoc-ref outputs "out") (let ((debootstrap (string-append (assoc-ref outputs "out")
"/sbin/debootstrap")) "/sbin/debootstrap"))
(path (getenv "PATH"))) (path (getenv "PATH")))
(wrap-program debootstrap (wrap-program debootstrap
`("PATH" ":" prefix (,path))) `("PATH" ":" prefix (,path)))))))
#t))))
#:make-flags (list (string-append "DESTDIR=" (assoc-ref %outputs "out"))) #:make-flags (list (string-append "DESTDIR=" (assoc-ref %outputs "out")))
#:tests? #f)) ; no tests #:tests? #f)) ; no tests
(inputs (inputs