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

gnu: cryptsetup-static: Don't build veritysetup.

Browse source 
* gnu/packages/cryptsetup.scm (cryptsetup-static)[arguments]: Pass
‘--disable-veritysetup’ #:configure-flag.  Adjust ‘remove-cruft’ phase.
This commit is contained in:
Tobias Geerinckx-Rice 2019-10-04 12:30:47 +02:00
parent d5e445e1d5
commit b5c84b8a37
No known key found for this signature in database
GPG key ID: D889B0F018C5493C
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
gnu/packages/cryptsetup.scm
View file

@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2013 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2016 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2016 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -81,6 +82,8 @@ (define-public cryptsetup-static
'(#:configure-flags '("--disable-shared" '(#:configure-flags '("--disable-shared"
"--enable-static-cryptsetup" "--enable-static-cryptsetup"
"--disable-veritysetup"
;; 'libdevmapper.a' pulls in libpthread, libudev and libm. ;; 'libdevmapper.a' pulls in libpthread, libudev and libm.
"LIBS=-ludev -pthread -lm") "LIBS=-ludev -pthread -lm")
@ -94,8 +97,7 @@ (define-public cryptsetup-static
#:phases (modify-phases %standard-phases #:phases (modify-phases %standard-phases
(add-after 'install 'remove-cruft (add-after 'install 'remove-cruft
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
;; Remove everything except the 'cryptsetup' command and ;; Remove everything except the 'cryptsetup' command.
;; its friend.
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))
(with-directory-excursion out (with-directory-excursion out
(let ((dirs (scandir "." (let ((dirs (scandir "."
@ -109,7 +111,7 @@ (define-public cryptsetup-static
".static") ".static")
file) file)
(remove-store-references file)) (remove-store-references file))
'("sbin/cryptsetup" "sbin/veritysetup")) '("sbin/cryptsetup"))
#t)))))))) #t))))))))
(inputs (inputs
(let ((libgcrypt-static (let ((libgcrypt-static