me/guix
Archived
1
0
Fork 0
Code Activity

gnu: chromium.scm: Remove use of CADR.

Browse source 
...as per the style guidelines.

* gnu/packages/chromium.scm (%debian-origin)[file-name]: Use MATCH instead of
IF and CADR to compute the name.
This commit is contained in:
Marius Bakke 2020-02-05 11:32:19 +01:00
parent 2cbccf7f65
commit 4cac557911
No known key found for this signature in database
GPG key ID: A2A06DF2A33A54FA
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
gnu/packages/chromium.scm
View file

@ -69,7 +69,8 @@
#:use-module (gnu packages xiph) #:use-module (gnu packages xiph)
#:use-module (gnu packages xml) #:use-module (gnu packages xml)
#:use-module (gnu packages xdisorg) #:use-module (gnu packages xdisorg)
#:use-module (gnu packages xorg)) #:use-module (gnu packages xorg)
#:use-module (ice-9 match))
(define %preserved-third-party-files (define %preserved-third-party-files
'("base/third_party/cityhash" ;Expat '("base/third_party/cityhash" ;Expat
@ -278,9 +279,9 @@ from forcing GEXP-PROMISE."
(url "https://salsa.debian.org/chromium-team/chromium.git") (url "https://salsa.debian.org/chromium-team/chromium.git")
(commit %debian-revision))) (commit %debian-revision)))
(file-name (git-file-name "debian-chromium-packaging" (file-name (git-file-name "debian-chromium-packaging"
(if (string-prefix? "debian/" %debian-revision) (match (string-split %debian-revision #\/)
(cadr (string-split %debian-revision #\/)) ((_ revision) revision)
(string-take %debian-revision 7)))) (_ (string-take %debian-revision 7)))))
(sha256 (sha256
(base32 (base32
"1rbzxcwfp7v0c6rkvn9jl9by7p363cnbdyqazwiak1z03kmw3nkz")))) "1rbzxcwfp7v0c6rkvn9jl9by7p363cnbdyqazwiak1z03kmw3nkz"))))