me
/
guix
Archived
1
0
Fork 0
Code

gnu: btrfs-progs: Run 'guix style' over the package. 

* gnu/packages/linux.scm (btrfs-progs): Restyle.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
master
Denis 'GNUtoo' Carikli 2023-05-10 18:39:22 +02:00 committed by Ludovic Courtès
parent c95e817bb9
commit 255b5b81db
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 32 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
gnu/packages/linux.scm
View File

@ -66,7 +66,7 @@
;;; Copyright © 2022 Artyom V. Poptsov <poptsov.artyom@gmail.com> ;;; Copyright © 2022 Artyom V. Poptsov <poptsov.artyom@gmail.com>
;;; Copyright © 2022 Rene Saavedra <nanuui@protonmail.com> ;;; Copyright © 2022 Rene Saavedra <nanuui@protonmail.com>
;;; Copyright © 2022 muradm <mail@muradm.net> ;;; Copyright © 2022 muradm <mail@muradm.net>
;;; Copyright © 2022 Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org> ;;; Copyright © 2022, 2023 Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org>
;;; Copyright © 2022 Hunter Jozwiak <hunter.t.joz@gmail.com> ;;; Copyright © 2022 Hunter Jozwiak <hunter.t.joz@gmail.com>
;;; Copyright © 2022 Hilton Chain <hako@ultrarare.space> ;;; Copyright © 2022 Hilton Chain <hako@ultrarare.space>
;;; Copyright © 2022 Stefan <stefan-guix@vodafonemail.de> ;;; Copyright © 2022 Stefan <stefan-guix@vodafonemail.de>
@ -5917,14 +5917,13 @@ and copy/paste text in the console and in xterm.")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "mirror://kernel.org/linux/kernel/" (uri (string-append "mirror://kernel.org/linux/kernel/"
"people/kdave/btrfs-progs/" "people/kdave/btrfs-progs/" "btrfs-progs-v"
"btrfs-progs-v" version ".tar.xz")) version ".tar.xz"))
(sha256 (sha256
(base32 (base32
"0ylxszcsm0jqsa5glccd1pv3rcfk1f5wjcf3ayxc0r9xgzcngrkb")))) "0ylxszcsm0jqsa5glccd1pv3rcfk1f5wjcf3ayxc0r9xgzcngrkb"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(outputs '("out" (outputs '("out" "static")) ;static versions of the binaries in "out"
"static")) ; static versions of the binaries in "out"
(arguments (arguments
'(#:configure-flags '(#:configure-flags
;; The ‘Python support’ was never actually installed by previous ;; The ‘Python support’ was never actually installed by previous
@ -5937,29 +5936,33 @@ and copy/paste text in the console and in xterm.")
(("\\$\\(DESTDIR\\)\\$\\(udevruledir\\)") (("\\$\\(DESTDIR\\)\\$\\(udevruledir\\)")
(string-append (assoc-ref outputs "out") (string-append (assoc-ref outputs "out")
"/lib/udev/rules.d"))))) "/lib/udev/rules.d")))))
(add-after 'build 'build-static (add-after 'build 'build-static
(lambda _ (invoke "make" "static"))) (lambda _
(add-after 'install 'install-bash-completion (invoke "make" "static")))
(lambda* (#:key outputs #:allow-other-keys) (add-after 'install 'install-bash-completion
(let* ((out (assoc-ref outputs "out")) (lambda* (#:key outputs #:allow-other-keys)
(bashcomp (string-append out "/etc/bash_completion.d"))) (let* ((out (assoc-ref outputs "out"))
(mkdir-p bashcomp) (bashcomp (string-append out
(copy-file "btrfs-completion" "/etc/bash_completion.d")))
(string-append bashcomp "/btrfs"))))) (mkdir-p bashcomp)
(add-after 'install 'install-static (copy-file "btrfs-completion"
(let ((staticbin (string-append (assoc-ref %outputs "static") (string-append bashcomp "/btrfs")))))
"/bin"))) (add-after 'install 'install-static
(lambda _ (let ((staticbin (string-append (assoc-ref %outputs
(invoke "make" "static")
(string-append "bindir=" staticbin) "/bin")))
"install-static"))))) (lambda _
#:tests? #f ; XXX: require the 'btrfs' kernel module. (invoke "make"
(string-append "bindir=" staticbin)
"install-static")))))
#:tests? #f ;XXX: require the 'btrfs' kernel module.
#:test-target "test" #:test-target "test"
#:parallel-tests? #f)) ; tests fail when run in parallel #:parallel-tests? #f)) ;tests fail when run in parallel
(inputs `(("e2fsprogs" ,e2fsprogs) ; for btrfs-convert (inputs `(("e2fsprogs" ,e2fsprogs)
;for btrfs-convert
("eudev" ,eudev) ("eudev" ,eudev)
("lzo" ,lzo) ("lzo" ,lzo)
("util-linux:lib" ,util-linux "lib") ;for libblkid and libuuid ("util-linux:lib" ,util-linux "lib") ;for libblkid and libuuid
("util-linux:static" ,util-linux "static") ;ditto ("util-linux:static" ,util-linux "static") ;ditto
("zlib" ,zlib) ("zlib" ,zlib)
("zlib:static" ,zlib "static") ("zlib:static" ,zlib "static")
@ -5971,14 +5974,15 @@ and copy/paste text in the console and in xterm.")
;; For tests. ;; For tests.
("acl" ,acl) ("acl" ,acl)
("dmsetup" ,lvm2) ("dmsetup" ,lvm2)
("grep" ,grep) ; need Perl regexp support ("grep" ,grep) ;need Perl regexp support
("libaio" ,libaio) ("libaio" ,libaio)
("liburing" ,liburing) ("liburing" ,liburing)
("util-linux" ,util-linux) ; for fallocate ("util-linux" ,util-linux) ;for fallocate
("which" ,which))) ("which" ,which)))
(home-page "https://btrfs.wiki.kernel.org/index.php/Main_Page") (home-page "https://btrfs.wiki.kernel.org/index.php/Main_Page")
(synopsis "Create and manage btrfs copy-on-write file systems") (synopsis "Create and manage btrfs copy-on-write file systems")
(description "Btrfs is a @acronym{CoW, copy-on-write} file system for Linux (description
"Btrfs is a @acronym{CoW, copy-on-write} file system for Linux
aimed at implementing advanced features while focusing on fault tolerance, aimed at implementing advanced features while focusing on fault tolerance,
repair and easy administration.") repair and easy administration.")
;; GPL2+: crc32.c, radix-tree.c, raid6.c, rbtree.c. ;; GPL2+: crc32.c, radix-tree.c, raid6.c, rbtree.c.