mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 21:38:07 -05:00
gnu: e2fsck/static: Only copy e2fsck.
* gnu/packages/linux.scm (e2fsck/static)[arguments]: Only copy e2fsck. [synopsis, description]: Adjust accordingly.
This commit is contained in:
parent
f03168327f
commit
313880c73a
1 changed files with 10 additions and 13 deletions
|
@ -705,6 +705,8 @@ (define-public e2fsck/static
|
|||
(version (package-version e2fsprogs))
|
||||
(build-system trivial-build-system)
|
||||
(source #f)
|
||||
(inputs
|
||||
`(("e2fsprogs" ,e2fsprogs/static)))
|
||||
(arguments
|
||||
`(#:modules ((guix build utils))
|
||||
#:builder
|
||||
|
@ -713,23 +715,18 @@ (define-public e2fsck/static
|
|||
(ice-9 ftw)
|
||||
(srfi srfi-26))
|
||||
|
||||
(let ((source (string-append (assoc-ref %build-inputs "e2fsprogs")
|
||||
"/sbin"))
|
||||
(let ((e2fsck (string-append (assoc-ref %build-inputs "e2fsprogs")
|
||||
"/sbin/e2fsck"))
|
||||
(bin (string-append (assoc-ref %outputs "out") "/sbin")))
|
||||
(mkdir-p bin)
|
||||
(with-directory-excursion bin
|
||||
(for-each (lambda (file)
|
||||
(copy-file (string-append source "/" file)
|
||||
file)
|
||||
(remove-store-references file)
|
||||
(chmod file #o555))
|
||||
(scandir source (cut string-prefix? "fsck." <>))))))))
|
||||
(inputs `(("e2fsprogs" ,e2fsprogs/static)))
|
||||
(synopsis "Statically-linked fsck.* commands from e2fsprogs")
|
||||
(description
|
||||
"This package provides statically-linked command of fsck.ext[234] taken
|
||||
from the e2fsprogs package. It is meant to be used in initrds.")
|
||||
(copy-file e2fsck "e2fsck")
|
||||
(remove-store-references "e2fsck")
|
||||
(chmod "e2fsck" #o555))))))
|
||||
(home-page (package-home-page e2fsprogs))
|
||||
(synopsis "Statically-linked e2fsck command from e2fsprogs")
|
||||
(description "This package provides statically-linked e2fsck command taken
|
||||
from the e2fsprogs package. It is meant to be used in initrds.")
|
||||
(license (package-license e2fsprogs))))
|
||||
|
||||
(define-public extundelete
|
||||
|
|
Loading…
Reference in a new issue