me
/
guix
Archived
1
0
Fork 0
Code

gnu: glib: Use modify-phases syntax. 

* gnu/packages/glib.scm (glib)[arguments]: Use 'modify-phases'.
master
宋文武 2016-04-02 15:18:30 +08:00 committed by Ludovic Courtès
parent 944504b32d
commit 0f795a0a53
1 changed files with 19 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gnu/packages/glib.scm
View File

@ -160,8 +160,9 @@ shared NFS home directories.")
("perl" ,perl) ; needed by GIO tests ("perl" ,perl) ; needed by GIO tests
("bash" ,bash))) ("bash" ,bash)))
(arguments (arguments
'(#:phases (alist-cons-before '(#:phases
'build 'pre-build (modify-phases %standard-phases
(add-before 'build 'pre-build
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
;; For tests/gdatetime.c. ;; For tests/gdatetime.c.
(setenv "TZDIR" (setenv "TZDIR"
@ -181,8 +182,7 @@ shared NFS home directories.")
(substitute* "gio/tests/gdbus-serialization.c" (substitute* "gio/tests/gdbus-serialization.c"
(("g_test_add_func \ (("g_test_add_func \
\\(\"/gdbus/message-serialize/double-array\", test_double_array\\);" all) \\(\"/gdbus/message-serialize/double-array\", test_double_array\\);" all)
(string-append "/* " all " */")))) (string-append "/* " all " */"))))))
%standard-phases)
;; Note: `--docdir' and `--htmldir' are not honored, so work around it. ;; Note: `--docdir' and `--htmldir' are not honored, so work around it.
#:configure-flags (list (string-append "--with-html-dir=" #:configure-flags (list (string-append "--with-html-dir="