gnu: astroid: Update to 0.16.

* gnu/packages/mail.scm (astroid): Update to 0.16.
[arguments]: Don't explicitly return #t from phases.
This commit is contained in:
Tobias Geerinckx-Rice 2021-10-12 17:29:20 +02:00
parent 7f9e1efee0
commit 1df9c6fff4
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 7 additions and 12 deletions

View File

@ -841,7 +841,7 @@ mailpack. What can alterMIME do?
(define-public astroid
(package
(name "astroid")
(version "0.15")
(version "0.16")
(source
(origin
(method git-fetch)
@ -850,14 +850,13 @@ mailpack. What can alterMIME do?
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "11cxbva9ni98gii59xmbxh4c6idcg3mg0pgdsp1c3j0yg7ix0lj3"))
(base32 "17m99llggkg7xg72k8xaf7iipax7sgfhqa2a1qnlylndwa42f57b"))
(modules '((guix build utils)))
(snippet
'(begin
;; https://github.com/astroidmail/astroid/pull/685
(substitute* "tests/test_composed_message.cc"
(("\\\\n\\.\\.\\.") "\\n...\\n"))
#t))))
(("\\\\n\\.\\.\\.") "\\n...\\n"))))))
(build-system cmake-build-system)
(arguments
`(#:modules ((guix build cmake-build-system)
@ -876,8 +875,7 @@ mailpack. What can alterMIME do?
;; ValueError: Namespace Astroid not available
(lambda _
(substitute* "tests/CMakeLists.txt"
((".*markdown.*") ""))
#t))
((".*markdown.*") ""))))
(replace 'build
(lambda _
(invoke "ninja" "-j" (number->string (parallel-job-count)))))
@ -886,14 +884,12 @@ mailpack. What can alterMIME do?
(let ((xorg-server (assoc-ref inputs "xorg-server")))
(setenv "HOME" (getcwd))
(system (format #f "~a/bin/Xvfb :1 &" xorg-server))
(setenv "DISPLAY" ":1")
#t)))
(setenv "DISPLAY" ":1"))))
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(setenv "CTEST_OUTPUT_ON_FAILURE" "1")
(invoke "ctest" "."))
#t))
(invoke "ctest" "."))))
(replace 'install
(lambda _
(invoke "ninja" "install")))
@ -910,8 +906,7 @@ mailpack. What can alterMIME do?
#f))))
inputs)))
(wrap-program (string-append out "/bin/astroid")
`("GI_TYPELIB_PATH" ":" prefix ,(filter identity paths))))
#t))
`("GI_TYPELIB_PATH" ":" prefix ,(filter identity paths))))))
(add-after 'install 'glib-or-gtk-compile-schemas
(assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-compile-schemas))
(add-after 'install 'glib-or-gtk-wrap