From 1dfcc7e834cf2d6c28d297e4ffa801664f0532a1 Mon Sep 17 00:00:00 2001 From: Mike Rosset Date: Tue, 7 Jan 2020 10:02:27 -0800 Subject: [PATCH 4/5] gnu: qtwebengine: simplify snippet field third-party? function * gnu/packages/qt.scm (qtwebengine)[snippet]: string-contains? returns a boolean so 'if condition is not required. Small syntax improvement. base32 field argument is now on the same line --- gnu/packages/qt.scm | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/gnu/packages/qt.scm b/gnu/packages/qt.scm index 87f3470773..78486c3622 100644 --- a/gnu/packages/qt.scm +++ b/gnu/packages/qt.scm @@ -2046,8 +2046,7 @@ time Web content can be enhanced with native controls.") "/submodules/" name "-everywhere-src-" version ".tar.xz")) (sha256 - (base32 - "08c60nh95m98mcqk444axs76xi6m9x0wvdxrzk9c2cxwqdbz59fa")) + (base32 "08c60nh95m98mcqk444axs76xi6m9x0wvdxrzk9c2cxwqdbz59fa")) (modules '((ice-9 ftw) (ice-9 match) (srfi srfi-1) @@ -2145,9 +2144,7 @@ time Web content can be enhanced with native controls.") (define (empty? dir) (equal? (scandir dir) '("." ".."))) (define (third-party? file) - (if (string-contains file "third_party/") - #t - #f)) + (string-contains file "third_party/")) (define (useless? file) (any (cute string-suffix? <> file) '(".zip" ".so" ".dll" ".exe" ".jar"))) -- 2.24.1