diff options
| author | Bruno Victal <mirai@makinata.eu> | 2023-10-09 21:06:05 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2024-08-31 10:42:09 +0200 |
| commit | 74dd1ab733ba1d28a69072ce1206beaddf02aa5d (patch) | |
| tree | 690830ef03be72199cda297c04d4a2424a930d2a | |
| parent | 268d3d09c17dc28d0f2d2aaf4830c2855e20daa5 (diff) | |
| download | guix-74dd1ab733ba1d28a69072ce1206beaddf02aa5d.tar.gz guix-74dd1ab733ba1d28a69072ce1206beaddf02aa5d.zip | |
gnu: libxml2: Rewrite using G-Expressions.
* gnu/packages/xml.scm (libxml2): Use G-Expressions.
Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
| -rw-r--r-- | gnu/packages/xml.scm | 46 |
1 files changed, 23 insertions, 23 deletions
diff --git a/gnu/packages/xml.scm b/gnu/packages/xml.scm index 7506b3d4e1..0273a599ea 100644 --- a/gnu/packages/xml.scm +++ b/gnu/packages/xml.scm @@ -200,29 +200,29 @@ hierarchical form with variable field lengths.") (build-system gnu-build-system) (outputs '("out" "static" "doc")) (arguments - `(#:phases (modify-phases %standard-phases - (add-after 'install 'use-other-outputs - (lambda* (#:key outputs #:allow-other-keys) - (let ((src (assoc-ref outputs "out")) - (doc (string-append (assoc-ref outputs "doc") "/share")) - (dst (string-append (assoc-ref outputs "static") - "/lib"))) - (mkdir-p doc) - (mkdir-p dst) - (for-each (lambda (dir) - (rename-file (string-append src "/share/" dir) - (string-append doc "/" dir))) - '("gtk-doc")) - (for-each (lambda (ar) - (rename-file ar (string-append dst "/" - (basename ar)))) - (find-files (string-append src "/lib") "\\.a$")) - - ;; Remove reference to the static library from the .la - ;; file such that Libtool does the right thing when both - ;; the shared and static variants are available. - (substitute* (string-append src "/lib/libxml2.la") - (("^old_library='libxml2.a'") "old_library=''")))))))) + (list + #:phases + #~(modify-phases %standard-phases + (add-after 'install 'use-other-outputs + (lambda _ + (let ((doc (string-append #$output:doc "/share/")) + (static (string-append #$output:static "/lib/"))) + (for-each mkdir-p (list doc static)) + + (rename-file (string-append #$output "/share/gtk-doc") + (string-append doc "/gtk-doc")) + + (for-each + (lambda (ar) + (rename-file ar + (string-append static (basename ar)))) + (find-files (string-append #$output "/lib") "\\.a$")) + + ;; Remove reference to the static library from the .la + ;; file such that Libtool does the right thing when both + ;; the shared and static variants are available. + (substitute* (string-append #$output "/lib/libxml2.la") + (("^old_library='libxml2.a'") "old_library=''")))))))) (home-page "http://www.xmlsoft.org/") (synopsis "C parser for XML") (inputs (list xz)) |