nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: openssl: Use 'modify-phases'. 

* gnu/packages/tls.scm (openssl)[arguments]: Use 'modify-phases'.
This commit is contained in:
Ludovic Courtès 2015-09-09 15:31:23 +02:00
parent 6f6eb85760
commit b6cb13583b
1 changed files with 27 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
gnu/packages/tls.scm
View File

@ -203,32 +203,33 @@ required structures.")
#:parallel-tests? #f #:parallel-tests? #f
#:test-target "test" #:test-target "test"
#:phases #:phases
(alist-replace (modify-phases %standard-phases
'configure (replace
(lambda* (#:key outputs #:allow-other-keys) 'configure
(let ((out (assoc-ref outputs "out"))) (lambda* (#:key outputs #:allow-other-keys)
(zero? (let ((out (assoc-ref outputs "out")))
(system* "./config" (zero?
"shared" ; build shared libraries (system* "./config"
"--libdir=lib" "shared" ;build shared libraries
(string-append "--prefix=" out) "--libdir=lib"
;; XXX FIXME: Work around a code generation bug in GCC (string-append "--prefix=" out)
;; 4.9.3 on ARM when compiled with -mfpu=neon. See:
;; <https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66917> ;; XXX FIXME: Work around a code generation bug in GCC
,@(if (and (not (%current-target-system)) ;; 4.9.3 on ARM when compiled with -mfpu=neon. See:
(string-prefix? "armhf" (%current-system))) ;; <https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66917>
'("-mfpu=vfpv3") ,@(if (and (not (%current-target-system))
'()))))) (string-prefix? "armhf" (%current-system)))
(alist-cons-before '("-mfpu=vfpv3")
'patch-source-shebangs 'patch-tests '()))))))
(lambda* (#:key inputs native-inputs #:allow-other-keys) (add-before
(let ((bash (assoc-ref (or native-inputs inputs) "bash"))) 'patch-source-shebangs 'patch-tests
(substitute* (find-files "test" ".*") (lambda* (#:key inputs native-inputs #:allow-other-keys)
(("/bin/sh") (let ((bash (assoc-ref (or native-inputs inputs) "bash")))
(string-append bash "/bin/bash")) (substitute* (find-files "test" ".*")
(("/bin/rm") (("/bin/sh")
"rm")))) (string-append bash "/bin/bash"))
%standard-phases)))) (("/bin/rm")
"rm"))))))))
(native-search-paths (native-search-paths
;; FIXME: These two variables must designate a single file or directory ;; FIXME: These two variables must designate a single file or directory
;; and are not actually "search paths." In practice it works OK in user ;; and are not actually "search paths." In practice it works OK in user