me/guix
Archived
1
0
Fork 0
Code Activity

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

Browse source 
* gnu/packages/databases.scm (tdb)[arguments]: Use 'modify-phases' syntax.
This commit is contained in:
Efraim Flashner 2016-10-08 22:14:36 +03:00
parent 1abd090487
commit 6ccb78144c
No known key found for this signature in database
GPG key ID: F4C1D3917EACEE93
1 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
gnu/packages/databases.scm
View file

@ -549,15 +549,15 @@ is in the public domain.")
"0i1l38h0vyck6zkcj4fn2l03spadlmyr1qa1xpdp9dy2ccbm3s1r")))) "0i1l38h0vyck6zkcj4fn2l03spadlmyr1qa1xpdp9dy2ccbm3s1r"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:phases (alist-replace '(#:phases
'configure (modify-phases %standard-phases
(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")))
;; The 'configure' script is a wrapper for Waf and ;; The 'configure' script is a wrapper for Waf and
;; doesn't recognize things like '--enable-fast-install'. ;; doesn't recognize things like '--enable-fast-install'.
(zero? (system* "./configure" (zero? (system* "./configure"
(string-append "--prefix=" out))))) (string-append "--prefix=" out)))))))))
%standard-phases)))
(native-inputs (native-inputs
`(;; TODO: Build the documentation. `(;; TODO: Build the documentation.
;; ("docbook-xsl" ,docbook-xsl) ;; ("docbook-xsl" ,docbook-xsl)