From c14c2ebaeec9defd4c0a152e7af4fe332cd3afd7 Mon Sep 17 00:00:00 2001 From: Maxime Devos Date: Wed, 14 Jul 2021 13:12:57 +0200 Subject: openssl: Remove trailing #t from phases. * gnu/packages/tls.scm (openssl)[arguments]<#:phases>: Delete trailing #t. Signed-off-by: Mathieu Othacehe --- gnu/packages/tls.scm | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) diff --git a/gnu/packages/tls.scm b/gnu/packages/tls.scm index d7b8caca38..95fb261c9a 100644 --- a/gnu/packages/tls.scm +++ b/gnu/packages/tls.scm @@ -364,8 +364,7 @@ (define-public openssl ((string-prefix? "powerpc64" target) "linux-ppc64") ((string-prefix? "powerpc" target) - "linux-ppc"))) - #t))) + "linux-ppc")))))) '()) (replace 'configure (lambda* (#:key outputs configure-flags #:allow-other-keys) @@ -408,8 +407,7 @@ (define-public openssl (for-each (lambda (file) (install-file file slib) (delete-file file)) - (find-files lib "\\.a$")) - #t))) + (find-files lib "\\.a$"))))) (add-after 'install 'move-extra-documentation (lambda* (#:key outputs #:allow-other-keys) ;; Move man3 pages and full HTML documentation to "doc". @@ -422,8 +420,7 @@ (define-public openssl (copy-recursively man3 man-target) (delete-file-recursively man3) (copy-recursively html html-target) - (delete-file-recursively html) - #t))) + (delete-file-recursively html)))) (add-after 'install 'remove-miscellany (lambda* (#:key outputs #:allow-other-keys) @@ -432,8 +429,7 @@ (define-public openssl (let ((out (assoc-ref outputs "out"))) (delete-file-recursively (string-append out "/share/openssl-" ,(package-version this-package) - "/misc")) - #t)))))) + "/misc")))))))) (native-search-paths (list (search-path-specification (variable "SSL_CERT_DIR") -- cgit v1.2.3