summary refs log tree commit diff
diff options
context:
space:
mode:
authorMaxim Cournoyer <maxim.cournoyer@gmail.com>2023-04-20 15:45:45 -0400
committerMaxim Cournoyer <maxim.cournoyer@gmail.com>2023-04-21 00:44:03 -0400
commit71b596a928c3f94e0e295cb859ce02dd8944f176 (patch)
tree62e4f42d594fd54dcdb1e06061c4f598649f6380
parenta2b20f1d37c76752bfa81405d1a60f8e6264d812 (diff)
downloadguix-71b596a928c3f94e0e295cb859ce02dd8944f176.tar.gz
gnu: libsigc++-2: Remove patch-docbook-xml phase.
* gnu/packages/glib.scm (libsigc++-2) [arguments]: Remove patch-docbook-xml phase.
Remove trailing #t.  Use gexps.
-rw-r--r--gnu/packages/glib.scm31
1 files changed, 10 insertions, 21 deletions
diff --git a/gnu/packages/glib.scm b/gnu/packages/glib.scm
index cb9640937c..6327d0c8b1 100644
--- a/gnu/packages/glib.scm
+++ b/gnu/packages/glib.scm
@@ -836,8 +836,8 @@ dissimilar callbacks and has an ease of use unmatched by other C++ callback
 libraries.")
     (license license:lgpl3+)))
 
- (define-public libsigc++-2
-   (package
+(define-public libsigc++-2
+  (package
     (inherit libsigc++)
     (name "libsigc++")
     (version "2.9.3")
@@ -852,25 +852,14 @@ libraries.")
         (base32 "0zq963d0sss82q62fdfjs7l9iwbdch51albck18cb631ml0v7y8b"))))
     (build-system gnu-build-system)
     (arguments
-     `(#:phases
-       (modify-phases %standard-phases
-         (add-after 'unpack 'patch-docbook-xml
-           (lambda* (#:key inputs #:allow-other-keys)
-             (with-directory-excursion "docs"
-               (substitute* (find-files "." "\\.xml$")
-                 (("http://www.oasis-open.org/docbook/xml/4\\.1\\.2/")
-                  (string-append (assoc-ref inputs "docbook-xml")
-                                 "/xml/dtd/docbook/"))))
-             #t))
-         (add-after 'install 'move-doc
-           (lambda* (#:key outputs #:allow-other-keys)
-             (let* ((out (assoc-ref outputs "out"))
-                    (doc (assoc-ref outputs "doc")))
-               (mkdir-p (string-append doc "/share"))
-               (rename-file
-                (string-append out "/share/doc")
-                (string-append doc "/share/doc"))
-               #t))))))))
+     (list #:phases
+           #~(modify-phases %standard-phases
+               (add-after 'install 'move-doc
+                 (lambda _
+                   (mkdir-p (string-append #$output:doc "/share"))
+                   (rename-file
+                    (string-append #$output "/share/doc")
+                    (string-append #$output:doc "/share/doc")))))))))
 
 (define glibmm
   (package