TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

gnu: Add xfs_repair-static.

Browse source 
* gnu/packages/linux.scm (xfs_repair/static): New public variable.
This commit is contained in:
Tobias Geerinckx-Rice 2021-09-22 22:53:24 +02:00
parent 2b260efbfc
commit 2a9db30eec
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 26 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
gnu/packages/linux.scm
View file

@ -7756,6 +7756,32 @@ (define-public xfsprogs/static
(package-inputs xfsprogs))))
(synopsis "Statically linked XFS file system tools")))
(define-public xfs_repair/static
(package
(name "xfs_repair-static")
(version (package-version xfsprogs/static))
(source #f)
(build-system trivial-build-system)
(arguments
`(#:modules ((guix build utils))
#:builder
(begin
(use-modules (guix build utils))
(let* ((xfsprogs (assoc-ref %build-inputs "xfsprogs"))
(out (assoc-ref %outputs "out"))
(sbin (string-append out "/sbin")))
(install-file (string-append xfsprogs "/sbin/xfs_repair") sbin)
(with-directory-excursion sbin
(remove-store-references "xfs_repair"))))))
(inputs
`(("xfsprogs" ,xfsprogs/static)))
(home-page (package-home-page xfsprogs/static))
(synopsis "Statically linked @command{xfs_repair} from xfsprogs")
(description
"This package provides a statically linked @command{xfs_repair} taken
from the xfsprogs package. It is meant to be used in initrds.")
(license (package-license xfsprogs/static))))
(define-public genext2fs
(package
(name "genext2fs")