diff options
| author | Marius Bakke <mbakke@fastmail.com> | 2020-02-05 11:32:19 +0100 |
|---|---|---|
| committer | Marius Bakke <mbakke@fastmail.com> | 2020-02-10 20:18:03 +0100 |
| commit | 4cac55791176f0db521dce0b7918fd3daae8a0bb (patch) | |
| tree | c43cd5b566aa315c144b19b69d9e67b07f4ff3de | |
| parent | 2cbccf7f653d54fc41962425920db095d230de62 (diff) | |
| download | guix-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.
| -rw-r--r-- | gnu/packages/chromium.scm | 9 |
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")))) |