amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: bluez: Update to 5.79.

Browse source 
* gnu/packages/linux.scm (bluez): Update to 5.79.
[arguments]: Replace the 'install' phase to work around an installation
failure, described here:

https://issues.guix.gnu.org/74597#5

Co-authored-by: Dariqq <dariqq@posteo.net>

Change-Id: I5928664f929d1bda6e8c8c5e37cb9020a9889881
Signed-off-by: Leo Famulari <leo@famulari.name>
This commit is contained in:
Julian Flake 2024-11-28 22:11:51 +01:00 • committed by Andreas Enge
parent f3a5639b72
commit cff66ca3fc
No known key found for this signature in database
GPG key ID: F7D5C9BF765C61E3
1 changed files with 14 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

16
gnu/packages/linux.scm
View file

@ -6577,7 +6577,7 @@ Bluetooth audio output devices like headphones or loudspeakers.")
(define-public bluez (define-public bluez
(package (package
(name "bluez") (name "bluez")
(version "5.72") (version "5.79")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append (uri (string-append
@ -6585,7 +6585,7 @@ Bluetooth audio output devices like headphones or loudspeakers.")
version ".tar.xz")) version ".tar.xz"))
(sha256 (sha256
(base32 (base32
"0vjk4ihywzv8k07bxq7clqgi2afrw54nfp0gcnxw35m98nipz7a9")))) "12pal1m4xlr8k7kxb6isv5lbaca2wc5zcgy0907wfwcz78qaar21"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
(list (list
@ -6609,6 +6609,18 @@ Bluetooth audio output devices like headphones or loudspeakers.")
(lambda _ (lambda _
(substitute* "unit/test-gatt.c" (substitute* "unit/test-gatt.c"
(("tester_init\\(&argc, &argv\\);") "return 77;")))) (("tester_init\\(&argc, &argv\\);") "return 77;"))))
(replace 'install
(lambda* (#:key make-flags #:allow-other-keys #:rest args)
;; Override the sysconfdir and localstatedir locations only for
;; the installation phase. Otherwise, the installation fails when
;; it tries to write to /etc/bluetooth and /var.
(define make-flags*
(append make-flags (list (string-append "sysconfdir="
#$output "/etc")
(string-append "localstatedir="
#$output "/var"))))
(apply (assoc-ref %standard-phases 'install)
(append args (list #:make-flags make-flags*)))))
(add-after 'install 'post-install (add-after 'install 'post-install
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((servicedir (string-append #$output (let* ((servicedir (string-append #$output