rosenthal: cloudflare-warp-bin: Update to 2023.10.120.

* rosenthal/packages/binaries.scm (cloudflare-warp-bin): Update to 2023.10.120
[#:phases]<patch-elf>: Reference gcc:lib from inputs.
[inputs]: Add gcc:lib.
pull/2/head
Hilton Chain 1 year ago
parent dc908f3819
commit 8cf9a52584
No known key found for this signature in database
GPG Key ID: ACC66D09CA528292
  1. 23
      rosenthal/packages/binaries.scm

@ -51,7 +51,7 @@ protocols out-of-the-box.")
(define-public cloudflare-warp-bin (define-public cloudflare-warp-bin
(package (package
(name "cloudflare-warp-bin") (name "cloudflare-warp-bin")
(version "2023.7.40") (version "2023.10.120")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://pkg.cloudflareclient.com" (uri (string-append "https://pkg.cloudflareclient.com"
@ -59,7 +59,7 @@ protocols out-of-the-box.")
"cloudflare-warp_" version "-1_amd64.deb")) "cloudflare-warp_" version "-1_amd64.deb"))
(sha256 (sha256
(base32 (base32
"00nb0ibf7cx4l7pdrpb458lnpp61blkvxbm1hndlypmldiajrrzl")))) "138c0yqp2d2cw89jsbfcii0r1fz0ll8wyf7kqs4pi5hb0mffwz05"))))
(build-system copy-build-system) (build-system copy-build-system)
(arguments (arguments
(list #:install-plan (list #:install-plan
@ -68,8 +68,8 @@ protocols out-of-the-box.")
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'unpack-deb (add-after 'unpack 'unpack-deb
(lambda _ (lambda _
(let ((deb-pack (let ((deb-pack (format #f "cloudflare-warp_~a-1_amd64.deb"
(format #f "cloudflare-warp_~a-1_amd64.deb" #$version))) #$(package-version this-package))))
(invoke "ar" "-x" deb-pack) (invoke "ar" "-x" deb-pack)
(invoke "tar" "-xf" "data.tar.gz")))) (invoke "tar" "-xf" "data.tar.gz"))))
(add-after 'install 'patch-elf (add-after 'install 'patch-elf
@ -77,11 +77,14 @@ protocols out-of-the-box.")
(let ((ld.so (string-append #$(this-package-input "glibc") (let ((ld.so (string-append #$(this-package-input "glibc")
#$(glibc-dynamic-linker))) #$(glibc-dynamic-linker)))
(rpath (string-join (rpath (string-join
(list (string-append #$gcc:lib "/lib") (list
(string-append (string-append
#$(this-package-input "dbus") "/lib") (ungexp
(string-append (this-package-input "gcc") "lib") "/lib")
#$(this-package-input "glibc") "/lib")) (string-append
#$(this-package-input "dbus") "/lib")
(string-append
#$(this-package-input "glibc") "/lib"))
":"))) ":")))
(define (patch-elf file) (define (patch-elf file)
(format #t "Patching ~a ..." file) (format #t "Patching ~a ..." file)
@ -95,7 +98,7 @@ protocols out-of-the-box.")
(string-append #$output "/bin"))))))))) (string-append #$output "/bin")))))))))
(supported-systems '("x86_64-linux")) (supported-systems '("x86_64-linux"))
(native-inputs (list patchelf)) (native-inputs (list patchelf))
(inputs (list dbus glibc)) (inputs (list dbus `(,gcc "lib") glibc))
(home-page "https://1.1.1.1/") (home-page "https://1.1.1.1/")
(synopsis "Cloudflare WARP client") (synopsis "Cloudflare WARP client")
(description (description

Loading…
Cancel
Save