ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: hop: Use 'modify-phases' syntax.

Browse source 
* gnu/packages/scheme.scm (hop)[arguments]: Use 'modify-phases' syntax.
This commit is contained in:
Efraim Flashner 2016-10-23 10:21:58 +03:00
parent eccd1d24c9
commit 04014de6f5
No known key found for this signature in database
GPG key ID: F4C1D3917EACEE93
1 changed files with 12 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
gnu/packages/scheme.scm
View file

@ -295,19 +295,18 @@ (define-public hop
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:phases `(#:phases
(alist-replace (modify-phases %standard-phases
'configure (replace 'configure
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))
(zero? (zero?
(system* "./configure" (system* "./configure"
(string-append "--prefix=" out) (string-append "--prefix=" out)
(string-append "--blflags=" (string-append "--blflags="
;; user flags completely override useful ;; user flags completely override useful
;; default flags, so repeat them here. ;; default flags, so repeat them here.
"-copt \\$(CPICFLAGS) -L\\$(BUILDLIBDIR) " "-copt \\$(CPICFLAGS) -L\\$(BUILDLIBDIR) "
"-ldopt -Wl,-rpath," out "/lib"))))) "-ldopt -Wl,-rpath," out "/lib")))))))
%standard-phases)
#:tests? #f)) ; no test suite #:tests? #f)) ; no test suite
(inputs `(("avahi" ,avahi) (inputs `(("avahi" ,avahi)
("bigloo" ,bigloo) ("bigloo" ,bigloo)