me
/
guix
Archived
1
0
Fork 0
Code

gnu: bcachefs-tools: Restyle format. 

* gnu/packages/file-systems.scm (bcachefs-tools): Reformat with 'guix style'
and manually break some long lines.

Signed-off-by: Christopher Baines <mail@cbaines.net>
Ahmad Draidi 2023-09-17 10:38:01 +04:00 committed by Christopher Baines
parent 7efa17af88
commit a5477e3a82
No known key found for this signature in database
GPG Key ID: 5E28A33B0B84F577
1 changed files with 84 additions and 79 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
gnu/packages/file-systems.scm
View File

@ -578,38 +578,41 @@ from a mounted file system.")
(package
(name "bcachefs-tools")
(version "1.2")
(source
(origin
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://evilpiepirate.org/git/bcachefs-tools.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0wgqclkkdkqis3aq6wp0kcn1bsynybm3dnpcf7vlcvx85kdmcxg8"))))
(base32
"0wgqclkkdkqis3aq6wp0kcn1bsynybm3dnpcf7vlcvx85kdmcxg8"))))
(build-system gnu-build-system)
(arguments
(list #:make-flags
#~(list (string-append "VERSION=" #$version) ; ‘v…-nogit’ otherwise
(string-append "PREFIX=" #$output)
(list #:make-flags #~(list (string-append "VERSION="
#$version) ;‘v…-nogit’ otherwise
(string-append "PREFIX="
#$output)
"INITRAMFS_DIR=$(PREFIX)/share/initramfs-tools"
(string-append "CC=" #$(cc-for-target))
(string-append "PKG_CONFIG=" #$(pkg-config-for-target))
(string-append "CC="
#$(cc-for-target))
(string-append "PKG_CONFIG="
#$(pkg-config-for-target))
;; ‘This will be less of an option in the future, as more
;; code gets rewritten in Rust.’
"NO_RUST=better")
#:phases
#~(modify-phases %standard-phases
(delete 'configure) ; no configure script
#:phases #~(modify-phases %standard-phases
(delete 'configure) ;no configure script
(replace 'check
;; The test suite is moribund upstream (‘never been useful’),
;; but let's keep running it as a sanity check until then.
;; The test suite is moribund upstream (‘never been
;; useful’), but let's keep running it as a sanity
;; check until then.
(lambda* (#:key tests? make-flags #:allow-other-keys)
(when tests?
;; We must manually build the test_helper first.
(apply invoke "make" "tests" make-flags)
(invoke (string-append
#$(this-package-native-input "python-pytest")
(invoke (string-append #$(this-package-native-input
"python-pytest")
"/bin/pytest") "-k"
;; These fail (‘invalid argument’) on kernels
;; with a previous bcachefs version.
@ -624,22 +627,24 @@ from a mounted file system.")
;; simply patch in the latter file name directly, and do.
(lambda _
(let ((sbin/ (string-append #$output "/sbin/")))
(substitute* (find-files sbin/ (lambda (file stat)
(substitute* (find-files sbin/
(lambda (file stat)
(not (elf-file? file))))
(("SDIR=.*") "")
(("\\$\\{SDIR.*}/") sbin/))))))))
(native-inputs
(cons* pkg-config
(("SDIR=.*")
"")
(("\\$\\{SDIR.*}/")
sbin/))))))))
(native-inputs (cons* pkg-config
;; For generating documentation with rst2man.
python
python-docutils
;; For tests.
python-pytest
(if (member (%current-system) (package-supported-systems valgrind))
(if (member (%current-system)
(package-supported-systems valgrind))
(list valgrind)
'())))
(inputs
(list eudev
(inputs (list eudev
keyutils
libaio
libscrypt