nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

* gnu/packages/linux.scm (zerofree)[arguments]: Use ‘modify-phases’.
This commit is contained in:
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"))))
(build-system gnu-build-system)
(arguments
'(#:phases (alist-replace
'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin")))
(mkdir-p bin)
(copy-file "zerofree"
(string-append bin "/zerofree"))
(chmod (string-append bin "/zerofree")
#o555)
#t))
(alist-delete 'configure %standard-phases))
#:tests? #f)) ;no tests
'(#:phases
(modify-phases %standard-phases
(delete 'configure) ; no configure script
(replace 'install
;; The Makefile lacks an ‘install’ target.
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin")))
(mkdir-p bin)
(copy-file "zerofree"
(string-append bin "/zerofree"))
(chmod (string-append bin "/zerofree")
#o555)
#t))))
#:tests? #f)) ; no tests
(inputs `(("libext2fs" ,e2fsprogs)))
(synopsis "Zero non-allocated regions in ext2/ext3/ext4 file systems")
(description