amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: glibmm: Update to 2.72.1 and use gexps.

Browse source 
* gnu/packages/glib.scm (glibmm): Update to 2.72.1.
[phases]: Use gexps.
This commit is contained in:
Maxim Cournoyer 2022-08-22 13:27:16 -04:00
parent bcef9356f8
commit 111d525d8a
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 21 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

28
gnu/packages/glib.scm
View file

@ -766,7 +766,7 @@ by GDBus included in Glib.")
(define glibmm (define glibmm
(package (package
(name "glibmm") (name "glibmm")
(version "2.70.0") (version "2.72.1")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "mirror://gnome/sources/glibmm/" (uri (string-append "mirror://gnome/sources/glibmm/"
@ -774,31 +774,29 @@ by GDBus included in Glib.")
"/glibmm-" version ".tar.xz")) "/glibmm-" version ".tar.xz"))
(sha256 (sha256
(base32 (base32
"085mzpphz71sh5wh71ppikwnxsgn4pk3s4bzz6ingj6wxn5gs240")))) "1n2w2pcpbxjbsxynmar3i5ibr7src6gnrdxb9nn57p5miai4jxia"))))
(build-system meson-build-system) (build-system meson-build-system)
(outputs '("out" "doc")) (outputs '("out" "doc"))
(arguments (arguments
`(#:configure-flags (list
(list "-Dbuild-documentation=true") #:configure-flags #~(list "-Dbuild-documentation=true")
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'disable-failing-tests (add-after 'unpack 'disable-failing-tests
(lambda _ (lambda _
(substitute* "tests/meson.build" (substitute* "tests/meson.build"
;; This test uses /etc/fstab as an example file to read ;; This test uses /etc/fstab as an example file to read from;
;; from; disable it. ;; disable it.
(("[ \t]*.*giomm_simple.*$") "") (("[ \t]*.*giomm_simple.*$") "")
;; This test does a DNS lookup, and then expects to be able ;; This test does a DNS lookup, and then expects to be able to
;; to open a TLS session; just skip it. ;; open a TLS session; just skip it.
(("[ \t]*.*giomm_tls_client.*$") "")))) (("[ \t]*.*giomm_tls_client.*$") ""))))
(add-after 'install 'move-doc (add-after 'install 'move-doc
(lambda* (#:key outputs #:allow-other-keys) (lambda _
(let* ((out (assoc-ref outputs "out")) (mkdir-p (string-append #$output:doc "/share"))
(doc (assoc-ref outputs "doc")))
(mkdir-p (string-append doc "/share"))
(rename-file (rename-file
(string-append out "/share/doc") (string-append #$output "/share/doc")
(string-append doc "/share/doc")))))))) (string-append #$output:doc "/share/doc")))))))
(native-inputs (native-inputs
(list graphviz (list graphviz
doxygen doxygen