me
/
guix
Archived
1
0
Fork 0
Code

gnu: zerofree: Use ‘modify-phases’ syntax. 

* gnu/packages/linux.scm (zerofree)[arguments]: Use ‘modify-phases’.
master
Tobias Geerinckx-Rice 2017-08-03 22:14:54 +02:00
parent 20f8d1dd78
commit 0f08917df3
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 15 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
gnu/packages/linux.scm
View File

@ -833,19 +833,21 @@ ext3 or ext4 partition.")
"1xncw3dn2cp922ly42m96p6fh7jv8ysg6bwqbk5xvw701f3dmkrs")))) "1xncw3dn2cp922ly42m96p6fh7jv8ysg6bwqbk5xvw701f3dmkrs"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:phases (alist-replace '(#:phases
'install (modify-phases %standard-phases
(lambda* (#:key outputs #:allow-other-keys) (delete 'configure) ; no configure script
(let* ((out (assoc-ref outputs "out")) (replace 'install
(bin (string-append out "/bin"))) ;; The Makefile lacks an ‘install’ target.
(mkdir-p bin) (lambda* (#:key outputs #:allow-other-keys)
(copy-file "zerofree" (let* ((out (assoc-ref outputs "out"))
(string-append bin "/zerofree")) (bin (string-append out "/bin")))
(chmod (string-append bin "/zerofree") (mkdir-p bin)
#o555) (copy-file "zerofree"
#t)) (string-append bin "/zerofree"))
(alist-delete 'configure %standard-phases)) (chmod (string-append bin "/zerofree")
#:tests? #f)) ;no tests #o555)
#t))))
#:tests? #f)) ; no tests
(inputs `(("libext2fs" ,e2fsprogs))) (inputs `(("libext2fs" ,e2fsprogs)))
(synopsis "Zero non-allocated regions in ext2/ext3/ext4 file systems") (synopsis "Zero non-allocated regions in ext2/ext3/ext4 file systems")
(description (description