aboutsummaryrefslogtreecommitdiff
path: root/gnu/packages/chromium.scm
diff options
context:
space:
mode:
authorMarius Bakke <mbakke@fastmail.com>2020-02-05 11:32:19 +0100
committerMarius Bakke <mbakke@fastmail.com>2020-02-10 20:18:03 +0100
commit4cac55791176f0db521dce0b7918fd3daae8a0bb (patch)
treec43cd5b566aa315c144b19b69d9e67b07f4ff3de /gnu/packages/chromium.scm
parent2cbccf7f653d54fc41962425920db095d230de62 (diff)
downloadguix-4cac55791176f0db521dce0b7918fd3daae8a0bb.tar
guix-4cac55791176f0db521dce0b7918fd3daae8a0bb.tar.gz
gnu: chromium.scm: Remove use of CADR.
...as per the style guidelines. * gnu/packages/chromium.scm (%debian-origin)[file-name]: Use MATCH instead of IF and CADR to compute the name.
Diffstat (limited to 'gnu/packages/chromium.scm')
-rw-r--r--gnu/packages/chromium.scm9
1 files changed, 5 insertions, 4 deletions
diff --git a/gnu/packages/chromium.scm b/gnu/packages/chromium.scm
index ecded29abd..49ad8de84c 100644
--- a/gnu/packages/chromium.scm
+++ b/gnu/packages/chromium.scm
@@ -69,7 +69,8 @@
#:use-module (gnu packages xiph)
#:use-module (gnu packages xml)
#: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
'("base/third_party/cityhash" ;Expat
@@ -278,9 +279,9 @@ from forcing GEXP-PROMISE."
(url "https://salsa.debian.org/chromium-team/chromium.git")
(commit %debian-revision)))
(file-name (git-file-name "debian-chromium-packaging"
- (if (string-prefix? "debian/" %debian-revision)
- (cadr (string-split %debian-revision #\/))
- (string-take %debian-revision 7))))
+ (match (string-split %debian-revision #\/)
+ ((_ revision) revision)
+ (_ (string-take %debian-revision 7)))))
(sha256
(base32
"1rbzxcwfp7v0c6rkvn9jl9by7p363cnbdyqazwiak1z03kmw3nkz"))))