me
/
guix
Archived
1
0
Fork 0
Code

openssl: Remove trailing #t from phases. 

* gnu/packages/tls.scm
  (openssl)[arguments]<#:phases>: Delete trailing #t.

Signed-off-by: Mathieu Othacehe <othacehe@gnu.org>
master
Maxime Devos 2021-07-14 13:12:57 +02:00 committed by Mathieu Othacehe
parent aec20fae97
commit c14c2ebaee
No known key found for this signature in database
GPG Key ID: 8354763531769CA6
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gnu/packages/tls.scm
View File

@ -364,8 +364,7 @@ required structures.")
((string-prefix? "powerpc64" target) ((string-prefix? "powerpc64" target)
"linux-ppc64") "linux-ppc64")
((string-prefix? "powerpc" target) ((string-prefix? "powerpc" target)
"linux-ppc"))) "linux-ppc"))))))
#t)))
'()) '())
(replace 'configure (replace 'configure
(lambda* (#:key outputs configure-flags #:allow-other-keys) (lambda* (#:key outputs configure-flags #:allow-other-keys)
@ -408,8 +407,7 @@ required structures.")
(for-each (lambda (file) (for-each (lambda (file)
(install-file file slib) (install-file file slib)
(delete-file file)) (delete-file file))
(find-files lib "\\.a$")) (find-files lib "\\.a$")))))
#t)))
(add-after 'install 'move-extra-documentation (add-after 'install 'move-extra-documentation
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
;; Move man3 pages and full HTML documentation to "doc". ;; Move man3 pages and full HTML documentation to "doc".
@ -422,8 +420,7 @@ required structures.")
(copy-recursively man3 man-target) (copy-recursively man3 man-target)
(delete-file-recursively man3) (delete-file-recursively man3)
(copy-recursively html html-target) (copy-recursively html html-target)
(delete-file-recursively html) (delete-file-recursively html))))
#t)))
(add-after (add-after
'install 'remove-miscellany 'install 'remove-miscellany
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
@ -432,8 +429,7 @@ required structures.")
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))
(delete-file-recursively (string-append out "/share/openssl-" (delete-file-recursively (string-append out "/share/openssl-"
,(package-version this-package) ,(package-version this-package)
"/misc")) "/misc"))))))))
#t))))))
(native-search-paths (native-search-paths
(list (search-path-specification (list (search-path-specification
(variable "SSL_CERT_DIR") (variable "SSL_CERT_DIR")