TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

gnu: openssl: Simplify calls to 'invoke'.

Browse source 
* gnu/packages/tls.scm (openssl, openssl-next)[arguments]: In the
'configure' phase, simplify the calls to 'invoke'.
This commit is contained in:
Mark H Weaver 2018-03-17 17:05:28 -04:00
parent 5011d3f4a0
commit 0d98cb9a39
No known key found for this signature in database
GPG key ID: 7CEF29847562C516
1 changed files with 4 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
gnu/packages/tls.scm
View file

@ -297,8 +297,7 @@ (define-public openssl
'configure
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(apply invoke "./config"
(list
(invoke "./config"
"shared" ;build shared libraries
"--libdir=lib"
@ -316,7 +315,7 @@ (define-public openssl
,@(if (and (not (%current-target-system))
(string-prefix? "armhf" (%current-system)))
'("-mfpu=vfpv3")
'()))))))
'())))))
(add-after
'install 'make-libraries-writable
(lambda* (#:key outputs #:allow-other-keys)
@ -422,8 +421,7 @@ (define-public openssl-next
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(lib (string-append out "/lib")))
(apply invoke "./config"
(list
(invoke "./config"
"shared" ;build shared libraries
"--libdir=lib"
@ -442,7 +440,7 @@ (define-public openssl-next
,@(if (and (not (%current-target-system))
(string-prefix? "armhf" (%current-system)))
'("-mfpu=vfpv3")
'()))))))
'())))))
;; XXX: Duplicate this phase to make sure 'version' evaluates
;; in the current scope and not the inherited one.