gnu: python-virtualenv: Update to 20.35.4.

* gnu/packages/python-xyz.scm (python-virtualenv): Update to 20.35.4.
[source]: Switch to git-fetch.
[arguments] <test-flags>: Rework skipped tests.

Change-Id: If627123d9213470b03f0535b90b1098cbde7c1ff

CODEOWNERS

@@ -68,6 +68,7 @@ guix/discovery\.scm                                @guix/core
 guix/docker\.scm                                   @guix/core
 guix/download\.scm                                 @guix/core
 guix/elf\.scm                                      @guix/core
+guix/fossil-download\.scm                          @guix/core
 guix/ftp-client\.scm                               @guix/core
 guix/gexp\.scm                                     @guix/core
 guix/git-authenticate\.scm                         @guix/core
@@ -333,6 +334,7 @@ guix/build-system/rakudo\.scm                      @guix/perl
 guix/import/cpan\.scm                              @guix/perl
 guix/scripts/import/cpan\.scm                      @guix/perl
 
+gnu/packages/aux-files/python/.*\.py$              @guix/python
 gnu/packages/django\.scm                           @guix/python
 gnu/packages/jupyter\.scm                          @guix/python
 gnu/packages/python(-.+|)\.scm$                    @guix/python
@@ -484,6 +486,7 @@ gnu/services/version-control\.scm                  @guix/vcs
 gnu/tests/version-control\.scm                     @guix/vcs
 guix/build/bzr\.scm                                @guix/vcs
 guix/build/cvs\.scm                                @guix/vcs
+guix/build/fossil\.scm                             @guix/vcs
 guix/build/git\.scm                                @guix/vcs
 guix/build/hg\.scm                                 @guix/vcs
 guix/build/svn\.scm                                @guix/vcs

Makefile.am

@@ -104,6 +104,7 @@ MODULES =					\
   guix/discovery.scm				\
   guix/android-repo-download.scm		\
   guix/bzr-download.scm            		\
+  guix/fossil-download.scm			\
   guix/git-download.scm				\
   guix/hg-download.scm				\
   guix/hash.scm					\
@@ -236,6 +237,7 @@ MODULES =					\
   guix/build/asdf-build-system.scm		\
   guix/build/bzr.scm				\
   guix/build/copy-build-system.scm		\
+  guix/build/fossil.scm				\
   guix/build/git.scm				\
   guix/build/hg.scm				\
   guix/build/glib-or-gtk-build-system.scm	\
@@ -484,6 +486,7 @@ AUX_FILES =						\
   gnu/packages/aux-files/linux-libre/5.10-x86_64.conf	\
   gnu/packages/aux-files/ovmf/51-edk2-ovmf-2m-raw-x64-nosb.json	\
   gnu/packages/aux-files/pack-audit.c			\
+  gnu/packages/aux-files/python/pytest_guix.py		\
   gnu/packages/aux-files/python/sanity-check.py		\
   gnu/packages/aux-files/python/sitecustomize.py	\
   gnu/packages/aux-files/renpy/renpy.in	\

NEWS

@@ -20,6 +20,9 @@ Please send Guix bug reports to bug-guix@gnu.org.
 *** New service for Fossil SCM
 *** TeX Live updated to 2026.1
 
+** Programming interfaces
+*** New (guix fossil-download) module, for fetching Fossil repositories
+
 * Changes in 1.5.0 (since 1.4.0)
 ** Package management
 *** New ‘rpm’ format for the ‘guix pack’ command

doc/guix.texi

@@ -8737,6 +8737,52 @@ The example below denotes a version of gnu-standards to fetch:
 
 @end deftp
 
+For Fossil repositories, the module @code{(guix fossil-download)} defines
+the @code{fossil-fetch} origin method and @code{fossil-reference} data type
+for support of the Fossil @abbr{SCM, software configuration management} system.
+
+@deffn {Procedure} fossil-fetch ref hash-algo hash [name]
+Return a fixed-output derivation that fetches @var{ref}, a
+@code{<fossil-reference>} object.  The output is expected to have recursive
+hash @var{hash} of type @var{hash-algo} (a symbol).  Use @var{name} as
+the file name, or a generic name if @code{#f}.
+@end deffn
+
+@deftp {Data Type} fossil-reference
+This data type represents a Fossil reference
+for @code{fossil-fetch} to retrieve.
+
+@table @asis
+@item @code{uri} (type: string)
+The URI of a Fossil repository to clone, in one of the following forms,
+in which @code{[...]} denotes optional elements:
+
+@table @code
+@item http[s]://[userid[:password]@@]host[:port][/path]
+A HTTP/HTTPS URL.
+@item [file://]path/to/repo.fossil
+A file URI, where the path must have an extra leading @code{/}
+to use an absolute path (without the URI scheme, the repository
+is opened directly without cloning).
+@end table
+
+@item @code{check-in} (type: string)
+A @url{https://fossil-scm.org/home/doc/trunk/www/checkin_names.wiki,
+name of the check-in} to fetch, e.g.@: its canonical hexadecimal identifier,
+associated tag and/or timestamp.
+@end table
+
+The example below denotes the @code{version-3.51.1} tag
+of the SQLite repository:
+
+@lisp
+(fossil-reference
+ (uri "https://sqlite.org/src")
+ (check-in "version-3.51.1"))
+@end lisp
+
+@end deftp
+
 @node Defining Package Variants
 @section Defining Package Variants
 

etc/teams.scm

@@ -565,6 +565,7 @@ challenges"))
               "guix/docker.scm"
               "guix/download.scm"
               "guix/elf.scm"
+              "guix/fossil-download.scm"
               "guix/ftp-client.scm"
               "guix/gexp.scm"
               "guix/git-authenticate.scm"
@@ -971,7 +972,8 @@ perl-build-system as well as the rakudo-build-system."
         #:description
         "Python, Python packages, the \"pypi\" importer, and the python-build-system."
         #:scope
-        (list "gnu/packages/django.scm"
+        (list (make-regexp* "^gnu/packages/aux-files/python/.*\\.py$")
+              "gnu/packages/django.scm"
               "gnu/packages/jupyter.scm"
               (make-regexp* "^gnu/packages/python(-.+|)\\.scm$")
               "gnu/packages/sphinx.scm"
@@ -1214,6 +1216,7 @@ the \"texlive\" importer."
                       "gnu/tests/version-control.scm"
                       "guix/build/bzr.scm"
                       "guix/build/cvs.scm"
+                      "guix/build/fossil.scm"
                       "guix/build/git.scm"
                       "guix/build/hg.scm"
                       "guix/build/svn.scm")))

gnu/local.mk

@@ -1185,6 +1185,7 @@ dist_patch_DATA =						\
   %D%/packages/patches/date-output-pkg-config-files.patch	\
   %D%/packages/patches/dbacl-include-locale.h.patch		\
   %D%/packages/patches/dbacl-icheck-multiple-definitions.patch	\
+  %D%/packages/patches/dblatex-importlib.patch		\
   %D%/packages/patches/dblatex-inkscape-1.0.patch		\
   %D%/packages/patches/dbus-helper-search-path.patch		\
   %D%/packages/patches/ddd-build.patch				\
@@ -1453,7 +1454,6 @@ dist_patch_DATA =						\
   %D%/packages/patches/ghc-aeson-encodeDouble.patch		\
   %D%/packages/patches/ghc-basement-fix-32bit.patch		\
   %D%/packages/patches/ghc-bytestring-handle-ghc9.patch	\
-  %D%/packages/patches/ghc-chell-quickcheck-enable-qc-2.15.patch	\
   %D%/packages/patches/ghc-clock-realfrag.patch	\
   %D%/packages/patches/ghc-language-haskell-extract-ghc-8.10.patch	\
   %D%/packages/patches/ghc-memory-fix-32bit.patch		\
@@ -1586,7 +1586,9 @@ dist_patch_DATA =						\
   %D%/packages/patches/gtk3-respect-GUIX_GTK3_PATH.patch	\
   %D%/packages/patches/gtk3-respect-GUIX_GTK3_IM_MODULE_FILE.patch \
   %D%/packages/patches/gtk-doc-respect-xml-catalog.patch	\
-  %D%/packages/patches/gtk-doc-mkhtml-test-fix.patch	\
+  %D%/packages/patches/gtk-doc-mkhtml-test-fix.patch	        \
+  %D%/packages/patches/gtk4-demo-reproducible.patch             \
+  %D%/packages/patches/gtk4-needs-udmabuf.patch                 \
   %D%/packages/patches/gtk4-respect-GUIX_GTK4_PATH.patch    	\
   %D%/packages/patches/gtkglext-disable-disable-deprecated.patch \
   %D%/packages/patches/gtksourceview-2-add-default-directory.patch \
@@ -1699,6 +1701,7 @@ dist_patch_DATA =						\
   %D%/packages/patches/libcss-check-format.patch		\
   %D%/packages/patches/libeb-gcc-14.patch			\
   %D%/packages/patches/libextractor-tidy-support.patch		\
+  %D%/packages/patches/libfossil-skip-amalgamation.patch	\
   %D%/packages/patches/libftdi-fix-paths-when-FTDIPP-set.patch	\
   %D%/packages/patches/libgeotiff-fix-tests-with-proj-9.1.1.patch	\
   %D%/packages/patches/libgeotiff-fix-tests-with-proj-9.3.0.patch	\
@@ -2120,6 +2123,7 @@ dist_patch_DATA =						\
   %D%/packages/patches/python-pyreadstat-link-libiconv.patch	\
   %D%/packages/patches/python-sip-include-dirs.patch	\
   %D%/packages/patches/python-scikit-build-setuptools-compat.patch	\
+  %D%/packages/patches/python-scikit-image-fix-python-pillow.patch	\
   %D%/packages/patches/python-sgmllib3k-assertions.patch	\
   %D%/packages/patches/python-sphobjinv-defer-ssl-import.patch	\
   %D%/packages/patches/python-sphinx-prompt-docutils-0.19.patch	\
@@ -2498,7 +2502,6 @@ dist_patch_DATA =						\
   %D%/packages/patches/texmacs-wayland-hidpi.patch	\
   %D%/packages/patches/tflite-micro_disable_download.patch 	\
   %D%/packages/patches/thefuck-test-environ.patch		\
-  %D%/packages/patches/thefuck-remove-broken-tests.patch	\
   %D%/packages/patches/tidy-CVE-2015-5522+5523.patch		\
   %D%/packages/patches/timewarrior-time-sensitive-tests.patch	\
   %D%/packages/patches/tinydir-fix-cbehave-test.patch		\

gnu/packages/acl.scm

@@ -37,7 +37,6 @@
   #:use-module (gnu packages)
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system pyproject)
-  #:use-module (guix build-system python)
   #:use-module (guix utils))
 
 (define-public acl

gnu/packages/admin.scm

@@ -109,7 +109,6 @@
   #:use-module (guix build-system go)
   #:use-module (guix build-system meson)
   #:use-module (guix build-system perl)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system pyproject)
   #:use-module (guix build-system qt)
   #:use-module (guix build-system ruby)
@@ -3917,6 +3916,18 @@ rules is done with the @code{auditctl} utility.")
                 (wrap-program (string-append ndiff "/bin/ndiff")
                   `("GUIX_PYTHONPATH" prefix
                     (,(python-path ndiff)))))))
+          (add-before 'check 'fix-tests-for-python-3.12
+            (lambda _
+              (substitute* "ndiff/ndifftest.py"
+                (("import imp")
+                 "import importlib.util")
+                (("ndiff = imp\\.load_source\\(\"ndiff\", \"ndiff\\.py\"\\)")
+                 (string-join
+                  '("spec = \
+importlib.util.spec_from_file_location(\"ndiff\", \"ndiff.py\")"
+                    "ndiff = importlib.util.module_from_spec(spec)"
+                    "spec.loader.exec_module(ndiff)")
+                  "\n")))))
           ;; These are the tests that do not require network access.
           (replace 'check
             (lambda* (#:key tests? #:allow-other-keys)
@@ -4046,51 +4057,59 @@ plug-in architecture to allow monitoring other system metrics.")
     (license license:gpl2+)))
 
 (define-public thefuck
-  (package
+  ;; Latest release, 3.32, is not compatible with Python 3.12.
-    (name "thefuck")
+  (let ((revision "0")
-    (version "3.32")
+        (commit "c7e7e1d884d3bb241ea6448f72a989434c2a35ec"))
-    (source
+    (package
-     (origin
+      (name "thefuck")
-       (method git-fetch)
+      (version (git-version "3.32" revision commit))
-       (uri (git-reference
+      (source
-             (url "https://github.com/nvbn/thefuck")
+       (origin
-             (commit version)))
+         (method git-fetch)
-       (file-name (git-file-name name version))
+         (uri (git-reference
-       (sha256
+                (url "https://github.com/nvbn/thefuck")
-        (base32 "18ipa1bm6q1n5drbi8i65726hhqhl1g41390lfqrc11hkbvv443d"))
+                (commit commit)))
-       (patches (search-patches "thefuck-test-environ.patch"
+         (file-name (git-file-name name version))
-                                "thefuck-remove-broken-tests.patch"))))
+         (sha256
-    (build-system pyproject-build-system)
+          (base32 "1l3i2cpdf3vznpbzqw7b18l23xikqs7andx6yzqvm5415snaqg06"))
-    (arguments
+         (patches (search-patches "thefuck-test-environ.patch"))))
-     (list
+      (build-system pyproject-build-system)
-      #:phases
+      (arguments
-      #~(modify-phases %standard-phases
+       (list
-          (add-before 'check 'pre-check
+        #:test-flags
-            (lambda _
+        #~(list
-              ;; Tests look for installed package
+           "--deselect=tests/test_utils.py::TestGetValidHistoryWithoutCurrent"
-              ;; Some tests need write access to $HOME.
+           "--ignore=tests/functional/conftest.py")
-              (setenv "HOME" "/tmp")
+        #:phases
-              ;; Even with that, this function tries to mkdir /.config.
+        #~(modify-phases %standard-phases
-              (substitute* "tests/test_utils.py"
+            (add-before 'check 'pre-check
-                (("settings\\.init\\(\\)") "")))))))
+              (lambda _
-    (native-inputs
+                ;; ModuleNotFoundError: No module named 'pytest_docker_pexpect'
-     (list go
+                (delete-file "tests/functional/conftest.py")
-           python-mock
+                ;; Tests look for installed package
-           python-pytest-8
+                ;; Some tests need write access to $HOME.
-           python-pytest-mock
+                (setenv "HOME" "/tmp")
-           python-setuptools
+                ;; Even with that, this function tries to mkdir /.config.
-           python-wheel))
+                (substitute* "tests/test_utils.py"
-    (inputs
+                  (("settings\\.init\\(\\)") "")))))))
-     (list python-colorama
+      (native-inputs
-           python-decorator
+       (list go
-           python-psutil
+             python-mock
-           python-pyte))
+             ;; Uses test markers that are incompatible with pytest 9.
-    (home-page "https://github.com/nvbn/thefuck")
+             python-pytest-8
-    (synopsis "Correct mistyped console command")
+             python-pytest-mock
-    (description
+             python-setuptools))
-     "The Fuck tries to match a rule for a previous, mistyped command, creates
+      (inputs
+       (list python-colorama
+             python-decorator
+             python-psutil
+             python-pyte))
+      (home-page "https://github.com/nvbn/thefuck")
+      (synopsis "Correct mistyped console command")
+      (description
+       "The Fuck tries to match a rule for a previous, mistyped command, creates
 a new command using the matched rule, and runs it.")
-    (license license:x11)))
+      (license license:x11))))
 
 (define-public di
   (package

gnu/packages/algebra.scm

@@ -88,7 +88,6 @@
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system cmake)
   #:use-module (guix build-system pyproject)
-  #:use-module ((guix build-system python) #:select (pypi-uri))
   #:use-module (guix build-system r)
   #:use-module (guix download)
   #:use-module (guix gexp)

gnu/packages/android.scm

@@ -41,7 +41,6 @@
   #:use-module (guix build-system emacs)
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system go)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system pyproject)
   #:use-module (guix build-system qt)
   #:use-module (guix build-system trivial)
@@ -765,7 +764,7 @@ file system.")
        (sha256
         (base32 "0r3xwk8xsfxvmxyw3d57sy2i9by24g0l1jl40735jiac9mypcg7n"))))
     (build-system pyproject-build-system)
-    (inputs (list python-requests python-argcomplete python-urllib3
+    (propagated-inputs (list python-requests python-argcomplete python-urllib3
                   python-looseversion gnupg))
     (native-inputs (list python-setuptools python-wheel python-requests-cache
                          python-defusedxml))
@@ -773,8 +772,7 @@ file system.")
      (list $SSL_CERT_FILE))
     (arguments
      (list
-      #:test-flags
+      #:test-backend #~'unittest
-      #~(list "-k" "test_*")
       #:phases
       #~(modify-phases %standard-phases
           (add-after 'unpack 'patch-tests
@@ -793,11 +791,7 @@ file system.")
             (lambda _
               (substitute* "sdkmanager.py"
                 (("gpgv")
-                 (string-append #$(this-package-input "gnupg") "/bin/gpgv")))))
+                 (string-append #$(this-package-input "gnupg") "/bin/gpgv"))))))))
-          (replace 'check
-            (lambda* (#:key tests? test-flags #:allow-other-keys)
-              (when tests?
-                (apply invoke "python" "-m" "unittest" test-flags)))))))
     (home-page "https://gitlab.com/fdroid/sdkmanager")
     (synopsis "Replacement for Android sdkmanager written in Python")
     (description
@@ -1182,14 +1176,16 @@ for communicating with Xiaomi smart appliances over miIO and MIoT protocols.")
 (define-public fdroidserver
   (package
     (name "fdroidserver")
-    (version "2.4.2")
+    (version "2.4.3")
     (source
      (origin
-       (method url-fetch)
+       (method git-fetch)
-       (uri (pypi-uri "fdroidserver" version))
+       (uri (git-reference
+              (url "https://gitlab.com/fdroid/fdroidserver")
+              (commit version)))
+       (file-name (git-file-name name version))
        (sha256
-        (base32
+        (base32 "1745fqxr2qfrls4wr6x9w1262b9pxmw9yvzd9b71ya2qmj74q17n"))))
-         "06xybginrwi5c7bw000wz5s5hzi0aqrxskzwh8qc6wv463w2djax"))))
     (build-system pyproject-build-system)
     (arguments
      (list
@@ -1200,22 +1196,17 @@ for communicating with Xiaomi smart appliances over miIO and MIoT protocols.")
             (lambda _
               (setenv "HOME" "/tmp"))))))
     (propagated-inputs
-     (list python-androguard
+     (list python-platformdirs
+           python-androguard
            python-apache-libcloud
-           python-argcomplete
            python-asn1crypto
            python-clint
            python-defusedxml
-           python-docker
            python-gitpython
-           python-mwclient
            python-oscrypto
            python-paramiko
            python-pillow
-           python-platformdirs
            python-puremagic
-           python-pyasn1
-           python-pyasn1-modules
            python-pyyaml
            python-qrcode
            python-requests

gnu/packages/astronomy.scm

@@ -37,7 +37,6 @@
 
 (define-module (gnu packages astronomy)
   #:use-module ((guix licenses) #:prefix license:)
-  #:use-module ((guix build-system python) #:select (pypi-uri)) ;to be removed soon
   #:use-module (guix build-system ant)
   #:use-module (guix build-system cmake)
   #:use-module (guix build-system copy)
@@ -3790,10 +3789,6 @@ bad pixel tracking throughout the reduction process.")
       #~(list "-m" "not remote_data")
       #:phases
       #~(modify-phases %standard-phases
-          (add-after 'unpack 'fix-pytest-config
-            (lambda _
-              (substitute* "pyproject.toml"
-                ((" --cov=cdflib --cov-report=xml") ""))))
           (add-before 'check 'set-home-env
             (lambda _
               (setenv "HOME" (getcwd)))))))
@@ -4425,7 +4420,6 @@ Cesium.")
     (native-inputs
      (list python-pydot
            python-pytest
-           python-pytest-cov
            python-pytest-asdf-plugin
            python-pytest-doctestplus
            python-pytest-filter-subpackage
@@ -4950,7 +4944,6 @@ files.")
     (build-system pyproject-build-system)
     (native-inputs
      (list python-pytest
-           python-pytest-cov
            python-setuptools
            python-setuptools-scm
            python-wheel))
@@ -5512,7 +5505,6 @@ across many files.")
      (list python-mock
            python-objgraph
            python-pytest
-           python-pytest-cov
            ;; python-pytest-faulthandler
            python-setuptools
            python-wheel
@@ -6326,19 +6318,6 @@ files.")
                  (string-append
                   "from astropy.units.core import Unit, UnitBase\n"
                   "from astropy.units.errors import UnitTypeError\n")))))
-          (add-after 'unpack 'relax-requirements
-            (lambda _
-              (substitute* "pyproject.toml"
-                ;; RuntimeError: Unable to detect version control
-                ;; system. Checked: Git. Not installed: Mercurial, Darcs,
-                ;; Subversion, Bazaar, Fossil, Pijul.  See
-                ;; <https://github.com/blacklanternsecurity/bbot/issues/1257>.
-                (("enable = true") "enable = false"))))
-          (add-before 'build 'set-version
-            (lambda _
-              ;; TODO: Include in pyproject-build-system.
-              (setenv "POETRY_DYNAMIC_VERSIONING_BYPASS"
-                      #$(version-major+minor+point version))))
           (add-before 'check 'prepare-test-environment
             (lambda _
               (setenv "HOME" "/tmp"))))))
@@ -9923,13 +9902,7 @@ implemented in the @acronym{JWST, James Webb Space Telescope} and
                             "test_step.py::test_build_config_pipe_kwarg"
                             "test_step.py::test_build_config_step_config_file"
                             "test_step.py::test_build_config_step_kwarg"
-                            "test_step.py::test_step_list_args")))
+                            "test_step.py::test_step_list_args")))))
-      #:phases
-      #~(modify-phases %standard-phases
-          (add-after 'unpack 'set-version
-            (lambda _
-              (setenv "SETUPTOOLS_SCM_PRETEND_VERSION"
-                      #$(version-major+minor+point version)))))))
     (native-inputs
      (list python-pytest
            python-pytest-doctestplus
@@ -10937,7 +10910,6 @@ cosmological simulations.")
     (build-system pyproject-build-system)
     (propagated-inputs (list python-numpy python-scipy))
     (native-inputs (list python-pytest
-                         python-pytest-cov
                          python-pytest-doctestplus
                          python-setuptools-scm
                          python-wheel))

gnu/packages/audio.scm

@@ -179,7 +179,6 @@
   #:use-module (guix build-system glib-or-gtk)
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system meson)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system pyproject)
   #:use-module (guix build-system qt)
   #:use-module (guix build-system trivial)
@@ -3238,30 +3237,27 @@ synchronous execution of all clients, and low latency operation.")
   (package
     (inherit jack-1)
     (name "jack2")
-    (version "1.9.21")
+    ;; 1.9.22 does not compile with Python 3.12, use the latest commit instead.
+    (properties '((commit . "17959465a722225a36a8b612aed26764036f258e")
+                  (revision . "0")))
+    (version (git-version "1.9.22"
+                          (assoc-ref properties 'revision)
+                          (assoc-ref properties 'commit)))
     (source (origin
               (method git-fetch)
               (uri (git-reference
-                    (url "https://github.com/jackaudio/jack2")
+                     (url "https://github.com/jackaudio/jack2")
-                    (commit (string-append "v" version))))
+                     (commit (assoc-ref properties 'commit))))
               (file-name (git-file-name name version))
               (sha256
                (base32
-                "0sbrffmdbajvrk7iqvsvrnwnpvmicvbjyq3f52r6ashdsznsz03b"))))
+                "18dbjq9y8mcp27j9aaqdlg4976hrisr7b88lk84ck09gmzlwqalp"))))
     (build-system waf-build-system)
     (arguments
      `(#:tests? #f                      ; no check target
        #:configure-flags '("--dbus" "--alsa")
        #:phases
        (modify-phases %standard-phases
-         ;; Python 3.11 has removed the 'U' (universal newline) mode.  It has
-         ;; been the default since Python 3.3.
-         (add-after 'unpack 'python-compatibility
-           (lambda _
-             (substitute* '("waflib/Context.py"
-                            "waflib/ConfigSet.py")
-               (("m='rU'") "m='r'")
-               (("read\\('rU'") "read('r'"))))
          (add-before 'configure 'set-linkflags
            (lambda _
              ;; Ensure -lstdc++ is the tail of LDFLAGS or the simdtests.cpp
@@ -3287,7 +3283,7 @@ synchronous execution of all clients, and low latency operation.")
            expat
            libsamplerate
            opus
-           python-dbus-1.2
+           python-dbus
            readline))
     (native-inputs
      (list pkg-config))
@@ -4090,9 +4086,7 @@ one-dimensional sample-rate conversion library.")
                  (string-append "'" #$(this-package-input "libsndfile")
                                 "/lib/libsndfile"))))))))
     (native-inputs
-     (list python-pytest
+     (list python-pytest python-setuptools))
-           python-pytest-cov
-           python-setuptools))
     (inputs
      (list libsndfile
            portaudio))
@@ -7821,60 +7815,59 @@ Rate} 3600x2250 bit/s vocoder used in various radio systems.")
                   (delete-file-recursively "third_party")
                   (delete-file-recursively "modules")))))
     (build-system cmake-build-system)
+    (arguments
+     (list
+      #:configure-flags
+      #~(list "-DLINK_BUILD_QT_EXAMPLES=ON"
+              "-DLINK_BUILD_JACK=ON")
+      #:phases
+      #~(modify-phases %standard-phases
+          (replace 'check
+            (lambda* (#:key inputs tests? #:allow-other-keys)
+              (when tests?
+                (let* ((python (search-input-file inputs "/bin/python3"))
+                       (run-tests "../source/ci/run-tests.py"))
+                  (invoke python run-tests "--target" "LinkCoreTest")
+                  (invoke python run-tests "--target" "LinkDiscoveryTest")))))
+          (add-before 'install 'patch-cmake
+            (lambda* (#:key inputs #:allow-other-keys)
+              (let* ((source "../source/"))
+                (substitute* (string-append source
+                                            "cmake_include/AsioStandaloneConfig.cmake")
+                  (((string-append "\\$\\{CMAKE_CURRENT_LIST_DIR\\}/\\.\\./"
+                                   "modules/asio-standalone/asio/include"))
+                   (dirname (search-input-file inputs "include/asio.hpp"))))
+                (substitute* (string-append source "AbletonLinkConfig.cmake")
+                  (("\\$\\{CMAKE_CURRENT_LIST_DIR\\}/include")
+                   "${CMAKE_CURRENT_LIST_DIR}/../../../include")
+                  (("\\$\\{CMAKE_CURRENT_LIST_DIR\\}/include/ableton/Link\\.hpp")
+                   "${CMAKE_CURRENT_LIST_DIR}/../../../include/ableton/Link.hpp")))))
+          (replace 'install
+            (lambda _
+              (let* ((out #$output)
+                     (lib-cmake (string-append out "/lib/cmake/ableton-link"))
+                     (source "../source"))
+                (for-each delete-file
+                          '("bin/LinkDiscoveryTest" "bin/LinkCoreTest"))
+                (copy-recursively "bin" (string-append out "/bin"))
+                (copy-recursively (string-append source "/include/ableton")
+                                  (string-append out "/include/ableton"))
+                (install-file (string-append source "/AbletonLinkConfig.cmake")
+                              lib-cmake)
+                (install-file (string-append source
+                                             "/cmake_include/AsioStandaloneConfig.cmake")
+                              (string-append lib-cmake "/cmake_include"))))))))
     (native-inputs
      (list catch-framework
-           python ;for running tests
+           portaudio                    ;for portaudio examples
-           portaudio)) ;for portaudio examples
+           python                       ;for running tests
+           python-setuptools))          ;for running tests
     (inputs
      (list jack-1)) ;for JACK examples
     (propagated-inputs
      ;; This is because include/ableton/platforms/asio/AsioWrapper.hpp
      ;; contains '#include <asio.hpp>'.
      (list asio-1.28))
-    (arguments
-     `(#:configure-flags
-       '("-DLINK_BUILD_QT_EXAMPLES=ON"
-         "-DLINK_BUILD_JACK=ON")
-       #:phases
-       (modify-phases %standard-phases
-         (replace 'check
-           (lambda* (#:key inputs tests? #:allow-other-keys)
-             (when tests?
-               (let* ((python (search-input-file inputs "/bin/python3"))
-                      (run-tests "../source/ci/run-tests.py"))
-                 (invoke python run-tests "--target" "LinkCoreTest")
-                 (invoke python run-tests "--target" "LinkDiscoveryTest")))))
-         (add-before 'install 'patch-cmake
-           (lambda* (#:key inputs #:allow-other-keys)
-             (let* ((source "../source/"))
-               (substitute* (string-append source
-                                           "cmake_include/AsioStandaloneConfig.cmake")
-                 (((string-append "\\$\\{CMAKE_CURRENT_LIST_DIR\\}/\\.\\./"
-                                  "modules/asio-standalone/asio/include"))
-                  (string-append (assoc-ref inputs "asio")
-                                 "/include")))
-               (substitute* (string-append source "AbletonLinkConfig.cmake")
-                 (("\\$\\{CMAKE_CURRENT_LIST_DIR\\}/include")
-                  "${CMAKE_CURRENT_LIST_DIR}/../../../include")
-                 (("\\$\\{CMAKE_CURRENT_LIST_DIR\\}/include/ableton/Link\\.hpp")
-                  "${CMAKE_CURRENT_LIST_DIR}/../../../include/ableton/Link.hpp")))))
-         (replace 'install
-           (lambda* (#:key outputs #:allow-other-keys)
-             (let* ((out (assoc-ref outputs "out"))
-                    (bin (string-append out "/bin"))
-                    (lib-cmake (string-append out "/lib/cmake/ableton-link"))
-                    (source "../source"))
-               (for-each (lambda (test-file)
-                           (delete-file test-file))
-                         '("bin/LinkDiscoveryTest" "bin/LinkCoreTest"))
-               (copy-recursively "bin" bin)
-               (copy-recursively (string-append source "/include/ableton")
-                                 (string-append out "/include/ableton"))
-               (install-file (string-append source "/AbletonLinkConfig.cmake")
-                             lib-cmake)
-               (install-file (string-append source
-                                            "/cmake_include/AsioStandaloneConfig.cmake")
-                             (string-append lib-cmake "/cmake_include"))))))))
     (home-page "https://github.com/Ableton/link")
     (synopsis "Synchronize musical beat, tempo, and phase across multiple applications")
     (description
@@ -8060,7 +8053,7 @@ as sample rate, determining whether an audio file is silent, and much more.")
     (propagated-inputs
      (list python-numba python-numpy python-scipy python-six))
     (native-inputs
-     (list python-pytest python-pytest-cov python-setuptools python-wheel))
+     (list python-pytest python-setuptools python-wheel))
     (home-page "https://github.com/bmcfee/resampy")
     (synopsis "Efficient signal resampling")
     (description
@@ -8090,8 +8083,7 @@ Home Page}.")
      (list
       #:test-flags
       ;; Ignore --mpl flag.
-      '(list "-c" "/dev/null"
+      '(list "-k" (string-append
-             "-k" (string-append
                    ;; Resampling tests require python-samplerate.
                    "not resample"
                    ;; These tests use Pooch and download data files.
@@ -8116,7 +8108,6 @@ Home Page}.")
      (list python-matplotlib
            python-packaging
            python-pytest
-           python-pytest-cov
            python-resampy
            python-setuptools
            python-wheel))

gnu/packages/aux-files/python/pytest_guix.py

@@ -0,0 +1,58 @@
+# GNU Guix --- Functional package management for GNU
+# Copyright © 2025 Nicolas Graves <ngraves@ngraves.fr>
+#
+# This file is part of GNU Guix.
+#
+# GNU Guix is free software; you can redistribute it and/or modify it
+# under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or (at
+# your option) any later version.
+#
+# GNU Guix is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
+
+import importlib.util
+import json
+
+
+def pytest_addoption(parser):
+    """Add stub options to be ignored by pytest.
+
+    More precisely, inject all options provided in .pytest_guix_options.json,
+    except options whose plugin is indeed installed.
+
+    For example, if the json file records --cov:
+      if the pytest_cov module is installed, its --cov will be used.
+      otherwise, --cov is ignored (read by this parser, but nothing is done
+      with it).
+
+    Flags can be given with additional keyword arguments in a json object.
+    If the json object is not given, fallback to the default
+    {"action": "append", "nargs": "?"}.  In practice, these arguments are only
+    mandatory for the store_true and store_const actions to avoid eating other
+    arguments.
+
+    This allows to remove development packages, which are not required at build
+    time while at the same time avoiding the need to adjust test options in
+    pyproject.toml or other configuration files.
+    """
+    with open(".pytest_guix_options.json", "r") as options_file:
+        plugin_options = json.load(options_file)
+        group = parser.getgroup(
+            "guix", "Options ignored by the Guix pyproject-build-system"
+        )
+
+        # Only add options for plugins that are not present.
+        for key, options in plugin_options.items():
+            if importlib.util.find_spec(f"pytest_{key}") is None:
+                # Plugin not found, add stub options
+                for option, kwargs in options.items():
+                    if kwargs:
+                        group.addoption(option, **kwargs)
+                    else:
+                        group.addoption(option, action="append", nargs="?")

gnu/packages/backup.scm

@@ -50,7 +50,6 @@
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system go)
   #:use-module (guix build-system pyproject)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system qt)
   #:use-module (guix download)
   #:use-module (guix gexp)
@@ -107,6 +106,7 @@
   #:use-module (gnu packages rsync)
   #:use-module (gnu packages ruby-xyz)
   #:use-module (gnu packages serialization)
+  #:use-module (gnu packages sphinx)
   #:use-module (gnu packages ssh)
   #:use-module (gnu packages time)
   #:use-module (gnu packages tls)
@@ -137,7 +137,6 @@
            python-paramiko
            python-pexpect
            python-pytest
-           python-pytest-runner
            python-setuptools-scm
            tzdata-for-tests
            python-mock))
@@ -632,41 +631,26 @@ rsnapshot uses hard links to deduplicate identical files.")
 (define-public borg
   (package
     (name "borg")
-    (version "1.4.3")
+    (version "1.4.4")
     (source
      (origin
-       (method url-fetch)
+       (method git-fetch)
-       (uri (pypi-uri "borgbackup" version))
+       (uri (git-reference
+              (url "https://github.com/borgbackup/borg")
+              (commit version)))
+       (file-name (git-file-name name version))
        (sha256
-        (base32 "07s4jqcv03s98hi6lvqpvmnnhl532qnvv11mjy2xc08rbmsgmfvr"))
+        (base32 "0bk302lbjjz1y8dg78wqqys80bm7mzkj5yf6wgyqdwvbqpsnpim4"))))
-       (snippet
-        #~(begin
-            ;; Delete files generated by Cython.  We used to have a regex that
-            ;; created the list of generated files but Borg has added new
-            ;; non-generated C files that cause the regex to generate the
-            ;; wrong list.
-            (for-each delete-file
-                      '("src/borg/algorithms/checksums.c"
-                        "src/borg/chunker.c"
-                        "src/borg/compress.c"
-                        "src/borg/crypto/low_level.c"
-                        "src/borg/hashindex.c"
-                        "src/borg/item.c"
-                        "src/borg/platform/darwin.c"
-                        "src/borg/platform/freebsd.c"
-                        "src/borg/platform/linux.c"
-                        "src/borg/platform/posix.c"
-                        "src/borg/platform/syncfilerange.c"
-                        "src/borg/platform/windows.c"))))))
     (build-system pyproject-build-system)
     (arguments
      (list
       #:modules '((srfi srfi-26)        ; for cut
                   (guix build utils)
                   (guix build pyproject-build-system))
+      ;; tests: 1318 passed, 293 skipped
       #:test-flags
       #~(list "--benchmark-skip"
-              "--numprocesses" (number->string (parallel-job-count))
+              "--numprocesses" (number->string (min 8 (parallel-job-count)))
               "--pyargs" "borg.testsuite"
               "-k" (string-join
                     ;; These tests need to write to '/var'.
@@ -687,7 +671,15 @@ rsnapshot uses hard links to deduplicate identical files.")
                           "test_mount_hardlinks "
                           "test_readonly_mount "
                           "test_fuse_versions_view "
-                          "test_migrate_lock_alive")
+                          "test_migrate_lock_alive"
+                          ;; Test files are not in /gnu/store
+                          "test_convert_all[False]"
+                          "test_convert_all[True]"
+                          "test_convert_segments[False]"
+                          "test_convert_segments[True]"
+                          "test_detect_attic_repo"
+                          "test_key_export_qr"
+                          "test_keys")
                     " and not "))
       #:phases
       #~(modify-phases %standard-phases
@@ -703,46 +695,58 @@ rsnapshot uses hard links to deduplicate identical files.")
                 (setenv "BORG_LIBLZ4_PREFIX" lz4)
                 (setenv "BORG_LIBXXHASH_PREFIX" xxhash)
                 (setenv "BORG_LIBZSTD_PREFIX" zstd))))
-          (add-after 'install 'install-doc
+          (add-before 'build 'fix-testsuite-setuid-mode
             (lambda _
-              (let ((man (string-append #$output "/share/man/man1"))
+              (substitute* "src/borg/testsuite/archiver.py"
-                    (misc (string-append #$output "/share/doc/borg-"
+                (("0o4755") "0o0755"))))
-                                         #$(package-version this-package))))
+          (add-after 'install 'build-and-install-docs
+            (lambda _
+              (let* ((doc (string-append #$output "/share/doc/borg-" #$version))
+                     (html (string-append doc "/html"))
+                     (txt (string-append doc "/txt"))
+                     (misc (string-append doc "/misc"))
+                     (man (string-append #$output "/share/man/man1")))
+                (with-directory-excursion "docs"
+                  (invoke "make" "text" "man" "singlehtml"))
                 (for-each (cut install-file <> misc)
                           '("docs/misc/create_chunker-params.txt"
                             "docs/misc/borg-data-flow.png"
                             "docs/misc/internals-picture.txt"
                             "docs/misc/prune-example.txt"))
-                (copy-recursively "docs/man" man))))
+                (copy-recursively "docs/_build/man" man)
-          (add-after 'install-doc 'install-shell-completions
+                (copy-recursively "docs/_build/singlehtml" html)
+                (copy-recursively "docs/_build/text" txt))))
+          (add-after 'build-and-install-docs 'install-shell-completions
             (lambda _
-              (let ((etc (string-append #$output "/etc"))
+              (let* ((etc (string-append #$output "/etc"))
-                    (share (string-append #$output "/share")))
+                     (share (string-append #$output "/share"))
+                     (bash (string-append etc "/bash_completion.d"))
+                     (zsh (string-append share "/zsh/site-functions"))
+                     (fish (string-append share "/fish/vendor_completions.d")))
                 (with-directory-excursion "scripts/shell_completions"
-                  (install-file "bash/borg"
+                  (install-file "bash/borg" bash)
-                                (string-append etc "/bash_completion.d"))
+                  (install-file "zsh/_borg" zsh)
-                  (install-file "zsh/_borg"
+                  (install-file "fish/borg.fish" fish))))))))
-                                (string-append share "/zsh/site-functions"))
-                  (install-file "fish/borg.fish"
-                                (string-append share "/fish/vendor_completions.d")))))))))
     (native-inputs
      (list python-cython
-           python-dateutil
+           python-guzzle-sphinx-theme
+           python-pkgconfig
            python-pytest
            python-pytest-benchmark
            python-pytest-xdist
            python-setuptools
            python-setuptools-scm
-           python-wheel))
+           python-sphinx
+           python-sphinxcontrib-jquery))
     (inputs
      (list acl
            lz4
            openssl
-           ;; This is the latest version of msgpack accepted by 'setup.py'.
+           python-msgpack
-           python-msgpack-for-borg
            ;; FUSE 3 isn't working well, so we stick with FUSE 2 for now:
            ;; <https://issues.guix.gnu.org/53407>
            python-llfuse
+           python-packaging
            xxhash
            `(,zstd "lib")))
     (synopsis "Deduplicated, encrypted, authenticated and compressed backups")
@@ -1299,7 +1303,6 @@ compression parameters used by Gzip.")
     (native-inputs
      (list python-flexmock
            python-pytest
-           python-pytest-cov
            python-setuptools
            python-wheel))
     (inputs
@@ -1363,9 +1366,9 @@ borgmatic is powered by borg.")
             (assoc-ref qt:%standard-phases 'qt-wrap)))))
     (native-inputs
      (list python-platformdirs
+           python-pytest
            python-pytest-mock
            python-pytest-qt
-           python-pytest-runner
            python-setuptools
            python-setuptools-git))
     (inputs

gnu/packages/benchmark.scm

@@ -42,7 +42,6 @@
   #:use-module (guix search-paths)
   #:use-module (guix build-system cmake)
   #:use-module (guix build-system gnu)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system pyproject)
   #:use-module (guix build-system meson)
   #:use-module (gnu packages)

gnu/packages/bioinformatics.scm

@@ -65,7 +65,6 @@
   #:use-module (guix build-system meson)
   #:use-module (guix build-system perl)
   #:use-module (guix build-system pyproject)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system qt)
   #:use-module (guix build-system r)
   #:use-module (guix build-system ruby)
@@ -2288,7 +2287,6 @@ version = ~s
                   (delete-file-recursively
                    (string-append #$output "/.pytest_cache")))))))))
     (native-inputs (list python-pytest
-                         python-pytest-cov
                          python-pytest-datadir
                          python-pytest-doctestplus
                          python-recommonmark
@@ -3379,35 +3377,36 @@ encountered in PDB files prior to simulation tasks.")
 (define-public python-peaks2utr
   (package
     (name "python-peaks2utr")
-    (version "1.4.1")
+    (version "1.5.0")
-    (source (origin
+    (source
-              (method url-fetch)
+     (origin
-              (uri (pypi-uri "peaks2utr" version))
+       (method git-fetch)
-              (sha256
+       (uri (git-reference
-               (base32
+              (url "https://github.com/haessar/peaks2utr")
-                "104il0kk61q07b58g9xrss7xflwlbx4kzsmw9iih99lhfsii0wzg"))))
+              (commit (string-append "v" version))))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "1b4qiccp5j394pzqd1d4ss3k90zv3kdr84lykl6p8izn3k85b2bl"))))
     (build-system pyproject-build-system)
     (arguments
      (list
-      #:test-flags
-      ;; These tests fail because file names are not URLs.
-      '(list "-k" (string-join
-                   (list "not test_forward_strand_annotations"
-                         "test_matching_chr"
-                         "test_reverse_strand_annotations")
-                   " and not "))
       #:phases
-      '(modify-phases %standard-phases
+      #~(modify-phases %standard-phases
-         (add-after 'unpack 'relax-requirements
+          (add-after 'unpack 'relax-requirements
-           (lambda _
+            (lambda _
-             (substitute* "setup.cfg"
+              (substitute* "setup.cfg"
-               (("==") ">=")))))))
+                (("==") ">=")
+                ;; See: <https://github.com/haessar/peaks2utr/issues/47>.
+                (("numpy >= 1.21.4, <= 1.26.4") "numpy >= 1.21.4")))))))
+    (native-inputs
+     (list python-pytest
+           python-setuptools))
     (propagated-inputs
      (list python-asgiref
            python-gffutils
            python-importlib-resources
-           macs
+           macs-3
-           python-numpy-1
+           python-numpy
            python-psutil
            python-pybedtools
            python-pysam
@@ -3415,7 +3414,6 @@ encountered in PDB files prior to simulation tasks.")
            python-tqdm
            python-typing-extensions
            python-zipp))
-    (native-inputs (list python-setuptools python-wheel))
     (home-page "https://github.com/haessar/peaks2utr")
     (synopsis "Python CLI for annotating three prime UTR")
     (description
@@ -3864,7 +3862,6 @@ raw/ed14e050b2b75e7f4ddb73d512fbe928bbdb2b85")
            python-scipy))
     (native-inputs
      (list python-pytest
-           python-pytest-cov
            python-pytest-datadir
            python-pytest-doctestplus
            python-setuptools
@@ -4290,7 +4287,6 @@ e.g. microbiome samples, genomes, metagenomes.")
     (native-inputs
      (list python-cython
            python-pytest
-           python-pytest-cov
            python-setuptools
            python-wheel))
     (propagated-inputs
@@ -6966,7 +6962,6 @@ and v1.1 to v1.2.")
      (list python-mypy-extensions
            python-pytest
            python-pytest-mock
-           python-pytest-runner
            python-setuptools
            python-wheel))
     (propagated-inputs
@@ -8846,7 +8841,8 @@ high-throughput sequencing (HTS) assays")
          ;; Needed by tests
          (add-after 'unpack 'set-HOME
            (lambda _ (setenv "HOME" "/tmp"))))))
-    (propagated-inputs (list python-appdirs
+    (propagated-inputs (list mysql-connector-python
+                             python-appdirs
                              python-biopython
                              python-click
                              python-colorama
@@ -8854,7 +8850,6 @@ high-throughput sequencing (HTS) assays")
                              python-filelock
                              python-loguru
                              python-mygene
-                             python-mysql-connector-python
                              python-norns
                              python-numpy
                              python-pandas
@@ -9810,29 +9805,39 @@ sequencing tag position and orientation.")
 (define-public macs-3
   (package
     (name "macs")
-    (version "3.0.3")
+    (version "3.0.4")
-    (source (origin
+    (source
-              (method git-fetch)
+     (origin
-              (uri (git-reference
+       (method git-fetch)
-                    (url "https://github.com/macs3-project/MACS")
+       (uri (git-reference
-                    (commit (string-append "v" version))
+              (url "https://github.com/macs3-project/MACS")
-                    (recursive? #true)))
+              (commit (string-append "v" version))
-              (file-name (git-file-name name version))
+              (recursive? #true)))
-              (sha256
+       (file-name (git-file-name name version))
-               (base32
+       (sha256
-                "08hi0a2a0md9gfg7jc75wxv69rggv2yqfd1hyrg4mi5bhi712m0v"))))
+        (base32 "16cv6bvvppi0z69r5l357ai8x4jg61rx8xrvcapk1wz6mh9naf5s"))))
     (build-system pyproject-build-system)
+    (arguments
+     (list
+      #:test-flags
+      ;; AssertionError: np.float32(1.0) != np.float64(-1.0)
+      ;; calculated step by step:
+      ;;  6.559423e-18
+      ;; expected:
+      ;;  -2.98155597e-18
+      #~(list (string-append "--deselect=test/test_SignalProcessing.py::"
+                             "Test_maxima::test_implement_smooth_here"))))
+    (native-inputs
+     (list python-cython
+           python-pytest
+           python-setuptools
+           zlib))
     (propagated-inputs
      (list python-cykhash
            python-hmmlearn
            python-numpy
            python-scikit-learn
            python-scipy))
-    (native-inputs
-     (list python-cython
-           python-pytest
-           python-setuptools
-           zlib))
     (home-page "https://github.com/macs3-project/MACS")
     (synopsis "Model based analysis for ChIP-Seq data")
     (description
@@ -14305,11 +14310,7 @@ quality control are provided.")
             (lambda _
               (substitute* "setup.cfg"
                 (("intervaltree~=3.0.2") "intervaltree")
-                (("termcolor~=1.1.0") "termcolor"))))
+                (("termcolor~=1.1.0") "termcolor")))))))
-          (add-after 'unpack 'fix-pytest-config
-            (lambda _
-              (substitute* "pyproject.toml"
-                ((" --cov=gdc_client --cov-report term") "")))))))
     (native-inputs
      (list python-flask
            python-httmock
@@ -20230,13 +20231,7 @@ fasta subsequences.")
               " and not test_roundtrip"
               ;; This test depends on ipytree, which contains a lot of
               ;; minified JavaScript.
-              " and not test_print_trees"))
+              " and not test_print_trees"))))
-      #:phases
-      #~(modify-phases %standard-phases
-          (add-after 'unpack 'fix-pytest-config
-            (lambda _
-              (substitute* "pyproject.toml"
-                ((".*--cov.*") "")))))))
     (native-inputs
      (list python-hatchling
            python-pytest))

gnu/packages/bittorrent.scm

@@ -86,7 +86,6 @@
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system meson)
   #:use-module (guix build-system pyproject)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system qt)
   #:use-module (guix download)
   #:use-module (guix gexp)
@@ -533,8 +532,9 @@ and will take advantage of multiple processor cores where possible.")
     (inputs (list boost-1.83 openssl))
     (native-inputs
      (list libfaketime
-           python-wrapper
+           pkg-config
-           pkg-config))
+           python-setuptools
+           python-wrapper))
     (home-page "https://www.libtorrent.org/")
     (synopsis "Feature-complete BitTorrent implementation")
     (description

gnu/packages/boost.scm

@@ -83,9 +83,6 @@
     (build-system gnu-build-system)
     (arguments
      (list
-      #:imported-modules %pyproject-build-system-modules
-      #:modules `(((guix build pyproject-build-system) #:select (python-version))
-                  ,@%default-gnu-modules)
       #:tests? #f
       #:configure-flags
       #~(let ((icu (dirname (dirname (search-input-file
@@ -94,17 +91,26 @@
            ;; Auto-detection looks for ICU only in traditional
            ;; install locations.
            (string-append "--with-icu=" icu)
-           ;; Ditto for Python.
+           ;; Ditto for Python.  The Gexp can't be evaluated if python is not
-           #$@(if (%current-target-system)
+           ;; in the inputs (e.g. boost-for-mysql), so delay its evaluation
-                  #~()
+           ;; after checking for python, rather than concurrently.
-                  #~((let ((python (dirname (dirname (search-input-file
+           #$@(force
-                                                      %build-inputs
+               (if (or (%current-target-system)
-                                                      "bin/python")))))
+                       (not (this-package-input "python-minimal-wrapper")))
-                       (string-append "--with-python-root=" python)
+                   (delay
-                       (string-append "--with-python=" python
+                     #~())
-                                      "/bin/python")
+                   (delay
-                       (string-append "--with-python-version="
+                     #~((let ((python (dirname (dirname (search-input-file
-                                      (python-version python)))))
+                                                         %build-inputs
+                                                         "bin/python")))))
+                          (string-append "--with-python-root=" python)
+                          (string-append "--with-python=" python
+                                         "/bin/python")
+                          (string-append "--with-python-version="
+                                         #$(version-major+minor
+                                            (package-version
+                                             (this-package-input
+                                              "python-minimal-wrapper")))))))))
            "--with-toolset=gcc"))
       #:make-flags
       #~(list "threading=multi" "link=shared"
@@ -200,29 +206,39 @@
           (replace 'install
             (lambda* (#:key make-flags #:allow-other-keys)
               (apply invoke "./b2" "install" make-flags)))
-          #$@(if (%current-target-system)
+          #$@(force  ; See above for why the force is necessary.
-                 #~()
+              (if (or (%current-target-system)
-                 #~((add-after 'install 'provide-libboost_python
+                      (not (this-package-input "python-minimal-wrapper")))
-                      (lambda* (#:key make-flags inputs outputs #:allow-other-keys)
+                  (delay
-                        (let* ((static? (member "link=static" make-flags))
+                    #~())
-                               (libext (if static? ".a" ".so"))
+                  (delay
-                               (python (dirname (dirname (search-input-file
+                    #~((add-after 'install 'provide-libboost_python
-                                                          inputs "bin/python"))))
+                         (lambda* (#:key make-flags inputs outputs
-                               (python-version (python-version python))
+                                   #:allow-other-keys)
-                               (libboost_pythonNN
+                           (let* ((static? (member "link=static" make-flags))
-                                (string-append "libboost_python"
+                                  (ext (if static? ".a" ".so"))
-                                               (string-join (string-split
+                                  (python (dirname
-                                                             python-version #\.)
+                                           (dirname (search-input-file
-                                                            "")
+                                                     inputs "bin/python"))))
-                                               libext)))
+                                  (python-version
-                          (with-directory-excursion (string-append #$output "/lib")
+                                   #$(version-major+minor
-                            (symlink libboost_pythonNN
+                                      (package-version
-                                     (string-append "libboost_python" libext))
+                                       (this-package-input
-                            ;; Some packages only look for the major version.
+                                        "python-minimal-wrapper"))))
-                            (symlink libboost_pythonNN
+                                  (NN (string-join (string-split
-                                     (string-append "libboost_python"
+                                                    python-version #\.)
-                                                    (string-take python-version 1)
+                                                   ""))
-                                                    libext)))))))))))
+                                  (libboost_pythonNN
+                                   (string-append "libboost_python" NN ext))
+                                  (major (string-take python-version 1)))
+                             (with-directory-excursion
+                                 (string-append #$output "/lib")
+                               (symlink libboost_pythonNN
+                                        (string-append "libboost_python" ext))
+                               ;; Some packages only look for the major version.
+                               (symlink libboost_pythonNN
+                                        (string-append "libboost_python"
+                                                       major ext)))))))))))))
     (inputs
      (append
       (list icu4c zlib)

gnu/packages/build-tools.scm

@@ -94,7 +94,6 @@
   #:use-module (guix build-system hare)
   #:use-module (guix build-system meson)
   #:use-module (guix build-system pyproject)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system trivial)
   #:use-module (guix deprecation)
   #:use-module (guix download)
@@ -432,9 +431,8 @@ files and generates build instructions for the Ninja build system.")
     (arguments
      (list
       #:tests? #f                       ;disabled to avoid extra dependencies
-      ;; Essentially a lighter copy of the former python-build-system.
+      ;; Custom build steps to prevent using pyproject-build-system which
-      ;; Using it rather than pyproject-build-system allows to edit the latter
+      ;; allows to edit the latter without a C++ world rebuild.
-      ;; without a C++ world rebuild.
       #:phases
       #~(modify-phases %standard-phases
           (delete 'bootstrap)

gnu/packages/c.scm

@@ -54,7 +54,6 @@
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system meson)
   #:use-module (guix build-system pyproject)
-  #:use-module (guix build-system python)
   #:use-module (guix store)
   #:use-module (gnu packages)
   #:use-module (gnu packages bash)

gnu/packages/calendar.scm

@@ -45,7 +45,6 @@
   #:use-module (guix build-system go)
   #:use-module (guix build-system cmake)
   #:use-module (guix build-system pyproject)
-  #:use-module ((guix build-system python) #:select (pypi-uri))
   #:use-module (gnu packages admin)
   #:use-module (gnu packages autotools)
   #:use-module (gnu packages base)

gnu/packages/check.scm

@@ -131,7 +131,6 @@
   #:use-module (guix build-system meson)
   #:use-module (guix build-system perl)
   #:use-module (guix build-system pyproject)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system trivial)
   #:use-module (ice-9 match)
   #:use-module (srfi srfi-1))
@@ -1882,7 +1881,6 @@ http server.")
     (arguments (list #:tests? #false)) ;no tests included
     (native-inputs
      (list python-pytest
-           python-pytest-cov
            python-setuptools
            python-wheel
            python-xmlschema))
@@ -1915,42 +1913,6 @@ XML output")
 decorators from external files.")
     (license license:expat)))
 
-(define-public python-pytest-random-order
-  (package
-    (name "python-pytest-random-order")
-    (version "1.1.1")
-    (source
-     (origin
-       (method url-fetch)
-       (uri (pypi-uri "pytest-random-order" version))
-       (sha256
-        (base32 "104hww3b86jchk41kjhyycr541pd2dfgqkww6lx5y70z9z9xfwj4"))))
-    (build-system pyproject-build-system)
-    (arguments
-     (list
-      #:test-flags
-      ;; AttributeError: module 'py' has no attribute 'code'.
-      #~(list "-k" (string-append "not test_it_works_with_actual_tests"
-                                  " and not test_failed_first"
-                                  " and not test_doctests"))))
-    (native-inputs
-     (list python-pytest-xdist
-           python-setuptools
-           python-py
-           python-wheel))
-    (propagated-inputs
-     (list python-pytest))
-    (home-page "https://github.com/jbasko/pytest-random-order")
-    (synopsis "Pytest plugin to randomize the order of tests")
-    (description "@code{pytest-random-order} is a Pytest plugin that
-randomizes the order of tests.  This can be useful to detect a test that
-passes just because it happens to run after an unrelated test that leaves the
-system in a favourable state.  The plugin allows user to control the level of
-randomness they want to introduce and to disable reordering on subsets of
-tests.  Tests can be rerun in a specific order by passing a seed value
-reported in a previous test run.")
-    (license license:expat)))
-
 (define-public python-pytest-runner
   (package
     (name "python-pytest-runner")
@@ -2956,12 +2918,8 @@ mypy plugins.")
                            "and not upstream_url"))))
     (native-inputs
      (list python-pytest
-           python-pytest-black
            python-pytest-checkdocs
-           python-pytest-cov
            python-pytest-enabler
-           python-pytest-flake8
-           python-pytest-mypy
            python-setuptools
            python-wheel))
     (propagated-inputs
@@ -3086,7 +3044,6 @@ possible to write plugins to add your own checks.")
            python-path
            python-pyhamcrest
            python-pytest
-           python-pytest-html
            python-setuptools))
     (propagated-inputs
      (list python-colorama

gnu/packages/chemistry.scm

@@ -28,7 +28,6 @@
   #:use-module (guix build-system cmake)
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system pyproject)
-  #:use-module (guix build-system python)
   #:use-module (guix download)
   #:use-module (guix gexp)
   #:use-module (guix git-download)
@@ -826,7 +825,7 @@ colleagues, or to generate pre-rendered animations.")
 (define-public python-pyscf
   (package
     (name "python-pyscf")
-    (version "2.9.0")
+    (version "2.12.1")
     (source
      (origin
        (method git-fetch)
@@ -835,14 +834,10 @@ colleagues, or to generate pre-rendered animations.")
               (commit (string-append "v" version))))
        (file-name (git-file-name name version))
        (sha256
-        (base32 "1lj48c749aqf9zd5xbshjsfr0y972r2nsm8lf3760jbfadg9jdsi"))))
+        (base32 "00q5c0r5yzp05m65679164s7jzm9678b63msm8g7953vh8v9g25y"))))
     (build-system pyproject-build-system)
     (arguments
      (list
-      #:modules
-      '((guix build pyproject-build-system)
-        (guix build utils)
-        (ice-9 textual-ports))
       ;; Some tests take a very long time and libxc support is not enabled.
       #:tests? #f
       #:phases
@@ -868,16 +863,8 @@ colleagues, or to generate pre-rendered animations.")
                          "-DBUILD_XCFUN=OFF"
                          "-DBUILD_LIBCINT=OFF"))))))))
     (native-inputs
-     (list
+     (list cmake-minimal
-      cmake-minimal
+           python-setuptools))
-      ;; HACK: Add gcc, make tune work.
-      ;; build-system-with-tuning-compiler on guix/transformations.scm
-      ;; want to find compiler on the build-inputs, but gcc is on the
-      ;; python-build-system's host-inputs, so when tune it , will report:
-      ;; "failed to determine which compiler is used"
-      (canonical-package gcc)
-      python-setuptools
-      python-wheel))
     (inputs
      (list
       ;; Use qcint when tuning for x86_64.

gnu/packages/cinnamon.scm

@@ -30,7 +30,6 @@
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system meson)
   #:use-module (guix build-system pyproject)
-  #:use-module (guix build-system python)
   #:use-module (gnu packages)
   #:use-module (gnu packages admin)
   #:use-module (gnu packages autotools)

gnu/packages/cmake.scm

@@ -47,7 +47,6 @@
   #:use-module (guix build-system copy)
   #:use-module (guix build-system emacs)
   #:use-module (guix build-system pyproject)
-  #:use-module (guix build-system python)
   #:use-module ((guix search-paths) #:select ($SSL_CERT_DIR $SSL_CERT_FILE))
   #:use-module (gnu packages)
   #:use-module (gnu packages backup)

gnu/packages/code.scm

@@ -49,7 +49,6 @@
   #:use-module (guix git-download)
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system cmake)
-  #:use-module ((guix build-system python) #:select (pypi-uri))
   #:use-module (guix build-system pyproject)
   #:use-module (guix build-system trivial)
   #:use-module (guix build-system go)

gnu/packages/cpp.scm

@@ -78,7 +78,6 @@
   #:use-module (guix build-system copy)
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system meson)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system pyproject)
   #:use-module (guix build-system scons)
   #:use-module (guix modules)
@@ -1904,8 +1903,7 @@ using the string similarity calculations from FuzzyWuzzy.")
           (add-after 'unpack 'fix-pytest-config
             (lambda _
               (substitute* "pyproject.toml"
-                ((" \"pytest-cov\", ") "")
+                (("\"pytest-cov\", ") "")))))))
-                ((" --cov-fail-under=90 --cov=cpplint") "")))))))
     (native-inputs
      (list python-pytest
            python-pytest-timeout

gnu/packages/crypto.scm

@@ -105,7 +105,6 @@
   #:use-module (guix build-system copy)
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system perl)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system pyproject)
   #:use-module (guix utils)
   #:use-module (srfi srfi-1)

gnu/packages/cups.scm

@@ -62,7 +62,6 @@
   #:use-module (guix build-system cmake)
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system meson)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system pyproject)
   #:use-module (guix download)
   #:use-module (guix git-download)

gnu/packages/cybersecurity.scm

@@ -31,7 +31,6 @@
   #:use-module ((guix licenses) #:prefix license:)
   #:use-module (guix build-system cmake)
   #:use-module (guix build-system pyproject)
-  #:use-module (guix build-system python)
   #:use-module (gnu packages databases)
   #:use-module (gnu packages check)
   #:use-module (gnu packages cpp)

gnu/packages/databases.scm

@@ -200,7 +200,6 @@
   #:use-module (guix build-system meson)
   #:use-module (guix build-system perl)
   #:use-module (guix build-system pyproject)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system qt)
   #:use-module (guix build-system ruby)
   #:use-module (guix build-system cmake)
@@ -1252,6 +1251,98 @@ management system that supports the standardized Structured Query
 Language.")
     (license license:gpl2)))
 
+(define-public mysql-connector-python
+  (package
+    (name "mysql-connector-python")
+    (version "8.3.0")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+              (url "https://github.com/mysql/mysql-connector-python")
+              (commit version)))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "18jvpnnwmfrn961rvqmsygp7dw3spf3swhxhal4hhj5hqddckj5f"))))
+    (build-system pyproject-build-system)
+    (arguments
+     (list
+      ;; tests: 1371 passed
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'compatibility
+            (lambda _
+              (substitute* "src/mysql_capi.c"
+                (("res = mysql_options\\(&self->session, MYSQL_OPT_LOAD_DATA_LOCAL_DIR.*")
+                 "res = 0;")
+                (("mysql_options\\(&self->session, MYSQL_OPT_LOAD_DATA_LOCAL_DIR.*")
+                 "")
+                (("mysql_options\\(&self->session, MYSQL_OPT_TLS_CIPHERSUITES.*")
+                 "")
+                ;; The C API does not have mysql_bind_param, so we produce an
+                ;; error here.
+                (("status = mysql_bind_param.*") "status = 1;")
+                (("#include \"mysql_capi_conversion\\.h\"" all)
+                 (string-append all "\n" "#include <stdbool.h>")))))
+          (add-after 'unpack 'chdir
+            (lambda _
+              (chdir "mysql-connector-python")))
+          (add-before 'build 'prepare-build
+            (lambda _
+              (setenv "MYSQL_CAPI" #$(this-package-input "mysql"))))
+          (replace 'check
+            (lambda* (#:key tests? #:allow-other-keys)
+              (when tests?
+                ;; Some of these tests might be failing due to the build
+                ;; container's restrictions, others are due to the version
+                ;; mismatch.
+                (substitute* "tests/cext/test_cext_api.py"
+                  (("def test_change_user") "def _do_not_test_change_user")
+                  (("def test_get_character_set_info")
+                   "def _do_not_test_get_character_set_info"))
+                (substitute* "tests/test_bugs.py"
+                  (("def test_change_user") "def _do_not_test_change_user")
+                  (("def test_lost_connection") "def _do_not_test_lost_connection")
+                  (("def test_kill_query") "def _do_not_test_kill_query")
+                  ;; These all fail because of expired certificates.
+                  (("def test_cext_verify_server_certificate")
+                   "def _do_not_test_cext_verify_server_certificate")
+                  (("def test_pure_verify_server_certificate")
+                   "def _do_not_test_pure_verify_server_certificate")
+                  (("def test_verify_server_name_cext_cnx")
+                   "def _do_not_test_verify_server_name_cext_cnx")
+                  (("def test_verify_server_name_pure_cnx")
+                   "def _do_not_test_verify_server_name_pure_cnx"))
+                (substitute* '("tests/test_connection.py"
+                               "tests/test_aio_connection.py")
+                  (("def test_allow_local_infile_in_path")
+                   "def _do_not_test_allow_local_infile_in_path")
+                  ;; This fails because of expired certificates.
+                  (("def test_connect_with_unix_socket")
+                   "def _do_not_test_connect_with_unix_socket"))
+                (substitute* "tests/test_constants.py"
+                  (("def test_deprecated")
+                   "def _do_not_test_deprecated"))
+                (mkdir-p "/tmp/datadir")
+                (invoke "python3" "unittests.py"
+                        "--verbosity=3"
+                        (string-append "--with-mysql=" #$(this-package-input "mysql"))
+                        "--keep"
+                        "--mysql-topdir=/tmp/datadir"
+                        "--unix-socket=/tmp/datadir")))))))
+    (propagated-inputs (list python-protobuf))
+    (inputs (list mysql protobuf-3.20 openssl-1.1 zlib))
+    (native-inputs (list python-setuptools))
+    (home-page "https://dev.mysql.com/doc/connector-python/en/index.html")
+    (synopsis "MySQL driver written in Python")
+    (description "MySQL Connector/Python enables Python programs to access
+MySQL databases, using an API that is compliant with the Python Database API
+Specification v2.0 (PEP 249).")
+    (license license:gpl2)))
+
+(define-deprecated-package python-mysql-connector-python
+  mysql-connector-python)
+
 (define-public mariadb
   (package
     (name "mariadb")
@@ -4653,33 +4744,24 @@ PickleShare.")
 (define-public python-apsw
   (package
     (name "python-apsw")
-    (version "3.46.0.0")
+    (version "3.50.4.0")
-    ;; The compressed release has fetching functionality disabled.
     (source
      (origin
-       (method url-fetch)
+       (method git-fetch)
-       (uri (string-append
+       (uri (git-reference
-             "https://github.com/rogerbinns/apsw/releases/download/"
+              (url "https://github.com/rogerbinns/apsw")
-             version "/apsw-" version ".zip"))
+              (commit version)))
+       (file-name (git-file-name name version))
        (sha256
-        (base32
+        (base32 "0r9awjgpl9cmqz5xd4zbqrpiv0rv5c36a18jkqnsfky6n6sgr424"))))
-         "10yfbasi4mq63g0svyl1h49ylwn9znjylq78id16dzxzk9q9ipdx"))))
     (build-system pyproject-build-system)
-    (native-inputs
-     (list unzip python-setuptools python-wheel))
-    (inputs (list sqlite-next))         ;SQLite 3.45.1 required.
     (arguments
-     (list
+     (list #:test-backend #~'custom
-      #:phases
+           #:test-flags #~(list "-m" "apsw.tests")))
-      #~(modify-phases %standard-phases
+    (native-inputs
-          (add-before 'build 'build-extensions
+     (list python-setuptools))
-            (lambda _
+    (inputs
-              (invoke "python" "setup.py" "build" "--enable-all-extensions"
+     (list sqlite-next))         ;SQLite 3.45.1 required.
-                      "--enable=load_extension")))
-          (add-after 'build 'build-test-helper
-            (lambda _
-              (invoke "gcc" "-fPIC" "-shared" "-o" "./testextension.sqlext"
-                      "-I." "-Isqlite3" "src/testextension.c"))))))
     (home-page "https://github.com/rogerbinns/apsw/")
     (synopsis "Another Python SQLite Wrapper")
     (description
@@ -5608,7 +5690,6 @@ __version_tuple__ = version_tuple = (~a)~%" version version-tuple))))))
            pkg-config
            python-cython
            python-pytest
-           python-pytest-runner
            python-setuptools-scm
            python-setuptools))
     (outputs '("out"))
@@ -6205,7 +6286,7 @@ mechanism of @code{dogpile}.")
 (define-public datasette
   (package
     (name "datasette")
-    (version "1.0a19")
+    (version "1.0a26")
     (source
      (origin
        (method git-fetch)
@@ -6214,23 +6295,20 @@ mechanism of @code{dogpile}.")
               (commit version)))
        (file-name (git-file-name name version))
        (sha256
-        (base32 "0wb73iksrc5vg2lnq3q4vr7yhlzxwr711jfmjdndd0s77996zsfh"))))
+        (base32 "1ra0yfrz9w3jx7ix3dmcsg0g8hjxkz37586g7ijmqshxpzczxfm7"))))
     (build-system pyproject-build-system)
     (arguments
      (list
+      ;; tests: 1720 passed, 9 skipped, 8 xfailed, 13 xpassed, 3 warnings, 120
+      ;; subtests passed
       #:test-flags
-      ;; See https://github.com/simonw/datasette/issues/2048
+      #~(list "--numprocesses" (number->string (min 8 (parallel-job-count)))
-      #~(list "-k" (string-append
+              "--ignore=tests/test_black.py")
-                    ;; These contain two unexpected extra items.
-                    "not test_searchable"
-                    " and not test_searchmode")
-              "--ignore=tests/test_black.py"
-              "-n" (number->string (parallel-job-count)))
       #:phases
       #~(modify-phases %standard-phases
           (add-after 'unpack 'relax-requirements
             (lambda _
-              (substitute* "setup.py"
+              (substitute* "pyproject.toml"
                 (("\"pip\",") "")))))))
     (propagated-inputs
      (list python-aiofiles
@@ -6245,7 +6323,6 @@ mechanism of @code{dogpile}.")
            python-janus
            python-jinja2
            python-mergedeep
-           python-pint
            python-pluggy
            python-pyyaml
            python-sqlite-utils
@@ -6254,9 +6331,9 @@ mechanism of @code{dogpile}.")
      (list nss-certs-for-test
            python-beautifulsoup4
            python-cogapp
+           python-multipart-form-data-conformance
            python-pytest
-           python-pytest-asyncio-0.26
+           python-pytest-asyncio
-           python-pytest-runner
            python-pytest-timeout
            python-pytest-xdist
            python-setuptools

gnu/packages/dav.scm

@@ -27,7 +27,6 @@
 (define-module (gnu packages dav)
   #:use-module (guix build-system cargo)
   #:use-module (guix build-system gnu)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system pyproject)
   #:use-module (guix download)
   #:use-module (guix gexp)
@@ -143,9 +142,6 @@ CardDAV server with a local folder or file.")
     (build-system pyproject-build-system)
     (native-inputs
      (list python-pytest
-           python-pytest-cov
-           python-pytest-flake8
-           python-pytest-isort
            python-setuptools
            python-waitress
            python-wheel))
@@ -244,7 +240,6 @@ efficient syncing
      (list python-aioresponses
            python-pytest
            python-pytest-asyncio
-           python-pytest-cov
            python-pytest-httpserver
            python-setuptools
            python-setuptools-scm

gnu/packages/debug.scm

@@ -275,7 +275,7 @@ simple way to add custom protocol messages.")
        (file-name (git-file-name name version))))
     (build-system cmake-build-system)
     (native-inputs
-     (list flex python-pytest python-pytest-flake8))
+     (list flex python-pytest))
     (inputs
      (list bash-minimal clang llvm unifdef
            python python-pebble python-psutil python-chardet))
@@ -1213,7 +1213,7 @@ and input distributions can also be expressed in Fandango.")
                           ;; Shorten paths to sockets in tests.
                           (lambda _ (setenv "TMPDIR" "/tmp"))))
            #:test-target "test"))
-    (native-inputs (list python))      ; for tests
+    (native-inputs (list python python-setuptools)) ; for tests
     (synopsis "Fault injector in userspace")
     (description "Fiu provides CLI utilities and a C library
 to mark points of failure inside your code

gnu/packages/dhall.scm

@@ -31,13 +31,13 @@
 (define-public dhall
   (package
     (name "dhall")
-    (version "1.42.2")
+    (version "1.41.2")
-    (source
+    (source (origin
-     (origin
+              (method url-fetch)
-       (method url-fetch)
+              (uri (hackage-uri "dhall" version))
-       (uri (hackage-uri "dhall" version))
+              (sha256
-       (sha256
+               (base32
-        (base32 "0fvvqvh6diqi55dmncfs06rvcw8k0a1hs2gq228yxvsfbzcpv44s"))))
+                "14m5rrvkid76qnvg0l14xw1mnqclhip3gjrz20g1lp4fd5p056ka"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "dhall")))
     (inputs (list ghc-aeson
@@ -73,8 +73,8 @@
                   ghc-text-manipulate
                   ghc-text-short
                   ghc-th-lift-instances
-                  ghc-unix-compat
                   ghc-unordered-containers
+                  ghc-uri-encode
                   ghc-vector
                   ghc-cryptohash-sha256
                   ghc-http-types
@@ -86,6 +86,7 @@
                          ghc-quickcheck-instances
                          ghc-special-values
                          ghc-spoon
+                         ghc-system-filepath
                          ghc-tasty
                          ghc-tasty-expected-failure
                          ghc-tasty-hunit
@@ -96,8 +97,9 @@
                          ghc-mockery
                          ghc-doctest))
     (arguments
-     `(#:cabal-revision ("2"
+     `(#:tests? #f ; Tries to access httpbin.org
-                         "1h9kxpn3kzwmxj07mqc0cxjj2ak3dyxnifb78z5vn34xn747j5bk")))
+       #:cabal-revision ("4"
+                         "0innb3cn98ynb8bd83jdyrm64ij7wcvajg5qcwzdwbyzpr62anfx")))
     (home-page "http://hackage.haskell.org/package/dhall")
     (synopsis "Configuration language guaranteed to terminate")
     (description

gnu/packages/dictionaries.scm

@@ -41,7 +41,6 @@
   #:use-module (guix build-system copy)
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system pyproject)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system qt)
   #:use-module (guix build-system trivial)
   #:use-module (gnu packages)

gnu/packages/diffoscope.scm

@@ -67,7 +67,6 @@
   #:use-module (gnu packages vim)
   #:use-module (gnu packages web)
   #:use-module (gnu packages xml)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system pyproject)
   #:use-module (guix gexp)
   #:use-module (guix git-download)
@@ -290,14 +289,6 @@ install.")
               (for-each (lambda (file)
                           (chmod file #o755))
                         (find-files #$output "autopkgtest-virt-.*"))))
-          ;; Adjust use of importlib.resources to use python 3.10 compatible
-          ;; syntax, which requires an argument.
-          ;; Drop when switching to python 3.12+.
-          (add-after 'unpack 'adjust-importlib-resources-for-old-python
-            (lambda _
-              (substitute* "reprotest/__init__.py"
-                (("importlib.resources.files\\(\\)")
-                  "importlib.resources.files(package='reprotest')"))))
           (add-after 'unpack 'skip-most-tests
             ;; These tests require functionality not available in the guix
             ;; build environment

gnu/packages/digest.scm

@@ -27,7 +27,6 @@
   #:use-module (guix git-download)
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system pyproject)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system trivial)
   #:use-module (guix utils)
   #:use-module (gnu packages check)

gnu/packages/disk.scm

@@ -59,7 +59,6 @@
   #:use-module (guix build-system meson)
   #:use-module (guix build-system perl)
   #:use-module (guix build-system pyproject)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system qt)
   #:use-module (guix build-system scons)
   #:use-module (guix build-system trivial)

gnu/packages/django.scm

@@ -37,7 +37,6 @@
   #:use-module (guix git-download)
   #:use-module (guix gexp)
   #:use-module (guix build-system pyproject)
-  #:use-module (guix build-system python)
   #:use-module (guix deprecation)
   #:use-module (guix search-paths)
   #:use-module (guix utils)
@@ -329,7 +328,7 @@ to the @dfn{don't repeat yourself} (DRY) principle.")
         (base32 "1a5vd07wrnfbclvf6pz9p8ag9kdd1453lsl9q0bkyc45hq2xqd2a"))))
     (build-system pyproject-build-system)
     (native-inputs
-     (list python-django python-pytest python-pytest-cov python-setuptools))
+     (list python-django python-pytest python-setuptools))
     (home-page "https://github.com/epicserve/django-cache-url")
     (synopsis "Configure Django cache settings from URLs")
     (description
@@ -420,7 +419,6 @@ and adapters that are useful for non-trivial configuration scenarios.")
            python-factory-boy
            python-pygments
            python-pytest
-           python-pytest-cov ; runs by default
            python-pytest-django
            python-setuptools
            python-shortuuid
@@ -1329,7 +1327,6 @@ server headers required for Cross-Origin Resource Sharing (CORS).")
            python-mock
            python-msgpack
            python-pytest
-           python-pytest-cov
            python-pytest-django
            python-pytest-mock
            python-setuptools
@@ -2186,7 +2183,6 @@ templates and not in python-level form definitions.")
     (build-system pyproject-build-system)
     (native-inputs
      (list python-pytest
-           python-pytest-cov ; runs by default
            python-pytest-django
            python-setuptools
            python-wheel))

gnu/packages/djvu.scm

@@ -29,7 +29,6 @@
   #:use-module (guix git-download)
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system pyproject)
-  #:use-module (guix build-system python)
   #:use-module (gnu packages autotools)
   #:use-module (gnu packages base)
   #:use-module (gnu packages bash)

gnu/packages/docbook.scm

@@ -53,7 +53,6 @@
   #:use-module (guix build-system copy)
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system pyproject)
-  #:use-module (guix build-system python)
   #:use-module (srfi srfi-26))
 
 ;; The fetch-plan, install-plan and phases for docbook-xml tend to vary
@@ -666,7 +665,8 @@ the in DocBook SGML DTDs.")
                (base32
                 "0yd09nypswy3q4scri1dg7dr99d7gd6r2dwx0xm81l9f4y32gs0n"))
               (patches
-               (search-patches "dblatex-inkscape-1.0.patch"))))
+               (search-patches "dblatex-importlib.patch"
+                               "dblatex-inkscape-1.0.patch"))))
     (outputs '("out" "doc"))
     (build-system pyproject-build-system)
     (arguments

gnu/packages/docker.scm

@@ -39,7 +39,6 @@
   #:use-module (guix build-system cmake)
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system go)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system pyproject)
   #:use-module (guix utils)
   #:use-module (gnu packages autotools)

gnu/packages/documentation.scm

@@ -41,7 +41,6 @@
   #:use-module (guix build-system cmake)
   #:use-module (guix build-system copy)
   #:use-module (guix build-system perl)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system pyproject)
   #:use-module (guix build-system qt)
   #:use-module (guix deprecation)
@@ -472,9 +471,8 @@ inspired by Dash.")
     (build-system gnu-build-system)
     (arguments
      (list
-      ;; Essentially a lighter copy of the former python-build-system.
+      ;; Custom build steps to prevent using pyproject-build-system which
-      ;; Using it rather than pyproject-build-system allows to edit the latter
+      ;; allows to edit the latter without a texlive + haskell world rebuild.
-      ;; without a texlive + haskell world rebuild.
       #:phases
       #~(modify-phases %standard-phases
           (delete 'bootstrap)

gnu/packages/dotnet.scm

@@ -62,7 +62,6 @@
   #:use-module (guix utils)
   #:use-module (guix build-system cmake)
   #:use-module (guix build-system gnu)
-  #:use-module (guix build-system python)
   #:use-module (ice-9 match))
 
 (define-public treecc

gnu/packages/duckdb.scm

@@ -25,7 +25,6 @@
   #:use-module ((guix licenses) #:prefix license:)
   #:use-module (guix build-system cmake)
   #:use-module (guix build-system pyproject)
-  #:use-module ((guix build-system python) #:select (pypi-uri))
   #:use-module (guix build-system r)
   #:use-module (guix download)
   #:use-module (guix gexp)

gnu/packages/ebook.scm

@@ -40,7 +40,6 @@
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system meson)
   #:use-module (guix build-system pyproject)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system qt)
   #:use-module (gnu packages)
   #:use-module (gnu packages autotools)

gnu/packages/education.scm

@@ -91,7 +91,6 @@
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system go)
   #:use-module (guix build-system pyproject)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system qt)
   #:use-module (guix build-system trivial)
   #:use-module (srfi srfi-1))

gnu/packages/electronics.scm

@@ -64,7 +64,6 @@
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system meson)
   #:use-module (guix build-system pyproject)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system qt)
   #:use-module (guix deprecation)
   #:use-module (guix download)
@@ -480,8 +479,10 @@ individual low-level driver modules.")
     (build-system gnu-build-system)
     (arguments
      (list
-      #:imported-modules (append %default-gnu-imported-modules
+      #:imported-modules %pyproject-build-system-modules
-                                 %python-build-system-modules)
+      #:modules '((guix build gnu-build-system)
+                  ((guix build pyproject-build-system) #:prefix py:)
+                  (guix build utils))
       #:make-flags
       #~(list (string-append "PREFIX=" #$output))
       #:phases
@@ -507,8 +508,7 @@ individual low-level driver modules.")
                 ;; https://github.com/YosysHQ/eqy/actions/runs/18767539188/job/53545383858
                 (invoke "make" "-C" "examples/spm")
                 (invoke "make" "-C" "examples/simple"))))
-          (add-after 'install 'python:wrap
+          (add-after 'install 'python:wrap py:wrap))))
-            (@@ (guix build python-build-system) wrap)))))
     (native-inputs
      (list clang python-minimal-wrapper python-sphinx texinfo yosys))
     (inputs
@@ -2072,7 +2072,10 @@ versus schematic} tests and can assist with automatic routing.")
      (list
       #:tests? #f                       ;there are no tests
       #:imported-modules (append %qt-build-system-modules
-                                 %python-build-system-modules)
+                                 %pyproject-build-system-modules)
+      #:modules '((guix build qt-build-system)
+                  ((guix build pyproject-build-system) #:prefix py:)
+                  (guix build utils))
       #:phases
       #~(modify-phases %standard-phases
           (add-after 'unpack 'build-info-documentation
@@ -2100,8 +2103,7 @@ versus schematic} tests and can assist with automatic routing.")
                   (chmod bin_ #o755)))
               (install-it "mcy")
               (install-it "mcy-dash")))
-          (add-after 'make-install 'python:wrap
+          (add-after 'make-install 'python:wrap py:wrap))))
-            (@@ (guix build python-build-system) wrap)))))
     (native-inputs
      (list pkg-config
            python-sphinx
@@ -3008,7 +3010,6 @@ Numpy arrays for convenience.")
               (setenv "PDM_BUILD_SCM_VERSION" #$version))))))
     (native-inputs
      (list python-pdm-backend
-           python-pytest-cov
            python-setuptools
            python-setuptools-scm
            sby
@@ -3321,9 +3322,7 @@ Standard} data mode.")
         (base32 "15nnydvr1a4ykh8cagi484sfgvdg0dnjxaw6c0ivhjbrbblpaqnw"))))
     (build-system pyproject-build-system)
     (native-inputs
-     (list python-pytest-cov
+     (list python-setuptools python-setuptools-scm))
-           python-setuptools
-           python-setuptools-scm))
     (home-page "http://pyvcd.readthedocs.io/")
     (synopsis "Library to manipulate digital wave files")
     (description
@@ -3600,10 +3599,7 @@ Automation}.")
                          #$output "/share/info/hdlmake-figures")))))
       #:test-flags #~(list "test_all.py")))
     (native-inputs
-     (list python-pytest-cov
+     (list python-setuptools python-sphinx texinfo))
-           python-setuptools
-           python-sphinx
-           texinfo))
     (propagated-inputs (list python-networkx))
     (home-page "https://ohwr.gitlab.io/project/hdl-make/")
     (synopsis "Generate multi-purpose makefiles for HDL projects")
@@ -3766,18 +3762,9 @@ design.")
       ;; Tests are expensive and may introduce race condition on systems with
       ;; high (more than 16) threads count; limit parallel jobs to 8x.
       #~(list
-         "--numprocesses" (number->string (min 8 (parallel-job-count))))
+         "--numprocesses" (number->string (min 8 (parallel-job-count))))))
-      #:phases
-      #~(modify-phases %standard-phases
-          (add-after 'unpack 'pathch-pytest-options
-            (lambda _
-              (substitute* "pyproject.toml"
-                ((".*--cov=.*") "")
-                ((".*--self-contained-html.*") "")
-                ((".*-n.*auto.*") "")))))))
     (native-inputs
-     (list python-pytest-cov
+     (list python-pytest
-           python-pytest-html
            python-pytest-xdist
            python-setuptools))
     (propagated-inputs
@@ -4246,11 +4233,10 @@ them usable as simple logic analyzer and/or oscilloscope hardware.")
      (list
       #:parallel-tests? #f
       #:test-target "test"
+      #:imported-modules %pyproject-build-system-modules
       #:modules `((guix build gnu-build-system)
-                  ((guix build python-build-system) #:prefix python:)
+                  ((guix build pyproject-build-system) #:prefix python:)
                   (guix build utils))
-      #:imported-modules `(,@%default-gnu-imported-modules
-                           (guix build python-build-system))
       #:make-flags #~(list (string-append "PREFIX=" #$output))
       #:phases
       #~(modify-phases %standard-phases

gnu/packages/emacs-xyz.scm

@@ -784,7 +784,7 @@ reading the extensive documentation about BookmarkPlus on the Emacs Wiki.")
   (package
     (name "emacs-bqn-mode")
     ;; Upstream releases are tagged by date.
-    (version "2025-07-06")
+    (version "2026-02-08")
     (source
      (origin
        (method git-fetch)
@@ -793,7 +793,7 @@ reading the extensive documentation about BookmarkPlus on the Emacs Wiki.")
              (commit version)))
        (file-name (git-file-name name version))
        (sha256
-        (base32 "1b25k66nn4qa4ryhm8mzc53qvsvhgjzdngisw28cpdh109627iz3"))))
+        (base32 "1m9l4if3a9i6r76v370gh6azgj2lwqcnpavfv2bkvm9ad56f3pa8"))))
     (build-system emacs-build-system)
     (arguments
      (list #:tests? #f)) ;No tests found in source.
@@ -13826,7 +13826,7 @@ generates it as a string.  Please see the homepage for usage examples.")
       #:imported-modules (append %emacs-build-system-modules
                                  %pyproject-build-system-modules)
       #:modules '((guix build emacs-build-system)
-                  ((guix build python-build-system) #:prefix py:)
+                  ((guix build pyproject-build-system) #:prefix py:)
                   (guix build emacs-utils)
                   (guix build utils))
       #:phases
@@ -24580,6 +24580,13 @@ Meow’s motions.")
       #:tests? #f                       ; no test suite
       #:phases
       #~(modify-phases %standard-phases
+          (add-before 'patch-el-files 'patch-xauth-path
+            ;; Uses xauth directly at runtime to authenticate with the X server.
+            (lambda* (#:key inputs #:allow-other-keys)
+              (substitute* "xcb.el"
+                (("xauth list")
+                 (string-append (search-input-file inputs "/bin/xauth")
+                                " list")))))
           (add-after 'expand-load-path 'regenerate-el-files
             (lambda* (#:key inputs native-inputs #:allow-other-keys)
               (substitute* "xelb-gen"
@@ -24587,6 +24594,7 @@ Meow’s motions.")
               (invoke "make"
                       (format #f "PROTO_PATH=~a/share/xcb"
                               #$(this-package-native-input "xcb-proto"))))))))
+    (inputs (list xauth))
     (native-inputs (list xcb-proto))
     (propagated-inputs (list emacs-compat))
     (home-page "https://github.com/emacs-exwm/xelb")
@@ -35412,12 +35420,199 @@ files are easily readable and they work nicely with version control systems.")
       (build-system emacs-build-system)
       (arguments
        (list #:include #~(cons "^data\\/" %default-include)
-             #:tests? #f))              ; no tests
+             #:tests? #f              ; no tests
+             #:phases
+             #~(modify-phases %standard-phases
+                 ;; The nerd-icons-install-fonts function would otherwise
+                 ;; download fonts from the network.  Replace it with a stub
+                 ;; that instructs the user to install the font via Guix.
+                 (add-after 'unpack 'disable-font-installer
+                   (lambda _
+                     (emacs-batch-edit-file "nerd-icons.el"
+                       '(progn
+                         (search-forward "(defun nerd-icons-install-fonts")
+                         (beginning-of-line)
+                         (kill-sexp)
+                         (insert "\
+(defun nerd-icons-install-fonts (&optional pfx)
+  (interactive \"P\")
+  (message \"To use nerd-icons fonts, install `font-nerd-symbols' using
+`guix package -i font-nerd-symbols' or add it to your manifest or home config.
+Remember, that you may have to run `fc-cache -rv' to refresh the font cache.\
+\"))")
+                         (basic-save-buffer))))))))
       (synopsis "Library for easily using nerd font icons inside Emacs")
       (description "Nerd-icons an alternative to all-the-icons.  It works on both
 GUI and terminal, and requires a nerd font installed on your system.")
       (license license:gpl3+))))
 
+(define-public emacs-nerd-icons-dired
+  ;; No tags provided upstream
+  (let ((commit "adf9a2bb5f3f13be7a676923639337f3fcc5d8c3")
+        (revision "0"))
+    (package
+      (name "emacs-nerd-icons-dired")
+      (version (git-version "0.0.1" revision commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+                (url "https://github.com/rainstormstudio/nerd-icons-dired")
+                (commit commit)))
+         (file-name (git-file-name name version))
+         (sha256
+          (base32 "0x1xmwlfjgbk5kk4bxvgz4ykwwgiwmdbzhgsw49kpzz678a3qzrp"))))
+      (build-system emacs-build-system)
+      (arguments
+       (list
+        #:tests? #f))                   ;no tests
+      (propagated-inputs (list emacs-nerd-icons))
+      (home-page "https://github.com/rainstormstudio/nerd-icons-dired")
+      (synopsis "Icons for Dired via Nerd Icons")
+      (description
+       "This package adds icons to Dired, using the @code{nerd-icons} package.")
+      (license license:gpl3+))))
+
+(define-public emacs-nerd-icons-ivy-rich
+  ;; Tagged release is not up-to-date, according to the "Version:" keyword in
+  ;; main file.
+  (let ((commit "5006f91b49e86e232cdc1a628501b76124c41dac")
+        (revision "0"))
+    (package
+      (name "emacs-nerd-icons-ivy-rich")
+      (version (git-version "1.0.1" revision commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+                (url "https://github.com/seagle0128/nerd-icons-ivy-rich")
+                (commit commit)))
+         (file-name (git-file-name name version))
+         (sha256
+          (base32 "0m62l4cl9j3ssd25rz40vgrv99bmwn6l4ig2sf8zzi0fpzm8axgh"))))
+      (build-system emacs-build-system)
+      (arguments
+       (list
+        #:tests? #f))                   ;tests require Cask
+      (propagated-inputs
+       (list emacs-ivy-rich
+             emacs-nerd-icons))
+      (home-page "https://github.com/seagle0128/nerd-icons-ivy-rich")
+      (synopsis "Icons for Ivy via Nerd Icons")
+      (description
+       "This package adds icons to Ivy, using the @code{ivy-rich} and
+@code{nerd-icons} packages.")
+      (license license:gpl3+))))
+
+(define-public emacs-nerd-icons-ibuffer
+  (package
+    (name "emacs-nerd-icons-ibuffer")
+    (version "1.0.0")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+              (url "https://github.com/seagle0128/nerd-icons-ibuffer")
+              (commit (string-append "v" version))))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "1wj6kcgvh700maj9i5pmgzc48lbj0dbxx849a8w519m4anr7b23s"))))
+    (build-system emacs-build-system)
+    (arguments
+     (list
+      #:tests? #f))                   ;tests require Cask
+    (propagated-inputs
+     (list emacs-nerd-icons))
+    (home-page "https://github.com/seagle0128/nerd-icons-ibuffer")
+    (synopsis "Icons for Ibuffer via Nerd Icons")
+    (description
+     "This package adds icons to ibuffer in Emacs, using the @code{nerd-icons}
+package.")
+    (license license:gpl3+)))
+
+(define-public emacs-nerd-icons-completion
+  ;; No tags provided upstream
+  (let ((commit "63a6b3f1eb98bb381c86a1658ac401c8967079b8")
+        (revision "0"))
+    (package
+      (name "emacs-nerd-icons-completion")
+      (version (git-version "0.0.1" revision commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+                (url "https://github.com/rainstormstudio/nerd-icons-completion")
+                (commit commit)))
+         (file-name (git-file-name name version))
+         (sha256
+          (base32 "08p361rh5mv3ng10av1381kzl9s4msdjyca96hsgsh05qwq5pdrf"))))
+      (build-system emacs-build-system)
+      (arguments
+       (list
+        #:tests? #f))                   ;no tests
+      (propagated-inputs (list emacs-nerd-icons))
+      (home-page "https://github.com/rainstormstudio/nerd-icons-completion")
+      (synopsis "Icons for Emacs minibuffer completion via Nerd Icons")
+      (description
+       "This package adds icons to minibuffer completion in Emacs, using the
+@code{nerd-icons} package.  It supports @code{vertico} and @code{marginalia}.")
+      (license license:gpl3+))))
+
+(define-public emacs-nerd-icons-corfu
+  (package
+    (name "emacs-nerd-icons-corfu")
+    (version "1.0.0")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+              (url "https://github.com/LuigiPiucco/nerd-icons-corfu")
+              (commit (string-append "v" version))))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "036p45wqwrqhn5xv5sn3gsm2mb79gj6fk24zpkfa7wrv45qqgb21"))))
+    (build-system emacs-build-system)
+    (arguments
+     (list
+      #:tests? #f))                   ;no tests
+    (propagated-inputs
+     (list emacs-corfu
+           emacs-nerd-icons))
+    (home-page "https://github.com/LuigiPiucco/nerd-icons-corfu")
+    (synopsis "Icons for Corfu via Nerd Icons")
+    (description
+     "This package adds icons to @code{corfu}, using the @code{nerd-icons}
+package.")
+    (license license:gpl3+)))
+
+(define-public emacs-nerd-icons-mode-line
+  ;; No tags provided upstream
+  (let ((commit "23eca8e16799524889d661f4140355e81b8f929c")
+        (revision "0"))
+    (package
+      (name "emacs-nerd-icons-mode-line")
+      (version (git-version "0.0.1" revision commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+                (url "https://github.com/grolongo/nerd-icons-mode-line")
+                (commit commit)))
+         (file-name (git-file-name name version))
+         (sha256
+          (base32 "0l2bg22cllab9wz5wxd6zhrywavqrlvv1a6y49ij63qhlsfncy6s"))))
+      (build-system emacs-build-system)
+      (arguments
+       (list
+        #:tests? #f))                   ;no tests
+      (propagated-inputs (list emacs-nerd-icons))
+      (home-page "https://github.com/grolongo/nerd-icons-mode-line")
+      (synopsis "Icons for the Emacs modeline via Nerd Icons")
+      (description
+       "This package adds icons to the modeline in Emacs, using the
+@code{nerd-icons} package.")
+      (license license:gpl3+))))
+
 (define-public emacs-all-the-icons
   ;; The latest release was on 3 June 2021.
   (let ((commit "4778632b29c8c8d2b7cd9ce69535d0be01d846f9")

gnu/packages/embedded.scm

@@ -45,7 +45,6 @@
   #:use-module (guix build-system cmake)
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system pyproject)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system trivial)
   #:use-module ((guix build utils) #:select (alist-replace delete-file-recursively))
   #:use-module (gnu packages)
@@ -2033,13 +2032,7 @@ whereas kdmx creates pseudo-ttys.")
       ;; tests: 631 passed, 27 skipped, 1 warning
       #:test-flags
       ;; E   ModuleNotFoundError: No module named 'mbed_tools_ci_scripts'
-      #~(list "--ignore=tests/ci_scripts/test_sync_board_db.py")
+      #~(list "--ignore=tests/ci_scripts/test_sync_board_db.py")))
-      #:phases
-      #~(modify-phases %standard-phases
-          (add-after 'unpack 'fix-pytest-config
-            (lambda _
-              (substitute* "pytest.ini"
-                (("addopts = .*") "")))))))
     (native-inputs
      (list python-factory-boy
            python-pytest

gnu/packages/emulators.scm

@@ -140,7 +140,6 @@
   #:use-module (guix build-system glib-or-gtk)
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system meson)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system pyproject)
   #:use-module (guix build-system qt)
   #:use-module (guix build-system trivial))

gnu/packages/enchant.scm

@@ -41,7 +41,6 @@
   #:use-module (guix build-system cmake)
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system pyproject)
-  #:use-module (guix build-system python)
   #:use-module (guix licenses)
   #:use-module (srfi srfi-1))
 

gnu/packages/engineering.scm

@@ -77,7 +77,6 @@
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system meson)
   #:use-module (guix build-system pyproject)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system qt)
   #:use-module (guix download)
   #:use-module (guix gexp)
@@ -1828,7 +1827,6 @@ it suitable for security research and analysis.")
     (native-inputs (list python-gitpython
                          python-pytest
                          python-pytest-asyncio
-                         python-pytest-cov
                          python-pytest-mock
                          python-setuptools))
     (inputs (list bash-minimal
@@ -2367,7 +2365,6 @@ Newton-Raphson power flow solvers in the C++ library lightsim2grid, and the
                          python-networkx
                          python-openpyxl
                          python-pytest
-                         python-pytest-cov ; --cov runs by default on skrf
                          python-pytest-mock
                          python-pyvisa
                          python-setuptools
@@ -2901,20 +2898,22 @@ interpolation toolkit.")
 (define-public python-motulator
   (package
     (name "python-motulator")
-    (version "0.5.0")
+    (version "0.6.2")
     (source
      (origin
-       (method url-fetch)
+       (method git-fetch)
-       (uri (pypi-uri "motulator" version))
+       (uri (git-reference
+              (url "https://github.com/Aalto-Electric-Drives/motulator/")
+              (commit (string-append "v" version))))
+       (file-name (git-file-name name version))
        (sha256
-        (base32 "1kh13zfa4w73q04pny2w2zgym47fp8xy7glwfx82fdx4fihk7dv7"))))
+        (base32 "1di2r1i19jl751v0hj426zkwk48w5yf8zpw2bl6qzk0vq4z2vpbw"))))
     (build-system pyproject-build-system)
     (arguments
      (list #:tests? #f)) ; there are no tests
-    (propagated-inputs (list python-matplotlib python-numpy python-scipy))
+    (propagated-inputs
-    (native-inputs (list python-hatchling
+     (list python-numpy python-matplotlib python-scipy python-tqdm))
-                         python-ipykernel
+    (native-inputs (list python-hatchling))
-                         python-toml))
     (home-page "https://aalto-electric-drives.github.io/motulator/")
     (synopsis "Motor Drive Simulator in Python")
     (description "This package includes simulation models for an induction

gnu/packages/enlightenment.scm

@@ -30,7 +30,6 @@
   #:use-module (guix gexp)
   #:use-module (guix utils)
   #:use-module (guix build-system meson)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system pyproject)
   #:use-module (gnu packages)
   #:use-module (gnu packages algebra)

gnu/packages/fediverse.scm

@@ -29,7 +29,6 @@
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system meson)
   #:use-module (guix build-system pyproject)
-  #:use-module (guix build-system python)
   #:use-module ((guix licenses) #:prefix license:)
   #:use-module (guix utils)
   #:use-module (gnu packages)
@@ -245,7 +244,6 @@ seamlessly with your desktop environment.")
     (native-inputs
      (list nss-certs-for-test
            python-pytest
-           python-pytest-cov
            python-pytest-mock
            python-pytest-recording
            python-pytest-retry

gnu/packages/file-systems.scm

@@ -50,7 +50,6 @@
   #:use-module (guix build-system go)
   #:use-module (guix build-system linux-module)
   #:use-module (guix build-system pyproject)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system qt)
   #:use-module (guix build-system trivial)
   #:use-module (guix utils)

gnu/packages/finance.scm

@@ -70,7 +70,6 @@
   #:use-module (guix build-system copy)
   #:use-module (guix build-system emacs)
   #:use-module (guix build-system haskell)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system pyproject)
   #:use-module (guix build-system glib-or-gtk)
   #:use-module (guix build-system go)
@@ -323,41 +322,37 @@ based on Qt.")
 (define-public ghc-hledger
   (package
     (name "ghc-hledger")
-    (version "1.43.2")
+    (version "1.27.1")
-    (source
+    (source (origin
-     (origin
+              (method url-fetch)
-       (method url-fetch)
+              (uri (hackage-uri "hledger" version))
-       (uri (hackage-uri "hledger" version))
+              (sha256
-       (sha256
+               (base32
-        (base32 "043gw3amc29fbjxlzyc4m97bw5i5462352lmk61adlxcd12l47i1"))))
+                "0qdg87m7ys2ykqqq32p7h7aw827w4f5bcqx4dspxxq6zqlvzddqb"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "hledger")))
     (inputs (list ghc-decimal
                   ghc-diff
                   ghc-aeson
                   ghc-ansi-terminal
+                  ghc-breakpoint
                   ghc-cmdargs
                   ghc-data-default
                   ghc-extra
                   ghc-githash
                   ghc-hashable
                   ghc-hledger-lib
-                  ghc-http-client
-                  ghc-http-types
                   ghc-lucid
                   ghc-math-functions
                   ghc-megaparsec
                   ghc-microlens
-                  ghc-modern-uri
                   ghc-regex-tdfa
-                  ghc-req
                   ghc-safe
                   ghc-shakespeare
                   ghc-split
                   ghc-tabular
                   ghc-tasty
                   ghc-temporary
-                  ghc-text-ansi
                   ghc-timeit
                   ghc-unordered-containers
                   ghc-utf8-string
@@ -388,8 +383,8 @@ Accounting.")
       #~(modify-phases %standard-phases
           (add-after 'install 'install-doc
             (lambda _
-              (install-file "embeddedfiles/hledger.info" (string-append #$output "/share/info"))
+              (install-file "hledger.info" (string-append #$output "/share/info"))
-              (install-file "embeddedfiles/hledger.1" (string-append #$output "/man/man1"))))
+              (install-file "hledger.1" (string-append #$output "/man/man1"))))
            (add-after 'register 'remove-libraries
              (lambda* (#:key outputs #:allow-other-keys)
                (delete-file-recursively (string-append (assoc-ref outputs "out") "/lib")))))))))
@@ -1627,10 +1622,7 @@ features:
        (sha256
         (base32 "0yir8hka3vmpk0qhiaffagkdjg3mjgai808s0razsggbd5cn80bb"))))
     (build-system pyproject-build-system)
-    (native-inputs
+    (native-inputs (list python-pytest python-setuptools))
-     (list python-pytest
-           python-pytest-cov
-           python-setuptools))
     (home-page "https://arthurdejong.org/python-stdnum/")
     (synopsis "Python module to handle standardized number and code formats")
     (description
@@ -2312,13 +2304,13 @@ textual ledgers to Beancount files.")
 (define-public hledger-web
   (package
     (name "hledger-web")
-    (version "1.43.2")
+    (version "1.27.1")
-    (source
+    (source (origin
-     (origin
+              (method url-fetch)
-       (method url-fetch)
+              (uri (hackage-uri "hledger-web" version))
-       (uri (hackage-uri "hledger-web" version))
+              (sha256
-       (sha256
+               (base32
-        (base32 "0d4sv9k3m7s0764lbq2l8w9p2p47cby177l0avl5w3fa9y8d0gyd"))))
+                "151dxci7dld8626dzw823sr3d9iaac92wfzbfcbdz4jh9f7n07wa"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "hledger-web")))
     (inputs (list ghc-decimal
@@ -2326,6 +2318,7 @@ textual ledgers to Beancount files.")
                   ghc-base64
                   ghc-blaze-html
                   ghc-blaze-markup
+                  ghc-breakpoint
                   ghc-case-insensitive
                   ghc-clientsession
                   ghc-cmdargs
@@ -2333,8 +2326,6 @@ textual ledgers to Beancount files.")
                   ghc-conduit-extra
                   ghc-data-default
                   ghc-extra
-                  ghc-file-embed
-                  ghc-githash
                   ghc-hjsmin
                   ghc-hledger
                   ghc-hledger-lib
@@ -2344,7 +2335,6 @@ textual ledgers to Beancount files.")
                   ghc-http-types
                   ghc-megaparsec
                   ghc-network
-                  ghc-safe
                   ghc-shakespeare
                   ghc-unix-compat
                   ghc-unordered-containers
@@ -2515,10 +2505,6 @@ analysis of financial market data.")
         (base32 "13g5338aa8vgkx8g94vz5d8ynfq3jndvyh1nz6dlhw4axwr4x8dp"))))
     (properties '(("upstream-name" #{.}# "mt-940")))
     (build-system pyproject-build-system)
-    (arguments
-     (list
-      #:test-flags
-      #~(list "-c" "/dev/null")))       ; Remove custom --cov flags.
     (native-inputs (list python-pytest python-pyyaml python-setuptools))
     (home-page "https://mt940.readthedocs.io/")
     (synopsis "Python parser for MT940-encoded SWIFT data")

gnu/packages/firmware.scm

@@ -47,7 +47,6 @@
   #:use-module (guix build-system cmake)
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system meson)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system pyproject)
   #:use-module (guix build-system trivial)
   #:use-module (gnu packages)

gnu/packages/flashing-tools.scm

@@ -49,7 +49,6 @@
   #:use-module (guix build-system go)
   #:use-module (guix build-system meson)
   #:use-module (guix build-system pyproject)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system qt)
   #:use-module (guix download)
   #:use-module (guix gexp)

gnu/packages/fontutils.scm

@@ -96,7 +96,6 @@
   #:use-module (guix build-system go)
   #:use-module (guix build-system meson)
   #:use-module (guix build-system pyproject)
-  #:use-module (guix build-system python)
   #:use-module (guix utils)
   #:use-module (srfi srfi-1))
 
@@ -473,6 +472,53 @@ font design software, it allows you to join, split, offset, and perform many
 other operations on paths.")
     (license license:expat)))
 
+(define-public python-booleanoperations
+  (package
+    (name "python-booleanoperations")
+    (version "0.9.0")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+              (url "https://github.com/typemytype/booleanOperations")
+              (commit version)))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "0ahfgamyq1ndwbr9n8sdx8qhqc2195xnbahylgjpk877hbr2gxav"))))
+    (build-system pyproject-build-system)
+    (arguments
+     (list
+      ;; Some tests fail due to small differences in the expected result (see:
+      ;; <https://github.com/typemytype/booleanOperations/issues/69>).
+      #:test-flags
+      #~(list "-k"
+              (string-join
+               (list "not test_QTail_reversed_difference"
+                     "test_QTail_reversed_intersection"
+                     "test_QTail_reversed_union"
+                     "test_QTail_reversed_xor"
+                     "test_Q_difference"
+                     "test_Q_intersection"
+                     "test_Q_union"
+                     "test_Q_xor")
+               " and not "))))
+    (native-inputs
+     (list python-defcon-bootstrap
+           python-fontpens-bootstrap
+           python-pytest
+           python-setuptools
+           python-setuptools-scm))
+    (propagated-inputs
+     (list python-fonttools-minimal
+           python-pyclipper))
+    (home-page "https://github.com/typemytype/booleanOperations")
+    (synopsis "Boolean operations on paths")
+    (description
+     "Boolean operations on paths which uses a super fast
+@url{http://www.angusj.com/delphi/clipper.php, polygon clipper library by
+Angus Johnson}.")
+    (license license:expat)))
+
 (define-public python-cffsubr
   (package
     (name "python-cffsubr")
@@ -574,7 +620,6 @@ for fontTools.")
      (list python-cython
            python-defcon
            python-pytest
-           python-pytest-runner
            python-setuptools
            python-setuptools-scm
            python-wheel
@@ -701,8 +746,7 @@ implementing the pen protocol for manipulating glyphs.")
       (modify-inputs native-inputs
         (append python-fontparts-bootstrap
                 python-fontpens-bootstrap
-                python-pytest
+                python-pytest))))))
-                python-pytest-runner))))))
 
 ;;; A variant used to break a cycle with python-fontpens.
 (define-public python-fontparts-bootstrap
@@ -983,7 +1027,6 @@ suite of the @code{psautohint} package.")
     (native-inputs
      (list psautohint-font-data
            python-pytest
-           python-pytest-cov
            python-pytest-xdist
            python-setuptools-scm
            python-setuptools
@@ -1827,6 +1870,10 @@ definitions.")
            pango
            potrace
            python
+           ;; XXX: Python 3.12 lacks distutils:
+           ;; ModuleNotFoundError: No module named 'distutils'
+           ;; Remove when package is updated.
+           python-setuptools-bootstrap
            zlib))
     (arguments
      (append

gnu/packages/freedesktop.scm

@@ -73,7 +73,6 @@
   #:use-module (guix build-system meson)
   #:use-module (guix build-system perl)
   #:use-module (guix build-system pyproject)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system glib-or-gtk)
   #:use-module (guix build-system qt)
   #:use-module (guix search-paths)
@@ -1378,41 +1377,43 @@ For information about libevdev, see:
     (license license:expat)))
 
 (define-public python-pyxdg
-  (package
+  ;; Latest unreleased commits add Python 3.12, 3.14 and 3.15 support.
-    (name "python-pyxdg")
+  (let ((commit "63033ac306aa26d32e1439417e59ae8f8a4c9820")
-    (version "0.28")
+        (revision "0"))
-    (source
+    (package
-     (origin
+      (name "python-pyxdg")
-       (method url-fetch)
+      (version "0.28")
-       (uri (pypi-uri "pyxdg" version))
+      (source
-       (sha256
+       (origin
-        (base32
+         (method git-fetch)
-         "1d48bqwkbnpid80cpwz6h62i112laxl0ivpj58hdyd79fhqbnrrj"))))
+         (uri (git-reference
-    (build-system pyproject-build-system)
+                (url "https://gitlab.freedesktop.org/xdg/pyxdg")
-    (arguments
+                (commit commit)))
-     (list
+         (file-name (git-file-name name version))
-      #:test-flags
+         (sha256
-      ;; Tests failing with error: AssertionError: 'image' != 'inode'
+          (base32
-      #~(list "--deselect=test/test_mime.py::MimeTest::test_get_type"
+           "10wk95rmcr2fglmvmv1a6ad9hkw9587r0rlww0gq6kbfz85whgmd"))))
-              "--deselect=test/test_mime.py::MimeTest::test_get_type2")
+      (build-system pyproject-build-system)
-      #:phases
+      (arguments
-      #~(modify-phases %standard-phases
+       (list
-          (add-before 'check 'pre-check
+        #:phases
-            (lambda _
+        #~(modify-phases %standard-phases
-              (setenv "XDG_DATA_DIRS"
+            (add-before 'check 'pre-check
-                      (string-append #$(this-package-native-input "shared-mime-info")
+              (lambda _
-                                     "/share/")))))))
+                (setenv "XDG_DATA_DIRS"
-    (native-inputs
+                        (string-append #$(this-package-native-input "shared-mime-info")
-     (list shared-mime-info
+                                       "/share/")))))))
-           hicolor-icon-theme
+      (native-inputs
-           python-pytest
+       (list shared-mime-info
-           python-setuptools))
+             hicolor-icon-theme
-    (home-page "https://www.freedesktop.org/wiki/Software/pyxdg")
+             python-pytest
-    (synopsis "Implementations of freedesktop.org standards in Python")
+             python-setuptools))
-    (description
+      (home-page "https://www.freedesktop.org/wiki/Software/pyxdg")
-     "PyXDG is a collection of implementations of freedesktop.org standards in
+      (synopsis "Implementations of freedesktop.org standards in Python")
+      (description
+       "PyXDG is a collection of implementations of freedesktop.org standards in
 Python.")
-    (license license:lgpl2.0)))
+      (license license:lgpl2.0))))
 
 (define-public hyprland-protocols
   (package
@@ -2177,7 +2178,7 @@ which speak the Qualcomm MSM Interface (QMI) protocol.")
            libxslt                      ;for xsltproc
            pkg-config
            python-minimal
-           python-dbus-1.2              ;for test
+           python-dbus                  ;for test
            python-pygobject             ;for test
            vala))
     (propagated-inputs
@@ -2371,7 +2372,7 @@ different sorts of messages in different formats.")
           (base32 "02wb61h2k3hhis5y2xi5rhc6pmikd13x722hk620sqb9b3m5pn3s"))))
       (build-system gnu-build-system)
       (native-inputs (list autoconf automake libtool pkg-config))
-      (inputs (list libxslt python-wrapper python-dbus-1.2))
+      (inputs (list libxslt python-wrapper python-dbus))
       (propagated-inputs (list telepathy-glib))
       (home-page "https://telepathy.freedesktop.org/")
       (synopsis "Telepathy IRC connection manager")

gnu/packages/game-development.scm

@@ -70,7 +70,6 @@
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system go)
   #:use-module (guix build-system pyproject)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system renpy)
   #:use-module (guix build-system scons)
   #:use-module (gnu packages)

gnu/packages/games.scm

@@ -13508,8 +13508,8 @@ rules to solve permissions issues.")
 
 (define-public steam-devices-udev-rules
   ;; Last release from 2019-04-10
-  (let ((commit "13443480a64fe8f10676606bd57da6de89f8ccb1")
+  (let ((commit "7dde9ecb3c386363ecd9bd0a3b77e4756d200704")
-        (revision "1"))
+        (revision "2"))
     (package
       (name "steam-devices-udev-rules")
       (version (git-version "1.0.0.61" revision commit))
@@ -13521,7 +13521,7 @@ rules to solve permissions issues.")
                 (file-name (git-file-name name version))
                 (sha256
                  (base32
-                  "0i086gmnk93q76sw1laa9br6b7zj2r6nrrw7d64y4q9wcrlxw2bi"))))
+                  "0w0xkgi9fpvdbpl57f8fy2nwy2icm6iag39b8ifpkijlxgclx1p3"))))
       (build-system copy-build-system)
       (arguments
        '(#:install-plan '(("./" "lib/udev/rules.d"

gnu/packages/geo.scm

@@ -55,7 +55,6 @@
   #:use-module (guix build-system go)
   #:use-module (guix build-system meson)
   #:use-module (guix build-system pyproject)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system qt)
   #:use-module (guix build-system r)
   #:use-module (guix build-system zig)
@@ -298,7 +297,7 @@ than 600 operators available.")
 (define-public h3
   (package
     (name "h3")
-    (version "4.1.0")
+    (version "4.4.1")
     (source
      (origin
        (method git-fetch)
@@ -307,7 +306,7 @@ than 600 operators available.")
              (commit (string-append "v" version))))
        (file-name (git-file-name name version))
        (sha256
-        (base32 "0x764xzna8ka6yhgv2y4hb158a61y3g9a6835qckqp7wfkpqvb7f"))))
+        (base32 "1ijnbr4a54ph7bkn8waqwgnxmxlylv9yly9mwjdj69lkmdfjgaml"))))
     (build-system cmake-build-system)
     (arguments
      (list #:configure-flags #~(list "-DBUILD_SHARED_LIBS=ON")))
@@ -319,48 +318,25 @@ combining the benefits of a hexagonal grid with S2's hierarchical
 subdivisions.")
     (license license:asl2.0)))
 
-;; For python-timezonefinder, remove it when it starts supporting newer
-;; version.
-(define-public h3-3
-  (package
-    (inherit h3)
-    (name "h3")
-    (version "3.7.2")
-    (source
-     (origin
-       (method git-fetch)
-       (uri (git-reference
-             (url "https://github.com/uber/h3")
-             (commit (string-append "v" version))))
-       (file-name (git-file-name name version))
-       (sha256
-        (base32 "0bvsljfxmjvl23v9gxykc4aynjzh5xfy3wg02bxad7cknr1amx9j"))))))
-
 (define-public python-h3
   (package
     (name "python-h3")
-    (version "4.0.0b2")
+    (version "4.4.2")
     (source
      (origin
-       (method git-fetch) ; no tests data in PyPi package
+       (method git-fetch)
        (uri (git-reference
              (url "https://github.com/uber/h3-py")
              (commit (string-append "v" version))))
        (file-name (git-file-name name version))
        (sha256
-        (base32 "1k1n256hhlh05gjcj64pqh08zlaz6962jkb6nk1aazsgg8p41zs0"))
+        (base32 "02gry51hn8x2bl80y1ipcyrg0ghcif4vjch26qil215wdzz1yrzv"))
        (modules '((guix build utils)))
        ;; Remove bundled H3 lib.
        (snippet #~(begin (delete-file-recursively "src/h3lib")))))
     (build-system pyproject-build-system)
     (arguments
      (list
-      ;; FIXME: Check why these tests are failing.
-      ;; test_versions - assert (4, 1) == (4, 0)
-      ;; test_resolution - h3._cy.error_system.H3Failed
-      #:test-flags #~(list "-k" (string-append
-                                 "not test_versions"
-                                 " and not test_resolution"))
       #:phases
       #~(modify-phases %standard-phases
           ;; Use packaged in Guix h3 source.
@@ -381,10 +357,7 @@ subdivisions.")
            python-cython
            python-numpy
            python-pytest
-           python-scikit-build
+           python-scikit-build-core))
-           python-setuptools
-           python-setuptools-scm
-           python-wheel))
     (inputs (list h3))
     (home-page "https://uber.github.io/h3-py")
     (synopsis "Python bindings for H3")
@@ -392,26 +365,6 @@ subdivisions.")
 hierarchical hexagonal geospatial indexing system")
     (license license:asl2.0)))
 
-;; For python-timezonefinder, remove it when it starts supporting newer
-;; version.
-(define-public python-h3-3
-  (package
-    (inherit python-h3)
-    (name "python-h3")
-    (version "3.7.6")
-    (source
-     (origin
-       (method git-fetch)
-       (uri (git-reference
-             (url "https://github.com/uber/h3-py")
-             (commit (string-append "v" version))))
-       (file-name (git-file-name name version))
-       (sha256
-        (base32 "16gxa1sivghxw179rik87r918mjasars2qkzidlwq83qfa4axn20"))))
-    (inputs
-     (modify-inputs inputs
-       (replace "h3" h3-3)))))
-
 (define-public geos
   (package
     (name "geos")
@@ -1059,7 +1012,6 @@ for seismology.")
     (inputs (list gdal))
     (native-inputs (list python-cython
                          python-pytest
-                         python-pytest-cov
                          python-setuptools
                          python-tomli
                          python-versioneer
@@ -1159,7 +1111,7 @@ projections and coordinate transformations library.")
 (define-public python-fiona
   (package
     (name "python-fiona")
-    (version "1.9.6")
+    (version "1.10.1")
     (source
      (origin
        (method git-fetch)
@@ -1168,24 +1120,38 @@ projections and coordinate transformations library.")
               (commit version)))
        (file-name (git-file-name name version))
        (sha256
-        (base32 "08whhjrspp194qasjhr9kf70fl342ms47k78rwpcf5q6ikf0rfii"))))
+        (base32 "0xribbcy5wvrm5y3bq281dry86vhjcnphg9772yp9s3y30y7mlz4"))))
     (build-system pyproject-build-system)
     (arguments
      (list
+      ;; tests: 757 passed, 161 skipped, 24 deselected, 1 xfailed, 6 xpassed
       #:test-flags
       #~(list "-m" "not network and not wheel"
-              ;; FIXME: Find why the
+              #$@(map (lambda (test) (string-append "--deselect=tests/" test))
-              ;; test_no_append_driver_cannot_append[PCIDSK] test is failing.
+                      ;; UserWarning: The parameter --where is used more than
-              "-k" "not test_no_append_driver_cannot_append")
+                      ;; once. Remove its duplicate as parameters should be
+                      ;; unique.
+                      (list "test_fio_cat.py::test_bbox_json_yes"
+                            "test_fio_cat.py::test_bbox_no"
+                            "test_fio_cat.py::test_bbox_where"
+                            "test_fio_cat.py::test_bbox_yes"
+                            "test_fio_cat.py::test_bbox_yes_two_files"
+                            "test_fio_cat.py::test_dst_crs_epsg3857"
+                            "test_fio_cat.py::test_multi_layer"
+                            "test_fio_cat.py::test_one"
+                            "test_fio_cat.py::test_two"
+                            "test_fio_cat.py::test_vfs"
+                            "test_fio_cat.py::test_where_no"
+                            "test_fio_cat.py::test_where_yes"
+                            "test_fio_cat.py::test_where_yes_two_files"
+                            ;; FileNotFoundError:
+                            ;; https://github.com/Toblerity/Fiona/files/\
+                            ;; 11151652/coutwildrnp.zip
+                            "test_pyopener.py::test_opener_fsspec_zip_http_fs")))
       #:phases
       #~(modify-phases %standard-phases
-          (add-before 'build 'set-configure-flags
+          (add-before 'check 'remove-local-source
             (lambda _
-              (setenv "CFLAGS" "-Wno-error=incompatible-pointer-types")))
-          (add-before 'check 'remove-local-fiona
-            (lambda _
-              ;; This would otherwise interfere with finding the installed
-              ;; fiona when running tests.
               (delete-file-recursively "fiona"))))))
     (inputs
      (list gdal))
@@ -1193,19 +1159,19 @@ projections and coordinate transformations library.")
      (list python-attrs
            python-certifi
            python-click
-           python-click-plugins-1
+           python-click-plugins
            python-cligj))
     (native-inputs
      (list gdal ; for gdal-config
            python-boto3
            python-cython
+           python-fsspec
            python-pytest
-           python-pytest-cov
            python-pytz
-           python-setuptools))
+           python-setuptools
+           python-shapely))
     (home-page "https://github.com/Toblerity/Fiona")
-    (synopsis
+    (synopsis "Fiona reads and writes spatial data files")
-     "Fiona reads and writes spatial data files")
     (description
      "Fiona is GDAL’s neat and nimble vector API for Python programmers. Fiona
 is designed to be simple and dependable.  It focuses on reading and writing
@@ -1465,7 +1431,6 @@ street bearings/orientations, and speed/travel time.")
            python-pyproj
            python-pyyaml
            python-pytest
-           python-pytest-cov
            python-pytest-httpserver
            python-pytz
            python-requests
@@ -1797,10 +1762,7 @@ utilities for data translation and processing.")
       ;; This test requires internet access.
       '(list "--deselect" "test_shapefile.py::test_reader_url")))
     (native-inputs
-     (list python-pytest
+     (list python-pytest python-setuptools python-wheel))
-           python-pytest-runner
-           python-setuptools
-           python-wheel))
     (home-page "https://github.com/GeospatialPython/pyshp")
     (synopsis "Read/write support for ESRI Shapefile format")
     (description
@@ -3530,10 +3492,9 @@ orienteering sport.")
        (list
         #:tests? #f                    ; No tests
         #:modules `((guix build gnu-build-system)
-                    ((guix build python-build-system) #:prefix python:)
+                    ((guix build pyproject-build-system) #:prefix python:)
                     (guix build utils))
-        #:imported-modules `(,@%default-gnu-imported-modules
+        #:imported-modules %pyproject-build-system-modules
-                             (guix build python-build-system))
         #:configure-flags
         #~(list "--with-blas"
                 "--with-bzlib"
@@ -3705,13 +3666,13 @@ growing set of geoscientific methods.")
     (build-system cmake-build-system)
     (arguments
      (list
+      #:imported-modules (append %cmake-build-system-modules
+                                 %pyproject-build-system-modules
+                                 '((guix build qt-utils)))
       #:modules '((guix build cmake-build-system)
-                  ((guix build python-build-system) #:prefix python:)
+                  ((guix build pyproject-build-system) #:prefix py:)
                   (guix build qt-utils)
                   (guix build utils))
-      #:imported-modules `(,@%cmake-build-system-modules
-                           (guix build python-build-system)
-                           (guix build qt-utils))
       #:configure-flags
       #~(list "-DWITH_QTWEBKIT=NO")
       #:phases
@@ -3872,11 +3833,10 @@ growing set of geoscientific methods.")
             ;; Configure correct path to PyQt5 SIP directory
             (add-after 'unpack 'configure-pyqt5-sip-path
               (lambda* (#:key inputs #:allow-other-keys)
-                (let ((sip-dir (string-append
+                (let* ((pyqt (assoc-ref inputs "python-pyqt+qscintilla"))
-                                (assoc-ref inputs "python-pyqt+qscintilla")
+                       (sip-dir (string-append
-                                "/lib/python"
+                                 (py:site-packages inputs `(("out" . ,pyqt)))
-                                (python:python-version (assoc-ref inputs "python"))
+                                 "/PyQt5/bindings")))
-                                "/site-packages/PyQt5/bindings")))
                   (substitute* "cmake/FindPyQt5.py"
                     (("sip_dir = cfg.default_sip_dir")
                      (string-append "sip_dir = \"" sip-dir "\"")))
@@ -3906,7 +3866,7 @@ SET\\(PYQT5_SIP_DIR \"\\$\\{Python_SITEARCH\\}/PyQt5/bindings\"\\)")
                               "-E" (string-join ignored-tests "|")))
                     (format #t "test suite not run~%"))))
             (add-after 'install 'wrap-python
-              (assoc-ref python:%standard-phases 'wrap))
+              (assoc-ref py:%standard-phases 'wrap))
             (add-after 'wrap-python 'wrap-qt
               (lambda* (#:key inputs #:allow-other-keys)
                 (wrap-qt-program "qgis" #:output #$output #:inputs inputs)))

gnu/packages/gimp.scm

@@ -476,17 +476,31 @@ inverse fourier transform.")
   (package
     (name "libmypaint")
     (version "1.6.1")
-    (source (origin
+    (source
-              (method url-fetch)
+     (origin
-              (uri (string-append "https://github.com/mypaint/libmypaint/"
+       (method git-fetch)
-                                  "releases/download/v" version "/libmypaint-"
+       (uri (git-reference
-                                  version ".tar.xz"))
+              (url "https://github.com/mypaint/libmypaint")
-              (sha256
+              (commit (string-append "v" version))))
-               (base32
+       (file-name (git-file-name name version))
-                "0priwpmc7dizccqvn21ig6d649bprl3xl1hmjj7nddznjgr585vl"))))
+       (sha256
+        (base32 "1ppgpmnhph9h8ayx9776f79a0bxbdszfw9c6bw7c3ffy2yk40178"))))
     (build-system gnu-build-system)
+    (arguments
+     (list
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-before 'bootstrap 'overwrite-automake-and-aclocal-versions
+            (lambda _
+              (setenv "AUTOMAKE" "automake")
+              (setenv "ACLOCAL" "aclocal"))))))
     (native-inputs
-     (list intltool pkg-config))
+     (list autoconf
+           automake
+           intltool
+           libtool
+           pkg-config
+           python))
     ;; As needed by 'libmypaint.pc'.
     (propagated-inputs
      (list json-c gobject-introspection))
@@ -498,6 +512,26 @@ brushstrokes which is used by MyPaint and GIMP.")
     (home-page "http://mypaint.org")
     (license license:isc)))
 
+;; To update mypaint, remove when a fresh version is released.
+(define-public libmypaint-next
+  (package
+    (inherit libmypaint)
+    (name "libmypaint")
+    (properties '((commit . "551dfb9ca5d2b82f2361a5a8a9e7f386f35fd320")
+                  (revision . "0")))
+    (version (git-version "1.6.1"
+                          (assoc-ref properties 'revision)
+                          (assoc-ref properties 'commit)))
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+              (url "https://github.com/mypaint/libmypaint")
+              (commit (assoc-ref properties 'commit))))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "0pl8cma6gfkrqx364fs1xw7f491f7y6pzxqjq1cdqlrf9r8gg0sk"))))))
+
 (define-public mypaint-brushes
   (package
     (name "mypaint-brushes")

gnu/packages/gl.scm

@@ -79,7 +79,6 @@
   #:use-module (guix build-system cargo)
   #:use-module (guix build-system cmake)
   #:use-module (guix build-system meson)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system pyproject)
   #:use-module ((guix licenses) #:prefix license:)
   #:use-module (guix packages)
@@ -1420,8 +1419,8 @@ original glmark benchmark by Ben Smith.")
     (license license:bsd-2)))
 
 (define-public piglit
-  (let ((revision "1")
+  (let ((revision "2")
-        (commit "814046fe6942eac660ee4a6cc5fcc54011a49945"))
+        (commit "040ed91f234abb6a502d3a6910f1b0e54bd239a7"))
     (package
      (name "piglit")
      (version (git-version "0.0.0" revision commit))
@@ -1432,7 +1431,7 @@ original glmark benchmark by Ben Smith.")
                     (commit commit)))
               (file-name (git-file-name name version))
               (sha256
-               (base32 "1bzaalcxskckfnwprw77sbbmfqi59by2j8imaq8ghnlzhlxv7mk7"))))
+               (base32 "1j5dmkym1mmz410xgwygimnjk2aswsqmcpjwz4s98pgmymh1yjvf"))))
      (build-system cmake-build-system)
      (arguments
       (list #:configure-flags #~(list "-DPIGLIT_SSE2=OFF")
@@ -1451,16 +1450,21 @@ original glmark benchmark by Ben Smith.")
                                       "'")))))
                 (add-after 'install 'wrap
                   (lambda* (#:key outputs #:allow-other-keys)
-                    (wrap-script (string-append (assoc-ref outputs "out")
+                    (wrap-script (string-append #$output "/bin/piglit")
-                                                "/bin/piglit")
                       `("GUIX_PYTHONPATH" prefix
                         (,(getenv "GUIX_PYTHONPATH")))))))))
-     (inputs (list guile-3.0            ; for wrap-script
+     (inputs (list glslang
+                   guile-3.0            ; for wrap-script
                    libxkbcommon
-                   python python-lxml python-mako python-numpy-1
+                   python
-                   glslang vulkan-headers vulkan-loader
+                   wayland-protocols
+                   vulkan-headers
+                   vulkan-loader
                    waffle))
-     (native-inputs (list pkg-config))
+     (native-inputs (list pkg-config
+                          python-lxml
+                          python-mako
+                          python-numpy))
      (home-page "https://piglit.freedesktop.org/")
      (synopsis "Test OpenGL implementations")
      (description "Piglit is a collection of automated tests for OpenGL and

gnu/packages/gnome-xyz.scm

@@ -51,7 +51,6 @@
   #:use-module (guix build-system copy)
   #:use-module (guix build-system meson)
   #:use-module (guix build-system pyproject)
-  #:use-module (guix build-system python)
   #:use-module (guix gexp)
   #:use-module (guix git-download)
   #:use-module (guix packages)

gnu/packages/gnome.scm

@@ -250,7 +250,6 @@
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system meson)
   #:use-module (guix build-system pyproject)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system trivial)
   #:use-module ((guix config) #:select (%storedir))
   #:use-module (guix deprecation)
@@ -2598,6 +2597,92 @@ of Evince is to replace the multiple document viewers that exist
 on the GNOME Desktop with a single simple application.")
     (license license:gpl2+)))
 
+(define-public papers
+  (package
+    (name "papers")
+    (version "50.0")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "mirror://gnome/sources/papers/"
+                                  (version-major version) "/"
+                                  "papers-" version ".tar.xz"))
+              (sha256
+               (base32 "01dws72fb19i9jwp3r0khr7ym2ns51fifdzafb5dcr5w8vmj06rh"))))
+    (build-system meson-build-system)
+    (arguments
+     (list
+      #:glib-or-gtk? #t
+      #:configure-flags
+      #~(list (string-append "-Dc_link_args=-Wl,-rpath=" #$output "/lib"))
+      #:imported-modules `(,@%meson-build-system-modules
+                           ,@%cargo-build-system-modules)
+      #:modules `(((guix build cargo-build-system) #:prefix cargo:)
+                  (guix build meson-build-system)
+                  (guix build utils))
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'prepare-for-build
+            (lambda _
+              (substitute* "meson.build"
+                (("gtk_update_icon_cache: true")
+                 "gtk_update_icon_cache: false")
+                (("update_desktop_database: true")
+                 "update_desktop_database: false"))
+              (substitute* "meson.build"
+                (("'Cargo.lock',")
+                  ""))
+              (delete-file "Cargo.lock")))
+          (add-after 'configure 'prepare-cargo-build-system
+            (lambda args
+              (for-each
+               (lambda (phase)
+                 (format #t "Running cargo phase: ~a~%" phase)
+                 (apply (assoc-ref cargo:%standard-phases phase)
+                        #:vendor-dir "vendor"
+                        #:cargo-target #$(cargo-triplet)
+                        args))
+               '(unpack-rust-crates
+                 configure
+                 check-for-pregenerated-files
+                 patch-cargo-checksums))
+
+              (setenv "RUSTFLAGS"
+                      (string-append (or (getenv "RUSTFLAGS") "")
+                                     " -C link-arg=-Wl,-rpath,"
+                                     #$output "/lib")))))))
+    (native-inputs
+     (cons* blueprint-compiler
+            gettext-minimal
+            `(,glib "bin")
+            gobject-introspection
+            gi-docgen
+            itstool
+            pkg-config
+            rust
+            `(,rust "cargo")
+            (or (and=> (%current-target-system)
+                       (compose list make-rust-sysroot))
+                '())))
+    (inputs
+     (cons* appstream
+            djvulibre
+            exempi
+            gtk
+            libadwaita
+            libarchive
+            libspelling
+            libtiff
+            nautilus                    ; for nautilus extension
+            poppler-next
+            zlib
+            (cargo-inputs 'papers)))
+    (home-page "https://apps.gnome.org/Papers")
+    ;; TODO: drop “new” when updating to GNOME 49 or newer.
+    (synopsis "GNOME's new document viewer")
+    (description "Papers is a document viewer capable of displaying multiple
+and single page document formats like PDF and DejaVu.")
+    (license license:gpl2+)))
+
 (define-public gsettings-desktop-schemas
   (package
     (name "gsettings-desktop-schemas")
@@ -2673,7 +2758,7 @@ schemas for settings shared by various components of the GNOME desktop.")
                 (invoke "./run-tests")))))))
     (native-inputs (list python-pytest python-setuptools xorg-server-for-tests))
     (inputs (list gtk+))
-    (propagated-inputs (list python-pygobject))
+    (propagated-inputs (list python-pygobject-3.50))
     (home-page "https://getting-things-gnome.github.io/liblarch")
     (synopsis "Library to easily handle complex data structures")
     (description
@@ -2732,7 +2817,7 @@ and how they are displayed (View).")
            gtksourceview-4
            pango
            python
-           python-dbus-1.2
+           python-dbus
            python-liblarch
            python-lxml
            python-pycairo
@@ -2900,7 +2985,7 @@ guidelines.")
            python
            cups
            gtk+
-           python-dbus-1.2
+           python-dbus
            python-pygobject
            python-pycups
            python-requests
@@ -4914,6 +4999,7 @@ as OpenStreetMap, OpenCycleMap, OpenAerialMap and Maps.")
     (arguments
      (list
       #:configure-flags #~(list "-Ddocs=disabled")
+      #:parallel-tests? #f              ;hsts-db-test might hang otherwise.
       #:phases
       #~(modify-phases %standard-phases
           (add-after 'unpack 'adjust-tests
@@ -4955,7 +5041,7 @@ as OpenStreetMap, OpenCycleMap, OpenAerialMap and Maps.")
            zlib))
     (inputs
      (list samba/pinned))               ; For ntlm_auth support
-    (home-page "https://wiki.gnome.org/Projects/libsoup")
+    (home-page "https://libsoup.gnome.org")
     (synopsis "GLib-based HTTP Library")
     (description
      "LibSoup is an HTTP client/server library for GNOME.  It uses GObjects
@@ -5071,7 +5157,7 @@ and the GLib main loop, to integrate well with GNOME applications.")
            libxslt
            pkg-config
            python
-           python-dbus-1.2
+           python-dbus
            python-pygobject-3.50
            vala))
     (propagated-inputs
@@ -8072,12 +8158,6 @@ to display dialog boxes from the commandline and shell scripts.")
     (build-system meson-build-system)
     (arguments
      (list
-      #:modules '((guix build meson-build-system)
-                  ((guix build python-build-system) #:prefix python:)
-                  (guix build utils)
-                  (ice-9 match))
-      #:imported-modules `(,@%meson-build-system-modules
-                           (guix build python-build-system))
       #:glib-or-gtk? #t
       #:configure-flags
       #~(list
@@ -8600,7 +8680,7 @@ users.")
            libxslt
            perl
            pkg-config
-           python-dbus-1.2
+           python-dbus
            python-pygobject-3.50
            python-wrapper
            vala))
@@ -12251,7 +12331,6 @@ advanced image management tool")
            intltool
            pkg-config
            python-psutil
-           python-pytest-runner
            python-pytest))
     (inputs
      (list bash-minimal ;for wrap-program
@@ -12260,7 +12339,7 @@ advanced image management tool")
            gsettings-desktop-schemas
            gtk+
            python-wrapper
-           python-dbus-1.2
+           python-dbus
            python-notify2
            python-pycairo
            python-pygobject

gnu/packages/gnupg.scm

@@ -86,7 +86,6 @@
   #:use-module (guix build-system meson)
   #:use-module (guix build-system perl)
   #:use-module (guix build-system pyproject)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system qt)
   #:use-module (guix download)
   #:use-module (guix gexp)

gnu/packages/gnustep.scm

@@ -48,6 +48,34 @@
   #:use-module (gnu packages xml)
   #:use-module (ice-9 match))
 
+(define-public fsviewer
+  (package
+    (name "fsviewer")
+    (version "0.2.7")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+              (url "https://github.com/roblillack/fsviewer")
+              (commit (string-append "v" version))))
+       (sha256
+        (base32
+         "067fvbq7b4lbnn1flmwf8lm0vq4n6qz5yz6hhab30l4gksfk51cg"))
+       (file-name (git-file-name name version))))
+    (build-system cmake-build-system)
+    (arguments (list #:tests? #f))      ;no tests
+    (inputs
+     (list windowmaker libxmu libxpm))
+    (native-inputs
+     (list pkg-config))
+    (home-page "https://github.com/roblillack/fsviewer")
+    (synopsis "File viewer for Window Maker")
+    (description "FSViewer is a NeXT FileViewer lookalike for Window
+Maker supporting browser mode and list mode.  This version is a fork of
+FSViewer.app originally written by George Clernon (1998-99) and later
+maintained by Guido Scholz (2002-07).")
+    (license license:gpl2)))
+
 (define-public gnustep-make
   (package
     (name "gnustep-make")

gnu/packages/gpodder.scm

@@ -29,7 +29,6 @@
   #:use-module (guix build-system cmake)
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system pyproject)
-  #:use-module (guix build-system python)
   #:use-module (gnu packages)
   #:use-module (gnu packages autotools)
   #:use-module (gnu packages base)

gnu/packages/graph.scm

@@ -36,7 +36,6 @@
   #:use-module (guix build-system cmake)
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system pyproject)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system r)
   #:use-module (guix download)
   #:use-module (guix gexp)

gnu/packages/graphics.scm

@@ -146,7 +146,6 @@
   #:use-module (guix build-system cmake)
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system meson)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system pyproject)
   #:use-module (guix build-system qt)
   #:use-module (guix download)
@@ -1265,51 +1264,6 @@ basic geometries.")
     ;; https://gitlab.com/inkscape/inkscape/issues/784).
     (license license:gpl3+)))
 
-(define-public python-booleanoperations
-  (package
-    (name "python-booleanoperations")
-    (version "0.9.0")
-    (source
-     (origin
-       (method git-fetch)
-       (uri (git-reference
-              (url "https://github.com/typemytype/booleanOperations")
-              (commit version)))
-       (file-name (git-file-name name version))
-       (sha256
-        (base32 "0ahfgamyq1ndwbr9n8sdx8qhqc2195xnbahylgjpk877hbr2gxav"))))
-    (build-system pyproject-build-system)
-    (arguments
-     (list
-      ;; Some tests fail due to small differences in the expected result (see:
-      ;; <https://github.com/typemytype/booleanOperations/issues/69>).
-      #:test-flags
-      #~(list "-k"
-              (string-join
-               (list "not test_QTail_reversed_difference"
-                     "test_QTail_reversed_intersection"
-                     "test_QTail_reversed_union"
-                     "test_QTail_reversed_xor"
-                     "test_Q_difference"
-                     "test_Q_intersection"
-                     "test_Q_union"
-                     "test_Q_xor")
-               " and not "))))
-    (propagated-inputs (list python-fonttools-minimal python-pyclipper))
-    (native-inputs
-     (list python-defcon-bootstrap
-           python-fontpens-bootstrap
-           python-pytest
-           python-setuptools
-           python-setuptools-scm))
-    (home-page "https://github.com/typemytype/booleanOperations")
-    (synopsis "Boolean operations on paths")
-    (description
-     "Boolean operations on paths which uses a super fast
-@url{http://www.angusj.com/delphi/clipper.php, polygon clipper library by
-Angus Johnson}.")
-    (license license:expat)))
-
 (define-public pstoedit
   (package
     (name "pstoedit")

gnu/packages/graphviz.scm

@@ -35,7 +35,6 @@
   #:use-module (guix packages)
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system pyproject)
-  #:use-module (guix build-system python)
   #:use-module (guix download)
   #:use-module (guix git-download)
   #:use-module (guix utils)
@@ -152,32 +151,46 @@ interfaces for other technical domains.")
 (define-public python-graphviz
   (package
     (name "python-graphviz")
-    (version "0.20.3")
+    (version "0.21")
-    (source (origin
+    (source
-              (method url-fetch)
+     (origin
-              (uri (pypi-uri "graphviz" version ".zip"))
+       (method git-fetch)
-              (sha256
+       (uri (git-reference
-               (base32
+              (url "https://github.com/xflr6/graphviz")
-                "0pcjnnhprs1hb4r9jr7r4qjxc7lzsjlka8d5gcp3kym9ws0vrmh9"))))
+              (commit version)))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "00hgh1ab54h2jhqnwn5vrggg0hqbwmjn0cx2a9nw4vi1wmijib53"))))
     (build-system pyproject-build-system)
     (arguments
      (list
+      #:test-flags
+      #~(list "--ignore=tests/backend/")
       #:phases
       #~(modify-phases %standard-phases
           (add-after 'unpack 'patch-pytest-options
             (lambda _
-              (substitute* "setup.cfg"
+              (substitute* "pyproject.toml"
-                ((".*doctest.*") "")
+                ((".*--cov-report=term.*") ""))))
-                (("--cov.*") ""))))
+          (add-before 'check 'pre-check
-          (replace 'check
+            (lambda _
-            (lambda* (#:key tests? test-flags #:allow-other-keys)
+              (setenv "HOME" "/tmp")))
+          (add-after 'check 'test-backend
+            (lambda* (#:key tests? #:allow-other-keys)
+              ;; Running tests together fails with error:
+              ;;
+              ;; import file mismatch:
+              ;; imported module 'conftest' has this __file__ attribute:
+              ;;   /<...>/source/tests/backend/conftest.py
+              ;; which is not the same as the test file we want to collect:
+              ;;   /<...>/source/tests/conftest.py
+              ;;
+              ;; HINT: remove __pycache__ / .pyc files and/or use a unique
+              ;; basename for your test file modules
               (when tests?
-                (setenv "HOME" "/tmp")
+                (invoke "pytest" "-v" "tests/backend/")))))))
-                  (apply invoke "python" "run-tests.py" test-flags)))))))
     (native-inputs
-     (list unzip
+     (list graphviz
-           ;; For tests.
-           graphviz
            python-mock
            python-pytest
            python-pytest-mock
@@ -246,7 +259,6 @@ layout algorithms.")
      (list graphviz
            python-defusedxml
            python-pytest
-           python-pytest-cov
            python-setuptools
            python-typing-extensions))
     (propagated-inputs

gnu/packages/gtk.scm

@@ -71,7 +71,6 @@
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system meson)
   #:use-module (guix build-system perl)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system pyproject)
   #:use-module (guix build-system waf)
   #:use-module (gnu packages)
@@ -1123,7 +1122,7 @@ application suites.")
 (define-public gtk
   (package
     (name "gtk")
-    (version "4.20.3")
+    (version "4.22.1")
     (source
      (origin
        (method url-fetch)
@@ -1131,9 +1130,11 @@ application suites.")
                            (version-major+minor version)  "/"
                            name "-" version ".tar.xz"))
        (sha256
-        (base32 "0ly1gqc6ybxv5f2a9hvjp5k6l9mfzy2yv8iy2xqnr9l8628g4wr8"))
+        (base32 "1z2mkmazc2d51jbg3qwwdycycqiwswm88nhw6bxscz8j86f5lyyd"))
        (patches
-        (search-patches "gtk4-respect-GUIX_GTK4_PATH.patch"))
+        (search-patches "gtk4-demo-reproducible.patch"
+                        "gtk4-needs-udmabuf.patch"
+                        "gtk4-respect-GUIX_GTK4_PATH.patch"))
        (modules '((guix build utils)))))
     (build-system meson-build-system)
     (outputs '("out" "bin" "doc"))
@@ -1257,8 +1258,10 @@ application suites.")
               (setenv "XDG_CACHE_HOME" (getcwd))))
           (add-before 'check 'pre-check
             (lambda* (#:key inputs #:allow-other-keys)
-              ;; Tests require a running X server.
+              ;; Tests require a running X server.  The '-noreset' option is
-              (system "Xvfb :1 +extension GLX &")
+              ;; necessary to avoid spurious "Failed to open display" test
+              ;; errors.
+              (system "Xvfb :1 +extension GLX -screen 0 1024x768x24 -noreset &")
               (setenv "DISPLAY" ":1")
               ;; Tests write to $HOME.
               (setenv "HOME" (getcwd))
@@ -1301,6 +1304,7 @@ application suites.")
            docbook-xsl
            gettext-minimal
            `(,glib "bin")
+           glibc-utf8-locales           ;some tests require en_US.UTF-8
            gobject-introspection        ;for building introspection data
            graphene
            gtk-doc/stable               ;for building documentation
@@ -1368,8 +1372,8 @@ application suites.")
     (native-search-paths
      (list
       (search-path-specification
-       (variable "GUIX_GTK4_PATH")
+        (variable "GUIX_GTK4_PATH")
-       (files '("lib/gtk-4.0")))))
+        (files '("lib/gtk-4.0")))))
     (search-paths native-search-paths)
     (home-page "https://www.gtk.org/")
     (synopsis "Cross-platform widget toolkit")

gnu/packages/guile-xyz.scm

@@ -5790,7 +5790,7 @@ processing filters.")
 (define-public guile-pnm
   (package
     (name "guile-pnm")
-    (version "0.1.0")
+    (version "0.2.0")
     (source
      (origin
        (method git-fetch)
@@ -5799,7 +5799,7 @@ processing filters.")
              (commit (string-append "v" version))))
        (file-name (git-file-name name version))
        (sha256
-        (base32 "1yvsni4hll20g99zq4wl734f9i8gpjr1sqsnk3a93k2dd7b6ymac"))))
+        (base32 "06kgp1gh8hdj1j6w7i981prx93wfjpayrnjlydlzs7l5j04l4m3a"))))
     (build-system gnu-build-system)
     (arguments
      (list

gnu/packages/hardware.scm

@@ -117,7 +117,6 @@
   #:use-module (guix build-system meson)
   #:use-module (guix build-system perl)
   #:use-module (guix build-system pyproject)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system qt)
   #:use-module (guix download)
   #:use-module (guix gexp)

gnu/packages/haskell-apps.scm

@@ -96,13 +96,13 @@ library.  It is primarily used with HLint's @code{--refactor} flag.")
 (define-public cabal-install
  (package
    (name "cabal-install")
-   (version "3.12.1.0")
+   (version "3.6.2.0")
-   (source
+   (source (origin
-    (origin
+             (method url-fetch)
-      (method url-fetch)
+             (uri (hackage-uri "cabal-install" version))
-      (uri (hackage-uri "cabal-install" version))
+             (sha256
-      (sha256
+              (base32
-       (base32 "1cmifq189i4x0r0yha3dl8nrzzfh92bnd2saak7dqvvjkkysqj38"))))
+               "0dihpm4h3xh13vnpvwflnb7v614qdvljycc6ffg5cvhwbwfrxyfw"))))
    (build-system haskell-build-system)
    (properties '((upstream-name . "cabal-install")))
    (inputs (list ghc-async
@@ -117,35 +117,13 @@ library.  It is primarily used with HLint's @code{--refactor} flag.")
                  ghc-tar
                  ghc-zlib
                  ghc-hackage-security
-                 ghc-open-browser
                  ghc-regex-base
                  ghc-regex-posix
-                 ghc-safe-exceptions
-                 ghc-semaphore-compat
                  ghc-resolv
                  ghc-lukko))
-   (native-inputs (list ghc-tasty
-                        ghc-tasty-golden
-                        ghc-tasty-quickcheck
-                        ghc-tasty-expected-failure
-                        ghc-tasty-hunit
-                        ghc-tree-diff
-                        ghc-quickcheck
-                        ghc-tasty
-                        ghc-tasty-hunit
-                        ghc-tasty
-                        ghc-tasty-hunit
-                        ghc-tagged
-                        ghc-tagged
-                        ghc-tasty
-                        ghc-tasty-expected-failure
-                        ghc-tasty-hunit
-                        ghc-tasty-quickcheck
-                        ghc-quickcheck
-                        ghc-pretty-show))
    (arguments
     `(#:cabal-revision ("2"
-                        "0fdzqdkg2vbyg0lnbk9bdskr2d23hwjpmnc7jnvpzkcmxmcvl99n")))
+                        "1kpgyfl5njxp4c8ax5ziag1bhqvph3h0pn660v3vpxalz8d1j6xv")))
    (home-page "https://www.haskell.org/cabal/")
    (synopsis "Command-line interface for Cabal and Hackage")
    (description
@@ -167,10 +145,11 @@ installation of Haskell libraries and programs.")
          "17wi7fma2qaqdm1hwgaam3fd140v9bpa8ky0wg708h1pqc5v2nbz"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "cpphs")))
-    (inputs (list ghc-polyparse))
+    (inputs
+     (list ghc-polyparse ghc-old-locale ghc-old-time))
     (arguments
-     `(#:cabal-revision ("2"
+     `(#:cabal-revision ("1"
-                         "0vxav36p0kplp4dpd17i4cfzrsl3r437d840xwv83lf1bqp7mrxc")))
+                         "1f8jzs8zdh4wwbcq8fy6qqxkv75ypnvsm4yzw49wpr3b9vpnzlha")))
     (home-page "https://projects.haskell.org/cpphs/")
     (synopsis "Liberalised re-implementation of cpp, the C pre-processor")
     (description "Cpphs is a re-implementation of the C pre-processor that is
@@ -290,18 +269,20 @@ unique algebra of patches called @url{http://darcs.net/Theory,Patchtheory}.
 (define-public ghcid
   (package
     (name "ghcid")
-    (version "0.8.9")
+    (version "0.8.7")
     (source
      (origin
        (method url-fetch)
        (uri (hackage-uri "ghcid" version))
        (sha256
-        (base32 "1dq8lc0dwzib8y21279q4j54cmm7lvx64b3hw2yiym1kzi9rrhj4"))))
+        (base32 "0yqc1pkfajnr56gnh43sbj50r7c3r41b2jfz07ivgl6phi4frjbq"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "ghcid")))
-    (inputs (list ghc-extra ghc-ansi-terminal ghc-cmdargs ghc-fsnotify
+    (inputs
-                  ghc-terminal-size))
+     (list ghc-extra ghc-ansi-terminal ghc-cmdargs ghc-fsnotify
-    (native-inputs (list ghc-tasty ghc-tasty-hunit))
+           ghc-terminal-size))
+    (native-inputs
+     (list ghc-tasty ghc-tasty-hunit))
     (home-page "https://github.com/ndmitchell/ghcid#readme")
     (synopsis "GHCi based bare bones IDE")
     (description
@@ -423,97 +404,95 @@ to @code{cabal repl}).")
                         (string-append bin "/git-remote-annex"))
                (symlink (string-append bin "/git-annex")
                         (string-append bin "/git-remote-tor-annex"))))))))
-    (inputs (list ghc-network-uri
+    (inputs
-                  ghc-optparse-applicative
+     (list curl
-                  ghc-uuid
+           ghc-aeson
-                  ghc-data-default
+           ghc-ansi-terminal
-                  ghc-case-insensitive
+           ghc-async
-                  ghc-random
+           ghc-attoparsec
-                  ghc-dlist
+           ghc-aws
-                  ghc-unix-compat
+           ghc-bloomfilter
-                  ghc-safesemaphore
+           ghc-byteable
-                  ghc-async
+           ghc-case-insensitive
-                  ghc-disk-free-space
+           ghc-clientsession
-                  ghc-ifelse
+           ghc-concurrent-output
-                  ghc-monad-logger
+           ghc-conduit
-                  ghc-free
+           ghc-connection
-                  ghc-utf8-string
+           ghc-crypto-api
-                  ghc-sandi
+           ghc-cryptonite
-                  ghc-monad-control
+           ghc-data-default
-                  ghc-bloomfilter
+           ghc-dav
-                  ghc-edit-distance
+           ghc-dbus
-                  ghc-resourcet
+           ghc-disk-free-space
-                  ghc-http-client
+           ghc-dlist
-                  ghc-http-client-tls
+           ghc-edit-distance
-                  ghc-http-types
+           ghc-exceptions
-                  ghc-http-conduit
+           ghc-fdo-notify
-                  ghc-http-client-restricted
+           ghc-feed
-                  ghc-conduit
+           ghc-filepath-bytestring
-                  ghc-old-locale
+           ghc-free
-                  ghc-persistent-sqlite
+           ghc-git-lfs
-                  ghc-persistent
+           ghc-hinotify
-                  ghc-persistent-template
+           ghc-http-client
-                  ghc-unliftio-core
+           ghc-http-client-tls
-                  ghc-microlens
+           ghc-http-client-restricted
-                  ghc-aeson
+           ghc-http-conduit
-                  ghc-vector
+           ghc-http-types
-                  ghc-tagsoup
+           ghc-ifelse
-                  ghc-unordered-containers
+           ghc-magic
-                  ghc-feed
+           ghc-memory
-                  ghc-regex-tdfa
+           ghc-microlens
-                  ghc-socks
+           ghc-monad-control
-                  ghc-byteable
+           ghc-monad-logger
-                  ghc-stm-chans
+           ghc-mountpoints
-                  ghc-securemem
+           ghc-network
-                  ghc-crypto-api
+           ghc-network-bsd
-                  ghc-memory
+           ghc-network-info
-                  ghc-split
+           ghc-network-multicast
-                  ghc-attoparsec
+           ghc-network-uri
-                  ghc-concurrent-output
+           ghc-old-locale
-                  ghc-unbounded-delays
+           ghc-optparse-applicative
-                  ghc-quickcheck
+           ghc-persistent
-                  ghc-tasty
+           ghc-persistent-sqlite
-                  ghc-tasty-hunit
+           ghc-persistent-template
-                  ghc-tasty-quickcheck
+           ghc-quickcheck
-                  ghc-tasty-rerun
+           ghc-random
-                  ghc-ansi-terminal
+           ghc-regex-tdfa
-                  ghc-aws
+           ghc-resourcet
-                  ghc-dav
+           ghc-safesemaphore
-                  ghc-network
+           ghc-sandi
-                  ghc-network-bsd
+           ghc-securemem
-                  ghc-git-lfs
+           ghc-servant-client
-                  ghc-clock
+           ghc-servant-server
-                  ghc-crypton
+           ghc-socks
-                  ghc-servant
+           ghc-split
-                  ghc-servant-server
+           ghc-stm-chans
-                  ghc-servant-client
+           ghc-tagsoup
-                  ghc-servant-client-core
+           ghc-torrent
-                  ghc-warp
+           ghc-transformers
-                  ghc-warp-tls
+           ghc-unbounded-delays
-                  ghc-os-string
+           ghc-unix-compat
-                  ghc-file-io
+           ghc-unliftio-core
-                  ghc-mountpoints
+           ghc-unordered-containers
-                  ghc-yesod
+           ghc-utf8-string
-                  ghc-yesod-static
+           ghc-uuid
-                  ghc-yesod-form
+           ghc-vector
-                  ghc-yesod-core
+           ghc-wai
-                  ghc-path-pieces
+           ghc-wai-extra
-                  ghc-wai
+           ghc-warp
-                  ghc-wai-extra
+           ghc-warp-tls
-                  ghc-blaze-builder
+           ghc-yesod
-                  ghc-clientsession
+           ghc-yesod-core
-                  ghc-shakespeare
+           ghc-yesod-form
-                  ghc-hinotify
+           ghc-yesod-static
-                  ghc-dbus
+           lsof
-                  ghc-fdo-notify
+           rsync
-                  ghc-network-multicast
+           xdg-utils))
-                  ghc-network-info
-                  ghc-torrent
-                  ghc-magic
-                  ghc-criterion))
     (propagated-inputs
      (list git))
-    (native-inputs (list ghc-filepath-bytestring))
+    (native-inputs
+     (list ghc-tasty ghc-tasty-hunit ghc-tasty-quickcheck ghc-tasty-rerun
+           perl))
     (home-page "https://git-annex.branchable.com/")
     (synopsis "Manage files with Git, without checking in their contents")
     (description "This package allows managing files with Git, without
@@ -534,13 +513,13 @@ used to keep a folder in sync between computers.")
 (define-public hlint
   (package
     (name "hlint")
-    (version "3.10")
+    (version "3.4.1")
-    (source
+    (source (origin
-     (origin
+              (method url-fetch)
-       (method url-fetch)
+              (uri (hackage-uri "hlint" version))
-       (uri (hackage-uri "hlint" version))
+              (sha256
-       (sha256
+               (base32
-        (base32 "0dzy7spc45v88yplczhd3la464bhcbaihi619a45bd06ghrp55nr"))))
+                "0bkk03c9hacvfd73dk89g4r81b50g7pjgw5pavldali4qwss34cz"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "hlint")))
     (inputs (list ghc-unordered-containers
@@ -557,10 +536,12 @@ used to keep a folder in sync between computers.")
                   ghc-aeson
                   ghc-deriving-aeson
                   ghc-filepattern
-                  ghc-lib-parser
                   ghc-lib-parser-ex
                   hscolour
                   ghc-yaml))
+    (arguments
+     `(#:cabal-revision ("1"
+                         "1rdaffg5n179yfcn5zjwjb0bki09qy13gz2ijky455y9pbaz8yz9")))
     (home-page "https://github.com/ndmitchell/hlint#readme")
     (synopsis "Suggest improvements for Haskell source code")
     (description
@@ -572,13 +553,13 @@ unwanted suggestions, and to add your own custom suggestions.")
 (define-public hoogle
   (package
     (name "hoogle")
-    (version "5.0.18.4")
+    (version "5.0.18.3")
-    (source
+    (source (origin
-     (origin
+              (method url-fetch)
-       (method url-fetch)
+              (uri (hackage-uri "hoogle" version))
-       (uri (hackage-uri "hoogle" version))
+              (sha256
-       (sha256
+               (base32
-        (base32 "08z32d87vqzhapb2vw21h25jb2g74csxlpvd8f54xl91k3ijs3wx"))))
+                "0v6k75w0an9pqgb7a6cicnpf9rz77xd2lmxfbafc5l4f99jg83bn"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "hoogle")))
     (inputs (list ghc-quickcheck
@@ -588,7 +569,7 @@ unwanted suggestions, and to add your own custom suggestions.")
                   ghc-cmdargs
                   ghc-conduit
                   ghc-conduit-extra
-                  ghc-crypton-connection
+                  ghc-connection
                   ghc-extra
                   ghc-foundation
                   ghc-old-locale
@@ -601,7 +582,6 @@ unwanted suggestions, and to add your own custom suggestions.")
                   ghc-mmap
                   ghc-process-extras
                   ghc-resourcet
-                  ghc-safe
                   ghc-storable-tuple
                   ghc-tar
                   ghc-uniplate
@@ -613,9 +593,6 @@ unwanted suggestions, and to add your own custom suggestions.")
                   ghc-warp-tls
                   ghc-zlib
                   ghc-semigroups))
-    (arguments
-     `(#:cabal-revision ("1"
-                         "1129flhhb1992rijw46dclvmpqlylmbrzl4swsnk2knylx6jgw5a")))
     (home-page "https://hoogle.haskell.org/")
     (synopsis "Haskell API Search")
     (description
@@ -627,13 +604,14 @@ or by approximate type signature.")
 (define-public hscolour
   (package
     (name "hscolour")
-    (version "1.25")
+    (version "1.24.4")
     (source
      (origin
        (method url-fetch)
        (uri (hackage-uri "hscolour" version))
        (sha256
-        (base32 "0z679khnmb6as1zcdb44n9qjk7in32jpm4ldscpqg7jrapd31kjl"))))
+        (base32
+         "079jwph4bwllfp03yfr26s5zc6m6kw3nhb1cggrifh99haq34cr4"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "hscolour")))
     (home-page "https://hackage.haskell.org/package/hscolour")
@@ -782,7 +760,7 @@ Wayland, and Linux console environments alike.")
                   ghc-text-zipper
                   ghc-timezone-olson
                   ghc-timezone-series
-                  ghc-unix-compat
+                  ghc-unix-compat-7
                   ghc-unordered-containers
                   ghc-utf8-string
                   ghc-uuid
@@ -976,7 +954,6 @@ too slow and you'll get wound up in the scroll and crushed.")
     (build-system haskell-build-system)
     (arguments
      (list #:haddock? #f ; TODO: Fails to build.
-           #:cabal-revision '("1" "1935jrzy1r3g9cc74b330fmxnz2i1j8hsdk9jnl557qgk6xjqzs7")
            #:phases
            #~(modify-phases %standard-phases
                (add-after 'build 'build-man-page
@@ -1016,13 +993,13 @@ advanced user's otherwise working script to fail under future circumstances.
 (define-public shelltestrunner
   (package
     (name "shelltestrunner")
-    (version "1.10")
+    (version "1.9")
-    (source
+    (source (origin
-     (origin
+              (method url-fetch)
-       (method url-fetch)
+              (uri (hackage-uri "shelltestrunner" version))
-       (uri (hackage-uri "shelltestrunner" version))
+              (sha256
-       (sha256
+               (base32
-        (base32 "1c6bjyxqa4mgnh3w4pqp6sbr5cf160n7jf9i1b4b9sdxzdjk7g87"))))
+                "1a5kzqbwg6990249ypw0cx6cqj6663as1kbj8nzblcky8j6kbi6b"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "shelltestrunner")))
     (arguments
@@ -1045,19 +1022,17 @@ advanced user's otherwise working script to fail under future circumstances.
                            "tests/examples")
                    (format #t "test suite not run~%"))
                #t))))))
-    (inputs (list ghc-diff
+    (inputs
-                  ghc-filemanip
+     (list ghc-diff
-                  ghc-hunit
+           ghc-cmdargs
-                  ghc-cmdargs
+           ghc-filemanip
-                  ghc-pretty-show
+           ghc-hunit
-                  ghc-regex-tdfa
+           ghc-pretty-show
-                  ghc-safe
+           ghc-regex-tdfa
-                  ghc-test-framework
+           ghc-safe
-                  ghc-test-framework-hunit
+           ghc-utf8-string
-                  ghc-utf8-string
+           ghc-test-framework
-                  ghc-hspec
+           ghc-test-framework-hunit))
-                  ghc-hspec-core
-                  ghc-hspec-contrib))
     (home-page "https://github.com/simonmichael/shelltestrunner")
     (synopsis "Test CLI programs")
     (description
@@ -1070,13 +1045,13 @@ output, stderr, and exit status.")
 (define-public stylish-haskell
   (package
     (name "stylish-haskell")
-    (version "0.15.1.0")
+    (version "0.14.3.0")
-    (source
+    (source (origin
-     (origin
+              (method url-fetch)
-       (method url-fetch)
+              (uri (hackage-uri "stylish-haskell" version))
-       (uri (hackage-uri "stylish-haskell" version))
+              (sha256
-       (sha256
+               (base32
-        (base32 "06y6f7bv5j5k7q81194v9jqcbmmqcv7h8ii3lq1783bpfnyd6h19"))))
+                "17w92v0qnwj7m6yqdq5cxbr04xiz0yfnnyx5q54218wdl7n5lf6d"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "stylish-haskell")))
     (inputs (list ghc-aeson
@@ -1086,7 +1061,6 @@ output, stderr, and exit status.")
                   ghc-hsyaml-aeson
                   ghc-hsyaml
                   ghc-semigroups
-                  ghc-lib-parser
                   ghc-lib-parser-ex
                   ghc-strict
                   ghc-optparse-applicative))

gnu/packages/haskell-check.scm

@@ -45,18 +45,22 @@
 (define-public ghc-tasty-ant-xml
   (package
     (name "ghc-tasty-ant-xml")
-    (version "1.1.9")
+    (version "1.1.8")
     (source
      (origin
        (method url-fetch)
        (uri (hackage-uri "tasty-ant-xml" version))
        (sha256
-        (base32 "00zgsd6jjfwasr69d0y781vhjr7d8p1jbaaz4pn75ljf33akd92l"))))
+        (base32
+         "0h9mllhw9cd0rn34xhj8grwmbny7z7hpd8qmp9lfcdj0s4qx9vx8"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "tasty-ant-xml")))
-    (inputs (list ghc-generic-deriving ghc-tagged ghc-tasty ghc-xml))
+    (inputs
-    (home-page "http://github.com/ocharles/tasty-ant-xml")
+     (list ghc-generic-deriving ghc-xml ghc-tagged ghc-tasty))
-    (synopsis "Render tasty output to XML for Jenkins")
+    (home-page
+     "https://github.com/ocharles/tasty-ant-xml")
+    (synopsis
+     "Render tasty output to XML for Jenkins")
     (description
      "A tasty ingredient to output test results in XML, using the Ant
 schema.  This XML can be consumed by the Jenkins continuous integration
@@ -72,37 +76,33 @@ framework.")
        (method url-fetch)
        (uri (hackage-uri "tasty-smallcheck" version))
        (sha256
-        (base32 "0csgwn3vch0jnpqyyfnrfjq4z0dpl67imh5a7byll3hhlyidgjym"))))
+        (base32
+         "0csgwn3vch0jnpqyyfnrfjq4z0dpl67imh5a7byll3hhlyidgjym"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "tasty-smallcheck")))
-    (inputs (list ghc-tasty ghc-smallcheck ghc-tagged ghc-optparse-applicative))
+    (inputs
-    (arguments
+     (list ghc-tasty ghc-smallcheck ghc-async ghc-tagged))
-     `(#:cabal-revision ("1"
+    (home-page "https://documentup.com/feuerbach/tasty")
-                         "0033ha2w9rzc1rxpzh1dkfdrn256i5lvb41pqbdh2i6kli0v5vmh")))
-    (home-page "https://github.com/feuerbach/tasty")
     (synopsis "SmallCheck support for the Tasty test framework")
     (description "This package provides SmallCheck support for the Tasty
 Haskell test framework.")
-    (license license:expat)))
+    (license license:bsd-3)))
 
 (define-public ghc-tasty-quickcheck
   (package
     (name "ghc-tasty-quickcheck")
-    (version "0.11.1")
+    (version "0.10.2")
-    (source
+    (source (origin
-     (origin
+              (method url-fetch)
-       (method url-fetch)
+              (uri (hackage-uri "tasty-quickcheck" version))
-       (uri (hackage-uri "tasty-quickcheck" version))
+              (sha256
-       (sha256
+               (base32
-        (base32 "0si4ccgqlv8h33d6310rrqba7f4pz3g8cinqfj42yd7damsdxm73"))))
+                "1qnc6rdvjvlw08q6sln2n98rvj0s0pp689h6w4z58smjbn0lr25l"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "tasty-quickcheck")))
     (inputs (list ghc-tagged ghc-tasty ghc-random ghc-quickcheck
                   ghc-optparse-applicative))
-    (native-inputs (list ghc-regex-tdfa ghc-tasty-hunit))
+    (native-inputs (list ghc-tasty-hunit ghc-pcre-light))
-    (arguments
-     `(#:cabal-revision ("3"
-                         "1wzvha4xam8npx5mk33c056grmrqnjd6m38nnm6d7y99w2mn1a7w")))
     (home-page "https://github.com/UnkindPartition/tasty")
     (synopsis "QuickCheck support for the Tasty test framework")
     (description "This package provides QuickCheck support for the Tasty
@@ -140,23 +140,22 @@ contains the correct result for the test.")
 (define-public ghc-tasty
   (package
     (name "ghc-tasty")
-    (version "1.5.3")
+    (version "1.4.3")
-    (source
+    (source (origin
-     (origin
+              (method url-fetch)
-       (method url-fetch)
+              (uri (hackage-uri "tasty" version))
-       (uri (hackage-uri "tasty" version))
+              (sha256
-       (sha256
+               (base32
-        (base32 "10076vlklbcyiz7plakrihava5sy3dvwhskjldqzhfl18jvcg82l"))))
+                "006bf4gyc30i2gvb17hj1mzrh1kwnwf7l050x3f72wi6c2axl87l"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "tasty")))
     (inputs
-      (list ghc-tagged
+      (append
-            ghc-optparse-applicative
+        (list ghc-tagged ghc-optparse-applicative ghc-ansi-terminal)
-            ghc-ansi-terminal
+        ;; TODO: Add ghc-unbounded-delays unconditionally on next rebuild cycle.
-            ghc-unbounded-delays)) ; needed on 32-bit architectures
+        (if (member (%current-system) '("i686-linux"))
-    (arguments
+            (list ghc-unbounded-delays)
-     `(#:cabal-revision ("2"
+            '())))
-                         "04llcf1i3gawdik0bjhxdgls2wkiqlx0gi76nfh784nv2qzxlpbb")))
     (home-page "https://github.com/UnkindPartition/tasty")
     (synopsis "Modern and extensible testing framework")
     (description
@@ -168,20 +167,17 @@ and any other types of tests into a single test suite.")
 (define-public ghc-tasty-hedgehog
   (package
     (name "ghc-tasty-hedgehog")
-    (version "1.4.0.2")
+    (version "1.3.1.0")
-    (source
+    (source (origin
-     (origin
+              (method url-fetch)
-       (method url-fetch)
+              (uri (hackage-uri "tasty-hedgehog" version))
-       (uri (hackage-uri "tasty-hedgehog" version))
+              (sha256
-       (sha256
+               (base32
-        (base32 "0lki03z0p38x0dkqx5cqga30zy5m31gxn1saqylja9bi6bbq8d25"))))
+                "1iq452mvd9wc9pfmjsmm848jwp3cvsk1faf2mlr21vcs0yaxvq3m"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "tasty-hedgehog")))
     (inputs (list ghc-tagged ghc-tasty ghc-hedgehog))
     (native-inputs (list ghc-tasty-expected-failure))
-    (arguments
-     `(#:cabal-revision ("6"
-                         "1rb8ncp6xyy7jr6v0hyls9m529ba0djndsxgxmkgr52rk3qq8lrc")))
     (home-page "https://github.com/qfpl/tasty-hedgehog")
     (synopsis "Integration for tasty and hedgehog")
     (description
@@ -194,25 +190,22 @@ framework}.")
 (define-public ghc-tasty-hspec
   (package
     (name "ghc-tasty-hspec")
-    (version "1.2.0.4")
+    (version "1.2.0.2")
     (source
      (origin
        (method url-fetch)
        (uri (hackage-uri "tasty-hspec" version))
        (sha256
-        (base32 "1hk1nkjvhp89xxgzj6dhbgw0fknnghpng6afq4i39hjkwv5p78ni"))))
+        (base32 "0cfcpi25jmnmzfzsx364qsj68q6gyph5z112kl8ja222hnhhr2n2"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "tasty-hspec")))
     (inputs (list ghc-hspec
-                  ghc-hspec-api
                   ghc-hspec-core
                   ghc-quickcheck
                   ghc-tasty
                   ghc-tasty-smallcheck
-                  ghc-tasty-quickcheck))
+                  ghc-tasty-quickcheck
-    (arguments
+                  ghc-tagged))
-     `(#:cabal-revision ("7"
-                         "0s1y34i8g7fva0z10ws3ipcy2jmlvqk0v4hdbx8rqnby5n0l5kay")))
     (home-page "https://github.com/mitchellwrosen/tasty-hspec")
     (synopsis "Hspec support for the Tasty test framework")
     (description
@@ -222,17 +215,19 @@ framework}.")
 (define-public ghc-tasty-hunit
   (package
     (name "ghc-tasty-hunit")
-    (version "0.10.2")
+    (version "0.10.0.3")
     (source
      (origin
        (method url-fetch)
        (uri (hackage-uri "tasty-hunit" version))
        (sha256
-        (base32 "1xh33ss7dncm7zanzkzh7ywb3a46k7vkcbh6v8jb767gq6kizw2s"))))
+        (base32
+         "0gz6zz3w7s44pymw33xcxnawryl27zk33766sab96nz2xh91kvxp"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "tasty-hunit")))
-    (inputs (list ghc-tasty ghc-call-stack-boot))
+    (inputs
-    (home-page "https://github.com/UnkindPartition/tasty")
+     (list ghc-call-stack-boot ghc-tasty))
+    (home-page "http://documentup.com/feuerbach/tasty")
     (synopsis "HUnit support for the Tasty test framework")
     (description "This package provides HUnit support for the Tasty Haskell
 test framework.")
@@ -262,13 +257,13 @@ tasty.")
 (define-public ghc-tasty-lua
   (package
     (name "ghc-tasty-lua")
-    (version "1.1.1.1")
+    (version "1.0.2")
-    (source
+    (source (origin
-     (origin
+              (method url-fetch)
-       (method url-fetch)
+              (uri (hackage-uri "tasty-lua" version))
-       (uri (hackage-uri "tasty-lua" version))
+              (sha256
-       (sha256
+               (base32
-        (base32 "03b2n3gw2w70cnl57w3sh3cv5ka270sf07jlxpb4zs0z5gh83p1r"))))
+                "1vnyvgcjsvqhwwyqkbgqksr9ppj5whiihpwcqkg33sl7jj3ysdwv"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "tasty-lua")))
     (inputs (list ghc-hslua-core
@@ -293,15 +288,16 @@ from Lua.")
        (method url-fetch)
        (uri (hackage-uri "tasty-th" version))
        (sha256
-        (base32 "0b2ivrw2257m4cy4rjnkwqlarh83j1y3zywnmaqqqbvy667sqnj3"))))
+        (base32
+         "0b2ivrw2257m4cy4rjnkwqlarh83j1y3zywnmaqqqbvy667sqnj3"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "tasty-th")))
-    (inputs (list ghc-haskell-src-exts ghc-tasty))
+    (inputs
-    (native-inputs (list ghc-tasty-hunit))
+     (list ghc-haskell-src-exts ghc-tasty ghc-tasty-hunit))
     (home-page "https://github.com/bennofs/tasty-th")
     (synopsis "Automatically generate tasty TestTrees")
     (description
-     "Tasty-th automatically generates tasty TestTrees from functions of the
+      "Tasty-th automatically generates tasty TestTrees from functions of the
 current module, using TemplateHaskell.  This is a fork the original
 test-framework-th package, modified to work with tasty instead of
 test-framework.")
@@ -310,27 +306,28 @@ test-framework.")
 (define-public ghc-tasty-rerun
   (package
     (name "ghc-tasty-rerun")
-    (version "1.1.20")
+    (version "1.1.18")
-    (source
+    (source (origin
-     (origin
+              (method url-fetch)
-       (method url-fetch)
+              (uri (hackage-uri "tasty-rerun" version))
-       (uri (hackage-uri "tasty-rerun" version))
+              (sha256
-       (sha256
+               (base32
-        (base32 "0px58jm1yqbg32qf2s0yk09d2qdjxkkz9df89f31q3nzw85jv2ky"))))
+                "0sccp5zx9v2rx741nbmgd8mzjhy5m4v74hk26d23xz93ph8aqx7s"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "tasty-rerun")))
-    (inputs (list ghc-optparse-applicative ghc-split ghc-tagged ghc-tasty))
+    (inputs
+     (list ghc-optparse-applicative ghc-reducers ghc-split ghc-tagged
+           ghc-tasty))
     (arguments
-     `(#:cabal-revision ("1"
+     `(#:cabal-revision ("3"
-                         "13xmx91hp7i0qzrhada9ckliqkynwlwa8x6pjbvxjcy1y0qsd7hk")))
+                         "0091arn90cx5rzn5n2bpb9alzybwraf9yj7hb0bwdfyamzpf3pkb")))
     (home-page "https://github.com/ocharles/tasty-rerun")
     (synopsis "Run tests by filtering the test tree")
-    (description
+    (description "This package adds the ability to run tests by filtering the
-     "This package adds the ability to run tests by filtering the
 test tree based on the result of a previous test run.  You can use this to run
 only those tests that failed in the last run, or to only run the tests that have
 been added since previous test run.")
-    (license license:bsd-3)))
+  (license license:bsd-3)))
 
 (define-public ghc-tasty-expected-failure
   (package
@@ -365,17 +362,17 @@ development.")
 (define-public ghc-quickcheck-instances
   (package
     (name "ghc-quickcheck-instances")
-    (version "0.3.33")
+    (version "0.3.29.1")
     (source
      (origin
        (method url-fetch)
        (uri (hackage-uri "quickcheck-instances" version))
        (sha256
-        (base32 "0rl8y3rb4fm4nqz122bp5f2aya4f8bc9m9i9n2vwlyq2gdacs0v8"))))
+        (base32 "0jx2wfy7y5dr14s9i457g2aah4isjxry4mlbqhj7vlav6ib84gdj"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "quickcheck-instances")))
     (inputs (list ghc-quickcheck
-                  ghc-splitmix-bootstrap
+                  ghc-splitmix
                   ghc-case-insensitive
                   ghc-data-fix
                   ghc-hashable
@@ -386,15 +383,17 @@ development.")
                   ghc-scientific
                   ghc-strict
                   ghc-tagged
-                  ghc-text-short
                   ghc-these
                   ghc-time-compat
+                  ghc-transformers-compat
                   ghc-unordered-containers
                   ghc-uuid-types
-                  ghc-vector))
+                  ghc-vector
+                  ghc-data-array-byte
+                  ghc-text-short))
     (arguments
-     `(#:cabal-revision ("1"
+     `(#:cabal-revision ("2"
-                         "1xkc7rsfgya4rwiizh0yfincws3knpdnh08m280v1dgik4kv37vh")))
+                         "118xy4z4dy4bpkzsp98daiv3l4n5j7ph9my0saca7cqjybqwkcip")))
     (home-page "https://github.com/haskellari/qc-instances")
     (synopsis "Common quickcheck instances")
     (description "This package provides QuickCheck instances for types
@@ -410,38 +409,17 @@ provided by the Haskell Platform.")
        (method url-fetch)
        (uri (hackage-uri "quickcheck-unicode" version))
        (sha256
-        (base32 "0s43s1bzbg3gwsjgm7fpyksd1339f0m26dlw2famxwyzgvm0a80k"))))
+        (base32
+         "0s43s1bzbg3gwsjgm7fpyksd1339f0m26dlw2famxwyzgvm0a80k"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "quickcheck-unicode")))
     (inputs (list ghc-quickcheck))
-    (home-page "https://github.com/bos/quickcheck-unicode")
+    (home-page
+     "https://github.com/bos/quickcheck-unicode")
     (synopsis "Generator functions Unicode-related tests")
     (description "This package provides generator and shrink functions for
 testing Unicode-related software.")
-    (license license:bsd-2)))
+    (license license:bsd-3)))
-
-(define-public ghc-quickcheck-text
-  (package
-    (name "ghc-quickcheck-text")
-    (version "0.1.2.1")
-    (source
-     (origin
-       (method url-fetch)
-       (uri (hackage-uri "quickcheck-text" version))
-       (sha256
-        (base32 "02dbs0k6igmsa1hcw8yfvp09v7038vp4zlsp9706km3cmswgshj4"))))
-    (build-system haskell-build-system)
-    (properties '((upstream-name . "quickcheck-text")))
-    (inputs (list ghc-quickcheck))
-    (home-page "https://github.com/olorin/quickcheck-text")
-    (synopsis "Alternative arbitrary instance for Text")
-    (description
-     "The usual Arbitrary instance for Text (in
-<https://hackage.haskell.org/package/quickcheck-instances quickcheck-instances>)
-only has single-byte instances and so isn't an ideal representation of a valid
-UTF-8 character.  This package has generators for one-, two- and three-byte
-UTF-8 characters (all that are currently in use).")
-    (license license:expat)))
 
 (define-public ghc-quickcheck-io
   (package
@@ -468,19 +446,17 @@ use HUnit assertions as QuickCheck properties.")
 (define-public ghc-quickcheck
   (package
     (name "ghc-quickcheck")
-    (version "2.15.0.1")
+    (version "2.14.3")
     (source
      (origin
        (method url-fetch)
        (uri (hackage-uri "QuickCheck" version))
        (sha256
-        (base32 "0zvfydg44ibs1br522rzvdlxj9mpz0h62js1hay1sj5gvdnj3cm3"))))
+        (base32 "0085lwy14r7hk7ibmv8d7d54ja9zin0ijf0b27xai898dfrj43sw"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "QuickCheck")))
-    (inputs (list ghc-random-bootstrap ghc-splitmix-bootstrap))
+    (inputs
-    (arguments
+     (list ghc-random ghc-splitmix-bootstrap))
-     `(#:cabal-revision ("1"
-                         "0cgfp4s51cjphsn9cls6rndisvqmi94vn95xan9g1yz6p5xk7z8c")))
     (home-page "https://github.com/nick8325/quickcheck")
     (synopsis "Automatic testing of Haskell programs")
     (description
@@ -503,8 +479,10 @@ expressed in Haskell, using combinators defined in the QuickCheck library.")
         (base32 "1kyam4cy7qmnizjwjm8jamq43w7f0fs6ljfplwj0ib6wi2kjh0wv"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "quickcheck-assertions")))
-    (inputs (list ghc-quickcheck ghc-ieee754 ghc-pretty-show))
+    (native-inputs
-    (native-inputs (list ghc-hspec))
+     (list ghc-hspec))
+    (inputs
+     (list ghc-ieee754 ghc-pretty-show ghc-quickcheck))
     (home-page "https://github.com/s9gf4ult/quickcheck-assertions")
     (synopsis "HUnit-like assertions for QuickCheck")
     (description
@@ -516,27 +494,33 @@ HUnit.")
 (define-public ghc-test-framework
   (package
     (name "ghc-test-framework")
-    (version "0.8.2.2")
+    (version "0.8.2.0")
     (source
      (origin
        (method url-fetch)
        (uri (hackage-uri "test-framework" version))
        (sha256
-        (base32 "04ijf5x6xx8i5lqv9ir33zs1rfzc4qkwwz8c1fdycnzvydcv4dnp"))))
+        (base32
+         "1hhacrzam6b8f10hyldmjw8pb7frdxh04rfg3farxcxwbnhwgbpm"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "test-framework")))
-    (inputs (list ghc-ansi-terminal
-                  ghc-ansi-wl-pprint
-                  ghc-random
-                  ghc-regex-posix
-                  ghc-old-locale
-                  ghc-xml
-                  ghc-hostname))
-    (native-inputs (list ghc-hunit ghc-quickcheck ghc-semigroups-bootstrap))
     (arguments
-     `(#:cabal-revision ("1"
+     `(#:tests? #f  ; FIXME: Tests do not build.
-                         "1yv1qsr6bxphxk9430id9bqhfmkffdqmfg0k017dp9pnn4pqj0zh")))
+       #:cabal-revision
-    (home-page "https://github.com/haskell/test-framework#readme")
+       ("6" "0wbq9wiaag69nsqxwijzhs5y1hb9kbpkp1x65dvx158cxp8i9w9r")))
+    ;(native-inputs
+    ; (list ghc-hunit ghc-quickcheck))
+    (inputs
+     `(("ghc-ansi-terminal" ,ghc-ansi-terminal)
+       ("ghc-ansi-wl-pprint" ,ghc-ansi-wl-pprint)
+       ("ghc-hostname" ,ghc-hostname)
+       ("ghc-old-locale" ,ghc-old-locale)
+       ("ghc-random" ,ghc-random)
+       ("ghc-regex-posix" ,ghc-regex-posix)
+       ("ghc-xml" ,ghc-xml)
+       ("ghc-libxml" ,ghc-libxml)
+       ("ghc-semigroups" ,ghc-semigroups-bootstrap)))
+    (home-page "https://batterseapower.github.io/test-framework/")
     (synopsis "Framework for running and organising tests")
     (description
      "This package allows tests such as QuickCheck properties and HUnit test
@@ -573,21 +557,23 @@ reporting and test statistics output.")
 (define-public ghc-test-framework-quickcheck2
   (package
     (name "ghc-test-framework-quickcheck2")
-    (version "0.3.0.6")
+    (version "0.3.0.5")
     (source
      (origin
        (method url-fetch)
        (uri (hackage-uri "test-framework-quickcheck2" version))
        (sha256
-        (base32 "1d0w2q9sm8aayk0aj1zr2irpnqwpzixn6pdfq1i904vs1kkb2xin"))))
+        (base32
+         "0ngf9vvby4nrdf1i7dxf5m9jn0g2pkq32w48xdr92n9hxka7ixn9"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "test-framework-quickcheck2")))
-    (inputs (list ghc-test-framework ghc-quickcheck ghc-extensible-exceptions
-                  ghc-random))
     (arguments
-     `(#:cabal-revision ("1"
+     `(#:cabal-revision
-                         "1af2gw9gvq143jdqmsnxj23cgss9ffdyr67951a5x151aps04y7z")))
+       ("3" "0mglqfimla4vvv80mg08aj76zf4993wmngqlirh05h8i9nmgv6lh")))
-    (home-page "https://github.com/haskell/test-framework")
+    (inputs
+     (list ghc-extensible-exceptions ghc-quickcheck ghc-random
+           ghc-test-framework))
+    (home-page "https://batterseapower.github.io/test-framework/")
     (synopsis "QuickCheck2 support for test-framework")
     (description
      "This package provides QuickCheck2 support for the test-framework
@@ -606,8 +592,9 @@ package.")
         (base32 "1xpgpk1gp4w7w46b4rhj80fa0bcyz8asj2dcjb5x1c37b7rw90b0"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "test-framework-smallcheck")))
-    (inputs (list ghc-test-framework ghc-smallcheck))
+    (inputs
-    (home-page "https://github.com/feuerbach/smallcheck")
+     (list ghc-smallcheck ghc-test-framework))
+    (home-page "https://github.com/Bodigrim/smallcheck")
     (synopsis "SmallCheck support for test-framework")
     (description
      "This package lets programmers use SmallCheck properties in Haskell's
@@ -673,17 +660,17 @@ JUnit tool for Java.")
 (define-public hspec-discover
   (package
     (name "hspec-discover")
-    (version "2.11.12")
+    (version "2.9.7")
-    (source
+    (source (origin
-     (origin
+              (method url-fetch)
-       (method url-fetch)
+              (uri (hackage-uri "hspec-discover" version))
-       (uri (hackage-uri "hspec-discover" version))
+              (sha256
-       (sha256
+               (base32
-        (base32 "044vgsy45ff00h9z2k3jgn2m37npcjiacc4cifahrjlmwa7a7ylp"))))
+                "0536kdxjw6p8b6gcwvmr22jbmb6cgzbddi0fkd01b2m847z37sb5"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "hspec-discover")))
     (native-inputs (list ghc-quickcheck ghc-hspec-meta ghc-mockery-bootstrap))
-    (home-page "https://hspec.github.io/")
+    (home-page "http://hspec.github.io/")
     (synopsis "Automatically discover and run Hspec tests")
     (description "hspec-discover is a tool which automatically discovers and
 runs Hspec tests.")
@@ -692,30 +679,28 @@ runs Hspec tests.")
 (define-public ghc-hspec-core
   (package
     (name "ghc-hspec-core")
-    (version "2.11.12")
+    (version "2.9.7")
-    (source
+    (source (origin
-     (origin
+              (method url-fetch)
-       (method url-fetch)
+              (uri (hackage-uri "hspec-core" version))
-       (uri (hackage-uri "hspec-core" version))
+              (sha256
-       (sha256
+               (base32
-        (base32 "030400w95775jrivbi7n1nnx6j5z717rqd3986ggklb8h9hjalfc"))))
+                "040rzqiqwkp373jjpij8lkmv08pp2ya92zzcf95bw8px215rp08n"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "hspec-core")))
     (inputs (list ghc-hunit
                   ghc-quickcheck
                   ghc-ansi-terminal
                   ghc-call-stack
-                  ghc-haskell-lexer
+                  ghc-clock
                   ghc-hspec-expectations
                   ghc-quickcheck-io
                   ghc-random
+                  ghc-setenv
                   ghc-tf-random))
     (native-inputs (list ghc-base-orphans-bootstrap ghc-hspec-meta
-                         ghc-silently-bootstrap ghc-temporary-bootstrap))
+                         ghc-silently-bootstrap ghc-temporary))
-    (arguments
+    (home-page "http://hspec.github.io/")
-     `(#:cabal-revision ("1"
-                         "0yq9nnawcgbgxiz4ymfa8k66jrvgrhmv8j7g880x8k6q8q4ncqlq")))
-    (home-page "https://hspec.github.io/")
     (synopsis "Testing framework for Haskell")
     (description "This library exposes internal types and functions that can
 be used to extend Hspec's functionality.")
@@ -724,28 +709,23 @@ be used to extend Hspec's functionality.")
 (define-public ghc-hspec-meta
   (package
     (name "ghc-hspec-meta")
-    (version "2.11.12")
+    (version "2.9.3")
-    (source
+    (source (origin
-     (origin
+              (method url-fetch)
-       (method url-fetch)
+              (uri (hackage-uri "hspec-meta" version))
-       (uri (hackage-uri "hspec-meta" version))
+              (sha256
-       (sha256
+               (base32
-        (base32 "1612pg5gihqjxrzqqvbbgckaqiwq3rmz3rg07lrjhzklg975nj69"))))
+                "1raxwpsmcijl3x2h5naw6aydhbiknxvhj3x7v384bi1rqi51ainm"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "hspec-meta")))
-    (inputs (list ghc-hunit
+    (inputs (list ghc-quickcheck
-                  ghc-quickcheck
                   ghc-ansi-terminal
                   ghc-call-stack-boot
-                  ghc-haskell-lexer
+                  ghc-clock
-                  ghc-hspec-expectations
                   ghc-quickcheck-io
                   ghc-random
-                  ghc-tf-random))
+                  ghc-setenv))
-    (arguments
+    (home-page "http://hspec.github.io/")
-     `(#:cabal-revision ("2"
-                         "1jrk14s51psb0zjici56220iyb98i3q06sd3rsyx594s3cddgn5d")))
-    (home-page "https://hspec.github.io/")
     (synopsis "Version of Hspec to test Hspec itself")
     (description "This library provides a stable version of Hspec which is
 used to test the in-development version of Hspec.")
@@ -754,58 +734,38 @@ used to test the in-development version of Hspec.")
 (define-public ghc-hspec
   (package
     (name "ghc-hspec")
-    (version "2.11.12")
+    (version "2.9.7")
-    (source
+    (source (origin
-     (origin
+              (method url-fetch)
-       (method url-fetch)
+              (uri (hackage-uri "hspec" version))
-       (uri (hackage-uri "hspec" version))
+              (sha256
-       (sha256
+               (base32
-        (base32 "1zdgkn0gkcphcsfqcqwcfqiqvkz12ljks46v3czpaysndz8icfip"))))
+                "092sfqjkargxxszp9jjqa8ldjz0xv34jwn6k21q59ys5ckvsrpc1"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "hspec")))
     (inputs (list ghc-quickcheck ghc-hspec-core hspec-discover
                   ghc-hspec-expectations))
-    (home-page "https://hspec.github.io/")
+    (home-page "http://hspec.github.io/")
     (synopsis "Testing Framework for Haskell")
     (description "This library provides the Hspec testing framework for
 Haskell, inspired by the Ruby library RSpec.")
     (license license:expat)))
 
-(define-public ghc-hspec-api
-  (package
-    (name "ghc-hspec-api")
-    (version "2.11.12")
-    (source
-     (origin
-       (method url-fetch)
-       (uri (hackage-uri "hspec-api" version))
-       (sha256
-        (base32 "1xn2b2hafyq6qm3zaia9nw27ir4cg8v2qn499bz2zwnp2vkjra07"))))
-    (build-system haskell-build-system)
-    (properties '((upstream-name . "hspec-api")))
-    (inputs (list ghc-hspec-core))
-    (native-inputs (list ghc-hspec))
-    (home-page "https://hspec.github.io/")
-    (synopsis "A Testing Framework for Haskell")
-    (description
-     "This package provides a stable API that can be used to extend Hspec's
-functionality.")
-    (license license:expat)))
-
 (define-public ghc-hspec-contrib
   (package
     (name "ghc-hspec-contrib")
-    (version "0.5.2")
+    (version "0.5.1.1")
     (source
      (origin
        (method url-fetch)
        (uri (hackage-uri "hspec-contrib" version))
        (sha256
-        (base32 "0002xzvyh790iwf1y33d4nflrbp5sxvpsp010srcfryf1n3qx2b0"))))
+        (base32 "1nyb5n2jiq920yyf3flzyxrs5xpfyppl3jn18zhviyysjjk5drpx"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "hspec-contrib")))
     (inputs (list ghc-hunit ghc-call-stack ghc-hspec-core))
     (native-inputs (list ghc-quickcheck ghc-hspec hspec-discover))
+    (arguments (list #:tests? #f)) ; Fail to build.
     (home-page "https://hspec.github.io/")
     (synopsis "Contributed functionality for Hspec")
     (description "This package provides contributed Hspec extensions.")
@@ -814,25 +774,22 @@ functionality.")
 (define-public ghc-hspec-expectations
   (package
     (name "ghc-hspec-expectations")
-    (version "0.8.4")
+    (version "0.8.2")
     (source
      (origin
        (method url-fetch)
        (uri (hackage-uri "hspec-expectations" version))
        (sha256
-        (base32 "1zr1pqchcwglfr5dvcrgc1l5x924n9w09n2zr68dmkqf4dzdx3bv"))))
+        (base32
+         "1vxl9zazbaapijr6zmcj72j9wf7ka1pirrjbwddwwddg3zm0g5l1"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "hspec-expectations")))
-    (inputs (list ghc-hunit ghc-call-stack))
-    (arguments
     ;; Tests depend on ghc-nanospec.
-     `(#:tests? #f
+    (arguments '(#:tests? #f))
-       #:cabal-revision ("2"
+    (inputs (list ghc-hunit))
-                         "14zzsjqcz1zbnvi50i82lx84nc8b5da7ar5cazzh44lklyag0ds2")))
+    (home-page "https://github.com/sol/hspec-expectations")
-    (home-page "https://github.com/hspec/hspec-expectations#readme")
     (synopsis "Catchy combinators for HUnit")
-    (description
+    (description "This library provides catchy combinators for HUnit, see
-     "This library provides catchy combinators for HUnit, see
 @uref{https://github.com/sol/hspec-expectations#readme, the README}.")
     (license license:expat)))
 
@@ -897,13 +854,13 @@ implementations of cryptographic ciphers.")
 (define-public ghc-hedgehog
   (package
     (name "ghc-hedgehog")
-    (version "1.5")
+    (version "1.1.2")
-    (source
+    (source (origin
-     (origin
+              (method url-fetch)
-       (method url-fetch)
+              (uri (hackage-uri "hedgehog" version))
-       (uri (hackage-uri "hedgehog" version))
+              (sha256
-       (sha256
+               (base32
-        (base32 "0sl6x9q9kyrpv73565w9na9dm10wzxdl0qgiraqarffynfgn0hg9"))))
+                "0dbk75hk6hqpzkjdlpw3s63qhm42kqigij33p321by6xndb59jg1"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "hedgehog")))
     (inputs (list ghc-ansi-terminal
@@ -918,12 +875,8 @@ implementations of cryptographic ciphers.")
                   ghc-primitive
                   ghc-random
                   ghc-resourcet
-                  ghc-safe-exceptions
                   ghc-transformers-base
                   ghc-wl-pprint-annotated))
-    (arguments
-     `(#:cabal-revision ("2"
-                         "1m0b9m8dw5nw4b3w1jbp5fd0b0kqlyvvy3qsfxc7md77iafxq169")))
     (home-page "https://hedgehog.qa")
     (synopsis "Property-based testing in the spirt of QuickCheck")
     (description
@@ -939,16 +892,26 @@ To get started quickly, see the examples:
 (define-public cabal-doctest
   (package
     (name "cabal-doctest")
-    (version "1.0.11")
+    (version "1.0.9")
-    (source
+    (source (origin
-     (origin
+              (method url-fetch)
-       (method url-fetch)
+              (uri (hackage-uri "cabal-doctest" version))
-       (uri (hackage-uri "cabal-doctest" version))
+              (sha256
-       (sha256
+               (base32
-        (base32 "0gwjpwv2v7c7gs2dvf7ixsxx6likmgw5yi0fy4bqc0i7nkqg4bfw"))))
+                "0wxs0xkspc80h0g8ks792lrzldxvcnhc9rja1j0k678ijs20hmjm"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "cabal-doctest")))
-    (home-page "https://github.com/ulidtko/cabal-doctest")
+    (arguments
+     `(#:cabal-revision ("2"
+                         "0868js0qgfhvmyw4hjzrvmlzyqsm8dfsbmqhybxb90x44xi3r0i1")
+       #:phases
+       (modify-phases %standard-phases
+         (add-before 'configure 'update-constraints
+           (lambda _
+             (substitute* "cabal-doctest.cabal"
+               (("\\b(Cabal|base)\\s+[^,]+" all dep)
+                dep)))))))
+    (home-page "https://github.com/haskellari/cabal-doctest")
     (synopsis "Setup.hs helper for running doctests")
     (description
      "To properly work, the @code{doctest} package needs plenty of
@@ -1008,13 +971,13 @@ random testing, and hybrids of the two.")
 (define-public ghc-inspection-testing
   (package
     (name "ghc-inspection-testing")
-    (version "0.6.2")
+    (version "0.4.6.1")
-    (source
+    (source (origin
-     (origin
+              (method url-fetch)
-       (method url-fetch)
+              (uri (hackage-uri "inspection-testing" version))
-       (uri (hackage-uri "inspection-testing" version))
+              (sha256
-       (sha256
+               (base32
-        (base32 "0zi1q86sd9jy5dpqfs2j71acdl7kvik0ps78xirpdhyldhwwyqws"))))
+                "0mxff0v3ciccbk4b8kxnh4752fzbwn7213qd8xji0csv6gi2w83y"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "inspection-testing")))
     (home-page "https://github.com/nomeata/inspection-testing")
@@ -1047,33 +1010,33 @@ examples and more information.")
     (name "ghc-quickcheck-classes")
     (version "0.6.5.0")
     (source
-     (origin
+      (origin
-       (method url-fetch)
+        (method url-fetch)
-       (uri (hackage-uri "quickcheck-classes" version))
+        (uri (hackage-uri "quickcheck-classes" version))
-       (sha256
+        (sha256
-        (base32 "19iw15mvb7gws3ljdxqwsbb4pmfc0sfflf8szgmrhiqr3k82mqv2"))))
+          (base32 "19iw15mvb7gws3ljdxqwsbb4pmfc0sfflf8szgmrhiqr3k82mqv2"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "quickcheck-classes")))
-    (inputs (list ghc-quickcheck
+    (inputs
-                  ghc-primitive
+      (list ghc-quickcheck
-                  ghc-primitive-addr
+            ghc-primitive
-                  ghc-quickcheck-classes-base
+            ghc-primitive-addr
-                  ghc-semigroups-bootstrap
+            ghc-quickcheck-classes-base
-                  ghc-fail
+            ghc-aeson
-                  ghc-tagged
+            ghc-semigroupoids
-                  ghc-aeson
+            ghc-semirings
-                  ghc-semigroupoids
+            ghc-vector))
-                  ghc-semirings
+    (native-inputs
-                  ghc-vector))
+      (list ghc-base-orphans
-    (native-inputs (list ghc-base-orphans ghc-base-orphans ghc-tasty
+            ghc-tagged
-                         ghc-tasty-quickcheck))
+            ghc-base-orphans
-    (arguments
+            ghc-tagged
-     `(#:cabal-revision ("3"
+            ghc-tasty
-                         "1pawam5rsdcdv21fqc87khzqjm0ixwzklfxd6gk3b2qrr5q66bn5")))
+            ghc-tasty-quickcheck))
     (home-page "https://github.com/andrewthad/quickcheck-classes#readme")
     (synopsis "QuickCheck common typeclasses")
     (description
-     "This library provides QuickCheck properties to ensure that typeclass
+      "This library provides QuickCheck properties to ensure that typeclass
 instances adhere to the set of laws that they are supposed to.  There are
 other libraries that do similar things, such as @code{genvalidity-hspec} and
 @code{checkers}.  This library differs from other solutions by not introducing
@@ -1089,26 +1052,24 @@ constraints more cleanly.")
     (name "ghc-quickcheck-classes-base")
     (version "0.6.2.0")
     (source
-     (origin
+      (origin
-       (method url-fetch)
+        (method url-fetch)
-       (uri (hackage-uri "quickcheck-classes-base" version))
+        (uri (hackage-uri "quickcheck-classes-base" version))
-       (sha256
+        (sha256
-        (base32 "16c6gq4cqpkwnq1pzkhm6r7mrwk4an50ha5w77bmiia2qkhla6ch"))))
+          (base32 "16c6gq4cqpkwnq1pzkhm6r7mrwk4an50ha5w77bmiia2qkhla6ch"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "quickcheck-classes-base")))
-    (inputs (list ghc-quickcheck
+    (inputs
-                  ghc-contravariant
+      (list ghc-quickcheck
-                  ghc-bifunctors
+            ghc-contravariant
-                  ghc-semigroups-bootstrap
+            ghc-bifunctors
-                  ghc-fail
+            ghc-semigroups
-                  ghc-tagged))
+            ghc-fail
-    (arguments
+            ghc-tagged))
-     `(#:cabal-revision ("1"
-                         "1p3v38jhpx0r6rnvaspkkivl8xyq2mq4xnmycgmkj1gr77vplkdr")))
     (home-page "https://github.com/andrewthad/quickcheck-classes#readme")
     (synopsis "QuickCheck common typeclasses from `base`")
     (description
-     "This library is a minimal variant of `quickcheck-classes` that only
+      "This library is a minimal variant of `quickcheck-classes` that only
 provides laws for typeclasses from `base`.  The main purpose of splitting this
 out is so that `primitive` can depend on `quickcheck-classes-base` in its test
 suite, avoiding the circular dependency that arises if `quickcheck-classes` is
@@ -1126,61 +1087,67 @@ this library uses the higher-kinded typeclasses
 (define-public ghc-doctest-lib
   (package
     (name "ghc-doctest-lib")
-    (version "0.1.1.1")
+    (version "0.1")
     (source
-     (origin
+      (origin
-       (method url-fetch)
+        (method url-fetch)
-       (uri (hackage-uri "doctest-lib" version))
+        (uri (hackage-uri "doctest-lib" version))
-       (sha256
+        (sha256
-        (base32 "1hb3zx1xzib3v41blnwcbhc2v0rzwdzq7gm4sajqndimwjkkxc67"))))
+          (base32 "1vswam0dhw52dihgnzirh18gqs8rj8h6jd7pl6y1mg2f9f9zmih2"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "doctest-lib")))
     (home-page "https://hub.darcs.net/thielema/doctest-lib/")
     (synopsis "Parts of doctest exposed as library")
     (description
-     "Parts of doctest exposed as library.  For use with the doctest-extract utility.")
+      "Parts of doctest exposed as library.  For use with the doctest-extract utility.")
     (license license:expat)))
 
 (define-public ghc-doctest-exitcode-stdio
   (package
     (name "ghc-doctest-exitcode-stdio")
-    (version "0.0.0.1")
+    (version "0.0")
     (source
-     (origin
+      (origin
-       (method url-fetch)
+        (method url-fetch)
-       (uri (hackage-uri "doctest-exitcode-stdio" version))
+        (uri (hackage-uri "doctest-exitcode-stdio" version))
-       (sha256
+        (sha256
-        (base32 "0kg5xiw4giyvqpcj6cxqqnysvixhxlwm0pbg3qks8dzwb5w79dvk"))))
+          (base32 "1g3c7yrqq2mwqbmvs8vkx1a3cf0p0x74b7fnn344dsk7bsfpgv0x"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "doctest-exitcode-stdio")))
-    (inputs (list ghc-doctest-lib ghc-quickcheck ghc-semigroups))
+    (inputs
+      (list ghc-doctest-lib ghc-quickcheck ghc-semigroups))
+    (arguments
+     `(#:cabal-revision ("1"
+                         "1065s8bch6zhl6mc8nhvfpwd1irmjd04z7xgycbpihc14x4ijim3")))
     (home-page "https://hub.darcs.net/thielema/doctest-exitcode-stdio/")
     (synopsis "Run Doctests in a @code{Cabal.Test.exitcode-stdio} environment")
     (description
-     "This package allows on to run Doctests in a Cabal.Test.exitcode-stdio
+      "This package allows on to run Doctests in a Cabal.Test.exitcode-stdio
 environment.")
     (license license:bsd-3)))
 
 (define-public ghc-tasty-silver
   (package
     (name "ghc-tasty-silver")
-    (version "3.3.2.1")
+    (version "3.3.1.1")
-    (source
+    (source (origin
-     (origin
+              (method url-fetch)
-       (method url-fetch)
+              (uri (hackage-uri "tasty-silver" version))
-       (uri (hackage-uri "tasty-silver" version))
+              (sha256
-       (sha256
+               (base32
-        (base32 "01w3576kymglcddinh10m1wgy71dia49k2pnw5y1c97jjrhanf17"))))
+                "13j0zs0ciijv9q2nncna1gbgsgw2g7xc228hzmqic1750n3ybz9m"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "tasty-silver")))
     (inputs (list ghc-ansi-terminal
+                  ghc-async
                   ghc-optparse-applicative
                   ghc-process-extras
                   ghc-regex-tdfa
                   ghc-silently
                   ghc-tagged
                   ghc-tasty
-                  ghc-temporary))
+                  ghc-temporary
+                  ghc-semigroups))
     (native-inputs (list ghc-tasty-hunit))
     (home-page "https://github.com/phile314/tasty-silver")
     (synopsis "Fancy test runner, including support for golden tests")
@@ -1196,19 +1163,16 @@ result of golden tests.")
 (define-public ghc-tasty-inspection-testing
   (package
     (name "ghc-tasty-inspection-testing")
-    (version "0.2.1")
+    (version "0.1.0.1")
-    (source
+    (source (origin
-     (origin
+              (method url-fetch)
-       (method url-fetch)
+              (uri (hackage-uri "tasty-inspection-testing" version))
-       (uri (hackage-uri "tasty-inspection-testing" version))
+              (sha256
-       (sha256
+               (base32
-        (base32 "0wl2xlnbmqdkwhi4ic6a4q4lxf9qg433lidi8d0hlp3ykrjpbcay"))))
+                "0p46w44f19w7lvdzyg3vq6qzix0rjp8p23ilxz82dviq38lgmifp"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "tasty-inspection-testing")))
     (inputs (list ghc-inspection-testing ghc-tasty))
-    (arguments
-     `(#:cabal-revision ("2"
-                         "0z9al0hyq381fw146agbpz7rf24rwms1w91m7s0k1w3xbfw16l9n")))
     (home-page "https://github.com/Bodigrim/tasty-inspection-testing")
     (synopsis "Inspection testing support for tasty")
     (description

gnu/packages/haskell-crypto.scm

@@ -62,19 +62,18 @@ format.")
   (package
     (name "ghc-asn1-encoding")
     (version "0.9.6")
-    (source
+    (source (origin
-     (origin
+              (method url-fetch)
-       (method url-fetch)
+              (uri (hackage-uri "asn1-encoding" version))
-       (uri (hackage-uri "asn1-encoding" version))
+              (sha256
-       (sha256
+               (base32
-        (base32 "02nsr30h5yic1mk7znf0q4z3n560ip017n60hg7ya25rsfmxxy6r"))))
+                "02nsr30h5yic1mk7znf0q4z3n560ip017n60hg7ya25rsfmxxy6r"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "asn1-encoding")))
-    (inputs (list ghc-hourglass ghc-asn1-types))
+    (inputs
-    (native-inputs (list ghc-tasty ghc-tasty-quickcheck))
+     (list ghc-hourglass ghc-asn1-types))
-    (arguments
+    (native-inputs
-     `(#:cabal-revision ("2"
+     (list ghc-tasty ghc-tasty-quickcheck))
-                         "16503ryhq15f2rfdav2qnkq11dg2r3vk3f9v64q9dmxf8dh8zv97")))
     (home-page "https://github.com/vincenthz/hs-asn1")
     (synopsis "ASN1 data reader and writer in RAW, BER and DER forms")
     (description
@@ -112,18 +111,15 @@ when ASN1 pattern matching is not convenient.")
        (method url-fetch)
        (uri (hackage-uri "crypto-api" version))
        (sha256
-        (base32 "19bsmkqkpnvh01b77pmyarx00fic15j4hvg4pzscrj4prskrx2i9"))))
+        (base32
+         "19bsmkqkpnvh01b77pmyarx00fic15j4hvg4pzscrj4prskrx2i9"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "crypto-api")))
     (inputs (list ghc-cereal ghc-tagged ghc-entropy))
-    (arguments
-     `(#:cabal-revision ("1"
-                         "1z6n1sa5pn3iqvqjrd8hv4bc2pxzsrhm5sh0l8z7g9lbqp6w0wp5")))
     (home-page "https://github.com/TomMD/crypto-api")
     (synopsis "Provides generic interface for cryptographic operations
 for Haskell")
-    (description
+    (description "This Haskell package provides a generic interface for
-     "This Haskell package provides a generic interface for
 cryptographic operations (hashes, ciphers, randomness).
 
 Maintainers of hash and cipher implementations are encouraged to add instances
@@ -201,15 +197,13 @@ that hides the C implementation.")
        (method url-fetch)
        (uri (hackage-uri "cryptohash-md5" version))
        (sha256
-        (base32 "018g13hkmq5782i24b4518hcd926fl6x6fh5hd7b9wlxwc5dn21v"))))
+        (base32
+         "018g13hkmq5782i24b4518hcd926fl6x6fh5hd7b9wlxwc5dn21v"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "cryptohash-md5")))
     (native-inputs (list ghc-base16-bytestring ghc-puremd5 ghc-tasty
-                         ghc-tasty-quickcheck ghc-tasty-hunit))
+                         ghc-tasty-hunit ghc-tasty-quickcheck))
-    (arguments
+    (home-page "https://github.com/hvr/cryptohash-md5")
-     `(#:cabal-revision ("6"
-                         "0m7f9mgw4w9vcch37ja9zgbn0knq8rjppqr9x2ylkcdxfdnmhhif")))
-    (home-page "https://github.com/haskell-hvr/cryptohash-md5")
     (synopsis "MD5 implementation for Haskell")
     (description "This Haskell package provides implementation of MD5.")
     (license license:bsd-3)))
@@ -218,20 +212,20 @@ that hides the C implementation.")
   (package
     (name "ghc-cryptohash-sha1")
     (version "0.11.101.0")
-    (source
+    (source (origin
-     (origin
+              (method url-fetch)
-       (method url-fetch)
+              (uri (hackage-uri "cryptohash-sha1" version))
-       (uri (hackage-uri "cryptohash-sha1" version))
+              (sha256
-       (sha256
+               (base32
-        (base32 "0h9jl9v38gj0vnscqx7xdklk634p05fa6z2pcvknisq2mnbjq154"))))
+                "0h9jl9v38gj0vnscqx7xdklk634p05fa6z2pcvknisq2mnbjq154"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "cryptohash-sha1")))
     (native-inputs (list ghc-base16-bytestring ghc-sha ghc-tasty
                          ghc-tasty-quickcheck ghc-tasty-hunit))
     (arguments
-     `(#:cabal-revision ("6"
+     `(#:cabal-revision ("1"
-                         "1cxdw2y10z4v0mz91wki7f233jziipx85j4qy5msig4nv3djkprb")))
+                         "0bz9rfl7b2iwn45m0lxcmsyi5rrv3xdgzx2lzr79bds91dw6i25b")))
-    (home-page "https://github.com/haskell-hvr/cryptohash-sha1")
+    (home-page "https://github.com/hvr/cryptohash-sha1")
     (synopsis "SHA-1 implementation for Haskell")
     (description
      "This Haskell package provides an incremental and one-pass,
@@ -252,18 +246,20 @@ the C implementation.")
        (method url-fetch)
        (uri (hackage-uri "cryptohash-sha256" version))
        (sha256
-        (base32 "1xkb7iqplbw4fy1122p79xf1zcb7k44rl0wmfj1q06l7cdqxr9vk"))))
+        (base32
+         "1xkb7iqplbw4fy1122p79xf1zcb7k44rl0wmfj1q06l7cdqxr9vk"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "cryptohash-sha256")))
-    (native-inputs (list ghc-base16-bytestring ghc-sha ghc-tasty
-                         ghc-tasty-quickcheck ghc-tasty-hunit))
     (arguments
-     `(#:cabal-revision ("6"
+     `(#:cabal-revision
-                         "01s12sl5mxvraj5fj3cs0pkb03pm8xpjz13y09dpl7i6rv6f578f")))
+       ("1" "1hyzqv30rpj920ddnr0zypyjjlh52vyp2d140pn2byayj820rkgs")
-    (home-page "https://github.com/haskell-hvr/cryptohash-sha256")
+       #:tests? #f)) ; TODO: tasty ==1.1.*
+    (native-inputs
+     (list ghc-base16-bytestring ghc-sha ghc-tasty ghc-tasty-hunit
+           ghc-tasty-quickcheck))
+    (home-page "https://github.com/hvr/cryptohash-sha1")
     (synopsis "SHA-256 implementation for Haskell")
-    (description
+    (description "This Haskell package provides an incremental and
-     "This Haskell package provides an incremental and
 one-pass, pure API to the @uref{https://en.wikipedia.org/wiki/SHA-2,
 SHA-256 cryptographic hash algorithm}, with performance close to the
 fastest implementations available in other languages.
@@ -276,12 +272,12 @@ the C implementation.")
   (package
     (name "ghc-cryptonite")
     (version "0.30")
-    (source
+    (source (origin
-     (origin
+              (method url-fetch)
-       (method url-fetch)
+              (uri (hackage-uri "cryptonite" version))
-       (uri (hackage-uri "cryptonite" version))
+              (sha256
-       (sha256
+               (base32
-        (base32 "07bb97iszhnrfddh5ql6p3dqd0c13xycjw5n2kljw7d0ia59q2an"))))
+                "07bb97iszhnrfddh5ql6p3dqd0c13xycjw5n2kljw7d0ia59q2an"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "cryptonite")))
     (inputs (list ghc-memory ghc-basement))
@@ -330,17 +326,19 @@ elsewhere.")
 (define-public ghc-digest
   (package
     (name "ghc-digest")
-    (version "0.0.2.1")
+    (version "0.0.1.7")
     (source
      (origin
        (method url-fetch)
        (uri (hackage-uri "digest" version))
        (sha256
-        (base32 "163418p50bqdxn8ajzj6x3455xbch9jq1w6psbkdz5qzw017py6b"))))
+        (base32 "02jzw0bsng87y1n2kgpy7vb30lvqsnpbfd8dpg4hmvbg9s06qgdj"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "digest")))
     (arguments
-     `(#:extra-directories ("zlib")))
+     `(#:extra-directories ("zlib")
+       #:cabal-revision ("1"
+                         "0wh34kyag2vhwvsdwv8qmvm13gy32nc94yfyqfdnl67nyc2sx8wl")))
     (inputs (list zlib))
     (native-inputs (list pkg-config))
     (home-page "http://hackage.haskell.org/package/digest")
@@ -354,13 +352,13 @@ are implemented as FFI bindings to efficient code from zlib.")
 (define-public ghc-entropy
   (package
     (name "ghc-entropy")
-    (version "0.4.1.11")
+    (version "0.4.1.10")
-    (source
+    (source (origin
-     (origin
+              (method url-fetch)
-       (method url-fetch)
+              (uri (hackage-uri "entropy" version))
-       (uri (hackage-uri "entropy" version))
+              (sha256
-       (sha256
+               (base32
-        (base32 "1slj5n783k2amsx2hqs5qwvcw4rgfhdhgmiyg7cii0wg4w0mmpgm"))))
+                "1rbx4ydabrjs8kkdg9laznkh9nisiq6b5z93vnp9bh6iy59ivb45"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "entropy")))
     (home-page "https://github.com/TomMD/entropy")
@@ -417,35 +415,6 @@ the MD5 digest (hash) algorithm.  This now supports the @code{crypto-api} class
 interface.")
     (license license:bsd-3)))
 
-(define-public ghc-rsa
-  (package
-    (name "ghc-rsa")
-    (version "2.4.1")
-    (source
-     (origin
-       (method url-fetch)
-       (uri (hackage-uri "RSA" version))
-       (sha256
-        (base32 "0hchsqrxpfw7mqrqwscfy8ig1w2di6w3nxpzi873w0gibv2diibj"))))
-    (build-system haskell-build-system)
-    (properties '((upstream-name . "RSA")))
-    (inputs (list ghc-crypto-api ghc-crypto-pubkey-types ghc-sha))
-    (native-inputs (list ghc-quickcheck ghc-tagged ghc-test-framework
-                         ghc-test-framework-quickcheck2))
-    (arguments
-     `(#:cabal-revision ("2"
-                         "090yzm99fmh7c6z4m9hbkasqhc3xlw104g2b6wnk77n1abd13ryj")))
-    (home-page "http://hackage.haskell.org/package/RSA")
-    (synopsis
-     "Implementation of RSA, using the padding schemes of PKCS#1 v2.1.")
-    (description
-     "This library implements the RSA encryption and signature algorithms for
-arbitrarily-sized @code{ByteStrings}.  While the implementations work, they are
-not necessarily the fastest ones on the planet.  Particularly key generation.
-The algorithms included are based of RFC 3447, or the Public-Key Cryptography
-Standard for RSA, version 2.1 (a.k.a, PKCS#1 v2.1).")
-    (license license:bsd-3)))
-
 (define-public ghc-sha
   (package
     (name "ghc-sha")
@@ -625,24 +594,6 @@ implementation.  If it matters for your case, you should make sure you have
 AES-NI available, or you'll need to use a different implementation.")
     (license license:bsd-3)))
 
-(define-public ghc-crypto-pubkey-types
-  (package
-    (name "ghc-crypto-pubkey-types")
-    (version "0.4.3")
-    (source
-     (origin
-       (method url-fetch)
-       (uri (hackage-uri "crypto-pubkey-types" version))
-       (sha256
-        (base32 "0q0wlzjmpx536h1zcdzrpxjkvqw8abj8z0ci38138kpch4igbnby"))))
-    (build-system haskell-build-system)
-    (properties '((upstream-name . "crypto-pubkey-types")))
-    (inputs (list ghc-asn1-types ghc-asn1-encoding))
-    (home-page "http://github.com/vincenthz/hs-crypto-pubkey-types")
-    (synopsis "Generic cryptography Public keys algorithm types")
-    (description "Generic cryptography public keys algorithm types.")
-    (license license:bsd-3)))
-
 (define-public ghc-crypto-random
   (package
     (name "ghc-crypto-random")
@@ -666,13 +617,13 @@ abstraction for CPRNGs.")
 (define-public ghc-crypton
   (package
     (name "ghc-crypton")
-    (version "1.0.4")
+    (version "0.34")
     (source
      (origin
        (method url-fetch)
        (uri (hackage-uri "crypton" version))
        (sha256
-        (base32 "06h1qjvqd8gmiyzvh31sc061vcgns101l0774c44a8k44015925l"))))
+        (base32 "1mhypjhzn95in853bp7ary0a2xc6lsji6j8hrrgn2mfa4ilq8i24"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "crypton")))
     (inputs (list ghc-memory ghc-basement))
@@ -702,13 +653,13 @@ abstraction for CPRNGs.")
 (define-public ghc-crypton-x509
   (package
     (name "ghc-crypton-x509")
-    (version "1.7.7")
+    (version "1.7.6")
     (source
      (origin
        (method url-fetch)
        (uri (hackage-uri "crypton-x509" version))
        (sha256
-        (base32 "10pkva9wvm6ih48bprxlnyhnn3nr6xq9dhkrk4hfxpsaij6f9v7g"))))
+        (base32 "1zyaz0krf08g36g30zr5wn8f2x51l4dj2zcjnhpiw9h05p54mdzb"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "crypton-x509")))
     (inputs (list ghc-memory
@@ -718,7 +669,13 @@ abstraction for CPRNGs.")
                   ghc-asn1-encoding
                   ghc-asn1-parse
                   ghc-crypton))
-    (native-inputs (list ghc-tasty ghc-tasty-quickcheck))
+    (native-inputs (list ghc-tasty ghc-tasty-quickcheck ghc-x509))
+    (arguments
+     `(#:cabal-revision ("1"
+                         "10a2x47znhbayyfr6fqgq27623akpycyjbfxz4hnavavf1x6ary5")
+       ;; build phase fails when tests are activated.
+       ;; See https://github.com/kazu-yamamoto/crypton-certificate/pull/7
+       #:tests? #f))
     (home-page "https://github.com/kazu-yamamoto/crypton-certificate")
     (synopsis "X509 reader and writer")
     (description "This package provides generic X509 support for Haskell.")
@@ -727,13 +684,13 @@ abstraction for CPRNGs.")
 (define-public ghc-crypton-x509-store
   (package
     (name "ghc-crypton-x509-store")
-    (version "1.6.11")
+    (version "1.6.9")
     (source
      (origin
        (method url-fetch)
        (uri (hackage-uri "crypton-x509-store" version))
        (sha256
-        (base32 "07vq7f883cm5krqz2kc0qkh9ks54jknrwdqvfqsk91s12b693a83"))))
+        (base32 "0vr5b9cyf9x016wn1g0bryslf5nz8jq2sy8r3llwqfg02apihqiy"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "crypton-x509-store")))
     (inputs (list ghc-pem ghc-asn1-types ghc-asn1-encoding ghc-crypton
@@ -770,25 +727,24 @@ storage methods, and accessors.")
 (define-public ghc-crypton-x509-validation
   (package
     (name "ghc-crypton-x509-validation")
-    (version "1.6.14")
+    (version "1.6.12")
     (source
      (origin
        (method url-fetch)
        (uri (hackage-uri "crypton-x509-validation" version))
        (sha256
-        (base32 "07b09kgrd3m5ahxpj458r5ycd30bz8ldwjwf19mdcnfv4x0kj3pd"))))
+        (base32 "1xjhwvmkcy47a6xiqxb3xy944ca7g660203jdrz5xzd46zibfq0f"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "crypton-x509-validation")))
     (inputs (list ghc-memory
                   ghc-hourglass
-                  ghc-data-default
+                  ghc-data-default-class
                   ghc-pem
                   ghc-asn1-types
                   ghc-asn1-encoding
                   ghc-crypton-x509
                   ghc-crypton-x509-store
-                  ghc-crypton
+                  ghc-crypton))
-                  ghc-iproute))
     (native-inputs (list ghc-tasty ghc-tasty-hunit))
     (home-page "https://github.com/kazu-yamamoto/crypton-certificate")
     (synopsis "X.509 Certificate and CRL validation")
@@ -796,44 +752,6 @@ storage methods, and accessors.")
 and @dfn{Certificates revocation list} (CRL) validation.")
     (license license:bsd-3)))
 
-(define-public ghc-crypton-socks
-  (package
-    (name "ghc-crypton-socks")
-    (version "0.6.2")
-    (source
-     (origin
-       (method url-fetch)
-       (uri (hackage-uri "crypton-socks" version))
-       (sha256
-        (base32 "0fwzlvndyxjwhxambxdjzzm63yvb6jzsg53dkv3i6x17biz0hdm8"))))
-    (build-system haskell-build-system)
-    (properties '((upstream-name . "crypton-socks")))
-    (inputs (list ghc-cereal ghc-network ghc-network-bsd))
-    (home-page "http://github.com/mpilgrem/crypton-socks")
-    (synopsis "SOCKS Protocol Version 5")
-    (description
-     "This package provides a library implementing SOCKS Protocol Version 5.")
-    (license license:bsd-3)))
-
-(define-public ghc-crypto-token
-  (package
-    (name "ghc-crypto-token")
-    (version "0.1.2")
-    (source
-     (origin
-       (method url-fetch)
-       (uri (hackage-uri "crypto-token" version))
-       (sha256
-        (base32 "18xphlvn6wzyi6lqrvm5vic97pkcbiph1938p5l1mb22rj5215zm"))))
-    (build-system haskell-build-system)
-    (properties '((upstream-name . "crypto-token")))
-    (inputs (list ghc-crypton ghc-memory ghc-network-byte-order))
-    (native-inputs (list ghc-hspec hspec-discover))
-    (home-page "http://hackage.haskell.org/package/crypto-token")
-    (synopsis "crypto tokens")
-    (description "Encrypted tokens/tickets to keep state in the client side.")
-    (license license:bsd-3)))
-
 (define-public ghc-cprng-aes
   (package
     (name "ghc-cprng-aes")
@@ -886,17 +804,20 @@ percent.
        (method url-fetch)
        (uri (hackage-uri "ed25519" version))
        (sha256
-        (base32 "0v8msqvgzimhs7p5ri25hrb1ni2wvisl5rmdxy89fc59py79b9fq"))))
+        (base32
+         "0v8msqvgzimhs7p5ri25hrb1ni2wvisl5rmdxy89fc59py79b9fq"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "ed25519")))
-    (native-inputs (list ghc-quickcheck ghc-doctest))
     (arguments
-     `(#:cabal-revision ("9"
+     `(#:cabal-revision
-                         "0y5vfdcys18waa5k5zxiq9n8jq0l05j76riml23i0gxmwgdhsmgi")))
+       ("6" "0qyx6cl52fnll8lp6v9133wfvv3zhvq7v2crn441mng520j9wp48")
-    (home-page "https://github.com/thoughtpolice/hs-ed25519/")
+       ;; We omit these test suites because they require old versions of
+       ;; packages and packages we do not have.
+       #:configure-flags
+       '("--flags=-test-hlint -test-doctests -test-properties")))
+    (home-page "http://thoughtpolice.github.com/hs-ed25519")
     (synopsis "Ed25519 cryptographic signatures")
-    (description
+    (description "This package provides a simple, fast, self-contained
-     "This package provides a simple, fast, self-contained
 copy of the Ed25519 public-key signature system with a clean interface.
 It also includes support for detached signatures, and thorough
 documentation on the design and implementation, including usage
@@ -906,41 +827,29 @@ guidelines.")
 (define-public ghc-tls
   (package
     (name "ghc-tls")
-    (version "2.1.8")
+    (version "1.5.8")
     (source (origin
               (method url-fetch)
               (uri (hackage-uri "tls" version))
               (sha256
                (base32
-                "1csdy3426lva1a5f7gh9qm96vzfraqj91jbxlm79wbf1jsdzfhsq"))))
+                "0rxdv8ab98kd4nqql7djmmi51k4vayq21s38s43sx3rzn0iyla3b"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "tls")))
-    (inputs (list ghc-asn1-types
+    (inputs (list ghc-cereal
-                  ghc-asn1-encoding
+                  ghc-data-default-class
-                  ghc-base16-bytestring
-                  ghc-cereal
-                  ghc-crypton
-                  ghc-crypton-x509
-                  ghc-crypton-x509-store
-                  ghc-crypton-x509-validation
-                  ghc-data-default
                   ghc-memory
-                  ghc-network
+                  ghc-cryptonite
-                  ghc-serialise
+                  ghc-asn1-types
-                  ghc-transformers
+                  ghc-asn1-encoding
-                  ghc-unix-time
+                  ghc-x509
-                  ghc-zlib))
+                  ghc-x509-store
-    (native-inputs (list ghc-quickcheck
+                  ghc-x509-validation
-                         ghc-asn1-types
+                  ghc-async
-                         ghc-async
+                  ghc-hourglass
-                         ghc-crypton
+                  ghc-network))
-                         ghc-crypton-x509
+    (native-inputs (list ghc-tasty ghc-tasty-quickcheck ghc-quickcheck))
-                         ghc-crypton-x509-validation
+    (home-page "http://github.com/vincenthz/hs-tls")
-                         ghc-hourglass
-                         ghc-hspec
-                         ghc-serialise
-                         hspec-discover))
-    (home-page "http://github.com/haskell-tls/hs-tls")
     (synopsis "TLS/SSL protocol native implementation (Server and Client)")
     (description
      "Native Haskell TLS and SSL protocol implementation for server and client.
@@ -952,6 +861,43 @@ Ephemeral (Elliptic curve and regular) Diffie Hellman key exchanges, and many
 extensions.")
     (license license:bsd-3)))
 
+(define-public ghc-tls-1.9
+  (package
+    (name "ghc-tls")
+    (version "1.9.0")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (hackage-uri "tls" version))
+       (sha256
+        (base32 "0gj3af9sqd0bw7dpcqfyvbslpxsk2ij00a77kl710fwhw35vj1an"))))
+    (build-system haskell-build-system)
+    (properties '((upstream-name . "tls")))
+    (inputs (list ghc-cereal
+                  ghc-data-default-class
+                  ghc-memory
+                  ghc-crypton
+                  ghc-asn1-types
+                  ghc-asn1-encoding
+                  ghc-crypton-x509
+                  ghc-crypton-x509-store
+                  ghc-crypton-x509-validation
+                  ghc-async
+                  ghc-unix-time
+                  ghc-network))
+    (native-inputs (list ghc-tasty ghc-tasty-quickcheck ghc-quickcheck))
+    (home-page "https://github.com/haskell-tls/hs-tls")
+    (synopsis "TLS/SSL protocol native implementation (server and client)")
+    (description
+     "This package provides a native Haskell TLS and SSL protocol
+implementation for server and client.  It provides a high-level implementation
+of a sensitive security protocol, eliminating a common set of security issues
+through the use of the advanced type system, high level constructions and
+common Haskell features.  It currently implements the SSL3.0, TLS1.0, TLS1.1
+and TLS1.2 protocol, and supports RSA and Ephemeral (Elliptic curve and
+regular) Diffie Hellman key exchanges, and many extensions.")
+    (license license:bsd-3)))
+
 (define-public ghc-hsopenssl
   (package
     (name "ghc-hsopenssl")
@@ -1014,14 +960,17 @@ the tls package, and borrows some ideas from x509-system.")
        (method url-fetch)
        (uri (hackage-uri "openssl-streams" version))
        (sha256
-        (base32 "10pnnpzgb5xr811kc9qdk7h2cgn6hk2yiyhnzz8f8p0fjzc0pwjm"))))
+        (base32
+         "10pnnpzgb5xr811kc9qdk7h2cgn6hk2yiyhnzz8f8p0fjzc0pwjm"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "openssl-streams")))
-    (inputs (list ghc-hsopenssl ghc-io-streams ghc-network))
+    (inputs
-    (native-inputs (list ghc-hunit ghc-test-framework ghc-test-framework-hunit))
+     (list ghc-hsopenssl ghc-io-streams ghc-network))
+    (native-inputs
+     (list ghc-hunit ghc-test-framework ghc-test-framework-hunit))
     (arguments
-     `(#:cabal-revision ("3"
+     `(#:cabal-revision ("1"
-                         "1vizl9yajkbd59rrnfb38xwq7hfj36avbv6vwqnkhbvz3qaj3dwg")))
+                         "0vfawnfcjrw29qg1n7k6z6bk4bmnk869gjlr9mxw4mzxgl80b2vp")))
     (home-page "https://hackage.haskell.org/package/openssl-streams")
     (synopsis "OpenSSL network support for io-streams")
     (description "This library contains io-streams routines for secure

gnu/packages/haskell.scm

@@ -1626,6 +1626,12 @@ SRC_HC_OPTS += -optc-mno-outline-atomics
               (file-pattern ".*\\.conf\\.d$")
               (file-type 'directory)))))))
 
+;; Versions newer than ghc defined below (i.e. the compiler
+;; haskell-build-system uses) should use ghc-next as their name to
+;; ensure ghc (without version specification) and ghc-* packages are
+;; always compatible. See https://issues.guix.gnu.org/issue/47335.
+(define-public ghc ghc-9.2)
+
 ;; 9.4 is the last version to support the make-based build system,
 ;; but it boot with 9.2, only 9.0 is supported.
 (define ghc-bootstrap-for-9.4 ghc-9.0)
@@ -1689,24 +1695,22 @@ SRC_HC_OPTS += -optc-mno-outline-atomics
   (let ((base ghc-9.2))
     (package
       (inherit base)
-      (name "ghc")
+      (name "ghc-next")
-      (version "9.4.3")
+      (version "9.4.4")
       (source (origin
                 (method url-fetch)
                 (uri (string-append "https://www.haskell.org/ghc/dist/" version
                                     "/ghc-" version "-src.tar.xz"))
                 (sha256
                  (base32
-                  "0nlhx2cbq1jh2yr6zk475lavjkh9sncj57qp77p51pkfad4kkxpa"))
+                  "1qk7rlqf02s3b6m6sqqngmjq1mxnrz88h159lz6k25gddmdg5kp8"))
                 (patches (search-patches "ghc-9-StgCRunAsm-only-when-needed.patch"))))
       (arguments
        (substitute-keyword-arguments arguments
          ((#:phases phases '%standard-phases)
           #~(modify-phases #$phases
              ;; Files don’t exist any more.
-             (delete 'skip-tests)))
+             (delete 'skip-tests)))))
-         ((#:tests? _ #f)
-          #f)))
       (native-inputs
        `(;; GHC 9.4 must be built with GHC >= 9.0.
          ("ghc-bootstrap" ,ghc-bootstrap-for-9.4)
@@ -1718,7 +1722,8 @@ SRC_HC_OPTS += -optc-mno-outline-atomics
                     version "/ghc-" version "-testsuite.tar.xz"))
              (sha256
               (base32
-               "1xbps33pq6mg2bwp5gvmc4qhgdq52yng5993if99b9s3fylqk86l"))))
+               "04p2lawxxg3nyv6frzhyjyh3arhqqyh5ka3alxa2pxhcd2hdcja3"))
+             (patches (search-patches "ghc-testsuite-recomp015-execstack.patch"))))
          ("ghc-alex" ,ghc-alex-bootstrap-for-9.4)
          ("ghc-happy" ,ghc-happy-bootstrap-for-9.4)
          ,@(filter (match-lambda
@@ -1733,326 +1738,4 @@ SRC_HC_OPTS += -optc-mno-outline-atomics
               (file-pattern ".*\\.conf\\.d$")
               (file-type 'directory)))))))
 
-;;; GHC >= 9.6 must be built using it's new haskell-written Hadrian build
-;;; system. Use this opportunity to cut the inheritance chain to simplify
-;;; understanding what building ghc requires with the new build system.
-
-(define-public ghc-9.8
-  (let ((ghc-bootstrap ghc-9.4))
-    (package
-      (name "ghc")
-      (version "9.8.1")
-      (source (origin
-                (method url-fetch)
-                (uri (string-append "https://downloads.haskell.org/~ghc/" version
-                                    "/ghc-" version "-src.tar.xz"))
-                (sha256
-                 (base32
-                  "0l87yb8hmd350klrp6lw2h9hjlla11pgzx1n4jlrfdvkgxmyvy5j"))))
-      (outputs (list "out" "doc"))
-      (arguments
-       (list
-        #:make-flags #~(list "-V" "--docs=no-sphinx")
-       #:configure-flags
-       #~(list
-           (string-append "--with-gmp-libraries="
-                          (assoc-ref %build-inputs "gmp") "/lib")
-           (string-append "--with-gmp-includes="
-                          (assoc-ref %build-inputs "gmp") "/include")
-           "--with-system-libffi"
-           (string-append "--with-ffi-libraries="
-                          (assoc-ref %build-inputs "libffi") "/lib")
-           (string-append "--with-ffi-includes="
-                          (assoc-ref %build-inputs "libffi") "/include")
-           (string-append "--with-curses-libraries="
-                          (assoc-ref %build-inputs "ncurses") "/lib")
-           (string-append "--with-curses-includes="
-                          (assoc-ref %build-inputs "ncurses") "/include"))
-        #:phases
-        #~(modify-phases %standard-phases
-            (add-before 'build 'fix-iserv-rpath
-              (lambda _
-                (mkdir-p "_build")
-                (call-with-output-file
-                 "_build/hadrian.settings"
-                 (lambda (port)
-                   (display
-                    (string-append
-                     "*.iserv.ghc.link.opts += -optl-Wl,-rpath,"
-                     #$output "/lib/ghc-" #$(package-version this-package)
-                     "/lib/" #$(or (%current-target-system)
-                                   (%current-system))
-                     "-ghc-" #$(package-version this-package) "/")
-                    port)))))
-            ;; This phase patches the 'ghc-pkg' command so that it sorts the list
-            ;; of packages in the binary cache it generates.
-            (add-before 'build 'fix-ghc-pkg-nondeterminism
-              (lambda _
-                (substitute* "utils/ghc-pkg/Main.hs"
-                  (("confs = map \\(path </>\\) \\$ filter \\(\".conf\" `isSuffixOf`\\) fs")
-                   "confs = map (path </>) $ filter (\".conf\" `isSuffixOf`) (sort fs)"))))
-            (add-after 'unpack 'unpack-testsuite
-              (lambda* (#:key inputs #:allow-other-keys)
-                (with-directory-excursion ".."
-                  (invoke "tar" "xvf" (assoc-ref inputs "ghc-testsuite")))))
-            (add-after 'unpack-testsuite 'fix-/bin/sh-references
-              (lambda* (#:key inputs #:allow-other-keys)
-                (substitute*
-                 (list "hadrian/src/Rules/BinaryDist.hs"
-                       "hadrian/src/Rules/Test.hs"
-                       "libraries/process/System/Process/Posix.hs"
-                       "libraries/process/jsbits/process.js"
-                       "libraries/unix/cbits/execvpe.c"
-                       "testsuite/tests/driver/T8602/T8602.script"
-                       "testsuite/timeout/timeout.py")
-                 (("/bin/sh") (search-input-file inputs "/bin/sh")))))
-            (add-after 'unpack-testsuite 'fix-cc-reference
-              (lambda* (#:key inputs #:allow-other-keys)
-                (substitute*
-                 (list "utils/hsc2hs/src/Common.hs")
-                 (("\"cc\"") "\"gcc\""))))
-            ;; XXX: something causes ld-wrapper to see test\ \ \ spaces/... and
-            ;; look for the files "test\", "\", "\" and "spaces/...", which obviously
-            ;; don't exist
-            (add-after 'unpack-testsuite 'fix-testsuite
-              (lambda _
-                (substitute*
-                  (list "testsuite/driver/runtests.py")
-                  (("'test   spaces'") "'dont-test-spaces'"))))
-            (add-before 'configure 'set-target-programs
-              (lambda* (#:key inputs #:allow-other-keys)
-                (let ((binutils (assoc-ref inputs "binutils"))
-                      (gcc (assoc-ref inputs "gcc"))
-                      (ld-wrapper (assoc-ref inputs "ld-wrapper")))
-                  (setenv "CC" (string-append gcc "/bin/gcc"))
-                  (setenv "CXX" (string-append gcc "/bin/g++"))
-                  (setenv "LD" (string-append ld-wrapper "/bin/ld"))
-                  (setenv "NM" (string-append binutils "/bin/nm"))
-                  (setenv "RANLIB" (string-append binutils "/bin/ranlib"))
-                  (setenv "STRIP" (string-append binutils "/bin/strip"))
-                  ;; The 'ar' command does not follow the same pattern.
-                  (setenv "fp_prog_ar" (string-append binutils "/bin/ar")))))
-            (add-before 'build 'build-hadrian
-              (lambda* (#:key (inputs '()) #:allow-other-keys)
-                (invoke "./hadrian/bootstrap/bootstrap.py"
-                        "-s" (assoc-ref inputs "hadrian-bootstrap")
-                        "-w" (which "ghc"))))
-            (add-before 'build-hadrian 'fix-environment
-              (lambda _
-                (unsetenv "GHC_PACKAGE_PATH")
-                (setenv "CONFIG_SHELL" (which "bash"))))
-            (replace 'build
-              (lambda* (#:key (parallel-build? #f) (make-flags '())
-                       #:allow-other-keys)
-                (apply invoke "_build/bin/hadrian"
-                       `("binary-dist-dir"
-                         ,@(if parallel-build?
-                             (list (string-append
-                                    "-j" (number->string
-                                          (parallel-job-count)))))
-                         ,@make-flags))))
-            (replace 'check
-              (lambda* (#:key (tests? #t) (parallel-tests? #f) (make-flags '())
-                        #:allow-other-keys)
-                (if tests?
-                  (apply invoke "_build/bin/hadrian"
-                         `(,@(if parallel-tests?
-                               (list (string-append
-                                      "-j"
-                                      (number->string (parallel-job-count))))
-                               '())
-                           ,@make-flags
-                           "test"
-                           ,(string-append
-                             "--broken-test="
-                             (string-join
-                              (list  "T15904" ; ld-wrapper, apparently
-                                     "T16521" ; no idea
-                                     ;; These fail due to gcc
-                                     ;; -Wincompatible-pointer-types, which
-                                     ;; apparently is not used in GHC's CI
-                                     ;; https://gitlab.haskell.org/ghc/ghc/-/issues/22263
-                                     "hs_try_putmvar001"
-                                     "list_threads_and_misc_roots"
-                                     "testwsdeque")))
-                           "--skip-perf"))
-                  (format #t "test suite not run~%"))))
-            (replace 'install
-              (lambda* (#:key (make-flags '()) #:allow-other-keys)
-                (apply invoke "_build/bin/hadrian"
-                       `("install"
-                         ,@make-flags
-                         ,(string-append "--prefix=" #$output)))))
-           (add-after 'install 'remove-unnecessary-references
-             (lambda* (#:key outputs #:allow-other-keys)
-               (substitute* (find-files (string-append (assoc-ref outputs "out") "/lib/")
-                                        "settings")
-                 (("/gnu/store/.*/bin/(.*)" m program) program))
-
-               ;; Remove references to "doc" output from "out" by rewriting
-               ;; the "haddock-interfaces" fields and removing the optional
-               ;; "haddock-html" field in the generated .conf files.
-               (let ((doc (assoc-ref outputs "doc"))
-                     (out (assoc-ref outputs "out")))
-                 (with-fluids ((%default-port-encoding #f))
-                   (for-each (lambda (config-file)
-                               (substitute* config-file
-                                 (("^haddock-html: .*") "\n")
-                                 (((format #f "^haddock-interfaces: ~a" doc))
-                                  (string-append "haddock-interfaces: " out))))
-                             (find-files (string-append out "/lib") ".conf")))
-                 ;; Move the referenced files to the "out" output.
-                 (for-each (lambda (haddock-file)
-                             (let* ((subdir (string-drop haddock-file (string-length doc)))
-                                    (new    (string-append out subdir)))
-                               (mkdir-p (dirname new))
-                               (rename-file haddock-file new)))
-                           (find-files doc "\\.haddock$")))))
-            (add-after 'install 'replace-$pkgroot
-              (lambda* (#:key outputs #:allow-other-keys)
-                ((@ (srfi srfi-11) let*-values)
-                  (((out) (assoc-ref outputs "out"))
-                   ((_ version) (package-name->name+version
-                                    (strip-store-file-name out))))
-                 ;; We split out the version because we want this to also work
-                 ;; with packages named "ghc-next" instead of "ghc"
-                 (substitute*
-                   (find-files
-                    (string-append (assoc-ref outputs "out") "/lib/ghc-"
-                                   version "/lib/package.conf.d/")
-                    "^.*\\.conf$")
-                   (("\\$\\{pkgroot\\}/")
-                    (string-append (assoc-ref outputs "out") "/lib/ghc-"
-                                   version "/lib/")))))))))
-      (build-system gnu-build-system)
-      (inputs (list bash-minimal gmp ncurses libffi))
-      (native-inputs
-       `(("perl" ,perl)
-         ("python" ,python)
-         ("git" ,git-minimal/pinned)
-         ("which" ,which)
-         ("ghostscript" ,ghostscript)
-         ("autoconf" ,autoconf)
-         ("automake" ,automake)
-
-         ("ghc-bootstrap" ,ghc-bootstrap)
-         ("ghc-alex" ,ghc-alex-bootstrap-for-9.4)
-         ("ghc-happy" ,ghc-happy-bootstrap-for-9.4)
-         ("ghc-testsuite"
-          ,(origin
-             (method url-fetch)
-             (uri (string-append
-                   "https://www.haskell.org/ghc/dist/"
-                   version "/ghc-" version "-testsuite.tar.xz"))
-             (sha256
-              (base32
-               "1hxylm3nhxzl7yidarlavvcg1240w4bk0hy5jnvwna24jyxz69i6"))
-             (patches (search-patches "ghc-testsuite-recomp015-execstack.patch"))))
-         ("hadrian-bootstrap"
-          ,(origin
-             (method url-fetch)
-             (uri (string-append "https://downloads.haskell.org/~ghc/"
-                                 version "/hadrian-bootstrap-sources/"
-                                 "hadrian-bootstrap-sources-"
-                                 (package-version ghc-bootstrap) ".tar.gz"))
-             (sha256
-               (base32
-                 "14dkxif9x4hy85phcj3j0glf95k04g4ab6hfchpw9vxgvk97syi1"))))))
-      (native-search-paths
-       (list (search-path-specification
-              (variable "GHC_PACKAGE_PATH")
-              (files (list (string-append "lib/ghc-" version)))
-              (file-pattern ".*\\.conf\\.d$")
-              (file-type 'directory))))
-      (home-page "https://www.haskell.org/ghc")
-      (synopsis "The Glasgow Haskell Compiler")
-      (description
-        "The Glasgow Haskell Compiler (GHC) is a state-of-the-art compiler and
-interactive environment for the functional language Haskell.")
-      (license license:bsd-3))))
-
-(define-public ghc-9.10
-  (let ((base ghc-9.8))
-    (package
-      (inherit base)
-      (name "ghc")
-      (version "9.10.2")
-      (source
-        (origin
-          (method url-fetch)
-          (uri (string-append "https://downloads.haskell.org/~ghc/" version
-                              "/ghc-" version "-src.tar.xz"))
-          (sha256
-            (base32
-             "1pm84cgr3yg99r3srdjllgz6zig8h7dbwa597srwcnjp0nh41zam"))))
-      (arguments
-        (substitute-keyword-arguments (package-arguments base)
-          ((#:phases phases #~%standard-phases)
-           #~(modify-phases #$phases
-               (replace 'check
-                 (lambda* (#:key (tests? #t) (parallel-tests? #f) (make-flags '())
-                           #:allow-other-keys)
-                   (if tests?
-                     (apply invoke "_build/bin/hadrian"
-                            `(,@(if parallel-tests?
-                                  (list (string-append
-                                         "-j"
-                                         (number->string (parallel-job-count))))
-                                  '())
-                              ,@make-flags
-                              "test"
-                              ,(string-append
-                                "--broken-test="
-                                (string-join
-                                 (list  "T15904" ; ld-wrapper, apparently
-                                        "T16521" ; no idea
-                                        ;; These fail due to gcc
-                                        ;; -Wincompatible-pointer-types, which
-                                        ;; apparently is not used in GHC's CI
-                                        ;; https://gitlab.haskell.org/ghc/ghc/-/issues/22263
-                                        "list_threads_and_misc_roots"
-                                        "stack_misc_closures")))
-                              "--skip-perf"))
-                     (format #t "test suite not run~%"))))))))
-      (native-inputs
-       `(("ghc-bootstrap" ,base)
-         ("ghc-testsuite"
-          ,(origin
-             (method url-fetch)
-             (uri (string-append
-                    "https://downloads.haskell.org/~ghc/"
-                    version "/ghc-" version "-testsuite.tar.xz"))
-             (sha256
-              (base32
-               "143ifc4g3jc6s9hcry5qha913rzwg4hpsvk6pqvxk5r0qigfxjwx"))
-             (patches (search-patches "ghc-testsuite-recomp015-execstack.patch"))))
-         ("hadrian-bootstrap"
-          ,(origin
-             (method url-fetch)
-             (uri (string-append "https://downloads.haskell.org/~ghc/" version
-                                 "/hadrian-bootstrap-sources/"
-                                 "hadrian-bootstrap-sources-"
-                                 (package-version base) ".tar.gz"))
-             (sha256
-               (base32
-                 "162lbafvdamfhx1jldax3shgk8jbbqn4an97ny363lxbdjgdn708"))))
-         ,@(filter (match-lambda
-                     (("ghc-bootstrap" . _) #f)
-                     (("ghc-testsuite" . _) #f)
-                     (("hadrian-bootstrap" . _) #f)
-                     (_ #t))
-                   (package-native-inputs base))))
-      (native-search-paths
-       (list (search-path-specification
-              (variable "GHC_PACKAGE_PATH")
-              (files (list (string-append "lib/ghc-" version)))
-              (file-pattern ".*\\.conf\\.d$")
-              (file-type 'directory)))))))
-
-;; Versions newer than ghc defined below (i.e. the compiler
-;; haskell-build-system uses) should use ghc-next as their name to
-;; ensure ghc (without version specification) and ghc-* packages are
-;; always compatible. See https://issues.guix.gnu.org/issue/47335.
-(define-public ghc ghc-9.10)
-
 ;;; haskell.scm ends here

gnu/packages/ibus.scm

@@ -43,7 +43,6 @@
   #:use-module (guix build-system glib-or-gtk)
   #:use-module (guix build-system meson)
   #:use-module (guix build-system pyproject)
-  #:use-module (guix build-system python)
   #:use-module (guix utils)
   #:use-module (gnu packages)
   #:use-module (gnu packages anthy)

gnu/packages/image-processing.scm

@@ -58,7 +58,6 @@
   #:use-module (guix build-system cmake)
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system meson)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system pyproject)
   #:use-module (gnu packages)
   #:use-module (gnu packages algebra)

gnu/packages/image-viewers.scm

@@ -66,7 +66,6 @@
   #:use-module (guix build-system copy)
   #:use-module (guix build-system go)
   #:use-module (guix build-system meson)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system pyproject)
   #:use-module (guix build-system qt)
   #:use-module (gnu packages autotools)

gnu/packages/image.scm

@@ -29,7 +29,7 @@
 ;;; Copyright © 2020, 2025 Janneke Nieuwenhuizen <janneke@gnu.org>
 ;;; Copyright © 2020 Zhu Zihao <all_but_last@163.com>
 ;;; Copyright © 2020, 2021, 2022, 2023, 2024 Vinicius Monego <monego@posteo.net>
-;;; Copyright © 2021 Sharlatan Hellseher <sharlatanus@gmail.com>
+;;; Copyright © 2021, 2026 Sharlatan Hellseher <sharlatanus@gmail.com>
 ;;; Copyright © 2021 Nicolò Balzarotti <nicolo@nixo.xyz>
 ;;; Copyright © 2021 Alexandr Vityazev <avityazev@posteo.org>
 ;;; Copyright © 2022 Jai Vetrivelan <jaivetrivelan@gmail.com>
@@ -42,8 +42,9 @@
 ;;; Copyright © 2025 Josep Bigorra <jjbigorra@gmail.com>
 ;;; Copyright © 2025 Jake Forster <jakecameron.forster@gmail.com>
 ;;; Copyright © 2025 Ghislain Vaillant <ghislain.vaillant@inria.fr>
-;;; Copyright © 2026 Carlos Durán Domínguez <wurt@wurt.eu>
 ;;; Copyright © 2025 Junker <dk@junkeria.club>
+;;; Copyright © 2025 Hugo Buddelmeijer <hugo@buddelmeijer.nl>
+;;; Copyright © 2026 Carlos Durán Domínguez <wurt@wurt.eu>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -128,7 +129,6 @@
   #:use-module (guix build-system guile)
   #:use-module (guix build-system meson)
   #:use-module (guix build-system pyproject)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system qt)
   #:use-module (guix build-system scons)
   #:use-module (guix deprecation)
@@ -2967,77 +2967,89 @@ GIF, TIFF, WEBP, BMP, PNG, XPM formats.")
 (define-public mypaint
   (package
     (name "mypaint")
-    (version "2.0.1")
+    ;; The latest changes contains support for Python 3.12+.
-    (source (origin
+    (properties '((commit . "35aa9d33cd3deba6cafea6d8fc901b5a1d161ceb")
-              (method url-fetch)
+                  (revision . "0")))
-              (uri (string-append "https://github.com/mypaint/mypaint/"
+    (version (git-version "2.0.1"
-                                  "releases/download/v" version "/mypaint-"
+                          (assoc-ref properties 'revision)
-                                  version ".tar.xz"))
+                          (assoc-ref properties 'commit)))
-              (sha256
+    (source
-               (base32
+     (origin
-                "05mvay73vb9d2sh1ckv4vny45n059dmsps1jcppjizfmrpbkgr7k"))))
+       (method git-fetch)
-    (build-system python-build-system)
+       (uri (git-reference
+              (url "https://github.com/mypaint/mypaint")
+              (commit (assoc-ref properties 'commit))))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "1p1i799dzpx0zr7chkz0pjdq9l32ahckgyagbiw82c27mwxqabfh"))))
+    (build-system pyproject-build-system)
     (arguments
-     `(#:imported-modules ((guix build glib-or-gtk-build-system)
+     (list
-                           ,@%python-build-system-modules)
+      #:imported-modules `(,@%pyproject-build-system-modules
-       #:modules ((guix build python-build-system)
+                           (guix build glib-or-gtk-build-system))
+      #:modules '((guix build pyproject-build-system)
                   ((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
                   (guix build utils))
-       ;; XXX: Tests are not discovered.
+      #:phases
-       #:tests? #false
+      #~(modify-phases %standard-phases
-       #:phases
+          (add-after 'install 'move-assets-to-data
-       (modify-phases %standard-phases
+            ;; XXX: Check why.
-         (add-after 'unpack 'python3.11-compatibility
+            ;;
-           (lambda _
+            ;; ERROR: gui.application: Missing icon 'org.mypaint.MyPaint':
-             (substitute* "setup.py"
+            ;; check that mypaint icons have been installed into
-               (("\"rU\"") "\"r\"")
+            ;; /gnu/store/<...>/data/icons
-               (("test_suite='tests'.*") ""))
+            ;;
-             (substitute* "setup.cfg"
+            ;; gi.repository.GLib.GError: g-file-error-quark: Failed to open
-               (("install-") "install_"))
+            ;; file
-             ;; This file makes Python confuse it for a module, so we rename
+            ;; “/gnu/store/<...>/data/mypaint/pixmaps/cursor_color_picker.png”:
-             ;; it.
+            ;; No such file or directory (4)
-             (rename-file "lib/xml.py" "lib/xmlo.py")
+            (lambda _
-             (substitute* (find-files "." "\\.py$")
+              (let* ((data (string-append #$output "/data"))
-               (("lib.xml") "lib.xmlo"))
+                     (data-icons (string-append data "/icons"))
-             ;; This procedure has been removed.
+                     (data-mypaint (string-append data "/mypaint"))
-             (substitute* "lib/gettext_setup.py"
+                     (icons (string-append #$output "/icons"))
-               (("c = gettext.bind_textdomain_codeset.*") "c = True\n"))))
+                     (mypaint (string-append #$output "/mypaint")))
-         (add-after 'install 'glib-or-gtk-wrap
+                (mkdir-p data-icons)
-           (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap))
+                (mkdir-p data-mypaint)
-         (add-after 'install 'wrap-program
+                (copy-recursively icons data-icons)
-           (lambda* (#:key outputs inputs #:allow-other-keys)
+                (copy-recursively mypaint data-mypaint)
-             (let* ((out (assoc-ref outputs "out"))
+                (delete-file-recursively icons)
-                    (gdk-pixbuf (assoc-ref inputs "gdk-pixbuf"))
+                (delete-file-recursively mypaint))))
-                    (gtk+ (assoc-ref inputs "gtk+")))
+          (add-after 'install 'glib-or-gtk-wrap
-               ;; This is replaced with an invalid shebang.
+            (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap))
-               (substitute* (string-append out "/bin/mypaint")
+          (add-after 'install 'wrap-program
-                 (("#!python")
+            (lambda* (#:key outputs inputs #:allow-other-keys)
-                  (string-append "#!" (which "python3"))))
+              (wrap-program (string-append #$output "/bin/mypaint")
-               (wrap-program (string-append out "/bin/mypaint")
+                `("GI_TYPELIB_PATH" ":" prefix
-                 `("GI_TYPELIB_PATH" ":" prefix
+                  (,(getenv "GI_TYPELIB_PATH"))))))
-                   (,(getenv "GI_TYPELIB_PATH")))))))
+          (add-before 'check 'pre-check
-         (add-before 'check 'pre-check
+            (lambda _
-           (lambda _
+              ;; Need to get the 'lib' in 'build/'.
-             ;; Tests need writing access
+              (delete-file-recursively "lib")
-             (setenv "HOME" "/tmp"))))))
+              ;; Tests need writing access
+              (setenv "HOME" "/tmp"))))))
     (native-inputs
-     (list pkg-config
+     (list gettext-minimal
            gobject-introspection
-           swig-4.0
+           pkg-config
-           gettext-minimal))
+           python-pytest
+           python-setuptools
+           swig))
     (inputs
      (list bash-minimal
+           gdk-pixbuf
            gtk+
-           (librsvg-for-system)
            hicolor-icon-theme
-           libmypaint
-           mypaint-brushes
            json-c
            lcms
+           libmypaint-next
+           libpng
+           (librsvg-for-system)
+           mypaint-brushes
            python-numpy
            python-pycairo
            python-pygobject))
-    (home-page "http://mypaint.org/")
+    (home-page "https://mypaint.org/")
     (synopsis "Fast and simple painting app for artists")
     (description
      "MyPaint is a simple drawing and painting program that works well with

gnu/packages/instrumentation.scm

@@ -63,7 +63,6 @@
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system linux-module)
   #:use-module (guix build-system pyproject)
-  #:use-module (guix build-system python)
   #:use-module (guix download)
   #:use-module (guix gexp)
   #:use-module (guix git-download)

gnu/packages/irc.scm

@@ -47,7 +47,6 @@
   #:use-module (guix build-system guile)
   #:use-module (guix build-system haskell)
   #:use-module (guix build-system meson)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system pyproject)
   #:use-module (guix build-system qt)
   #:use-module (gnu packages)

gnu/packages/iso-codes.scm

@@ -231,8 +231,6 @@ concerned with representation of names for languages and language groups.")
           (add-after 'unpack 'fix-pytest-config
             (lambda _  ; Removes the need for python-pytest-cov.
               (substitute* "pyproject.toml"
-                (("--cov --cov-report=html --cov-report=term-missing")
-                 "")
                 (("^required_plugins =.*")
                  "")))))))
     (native-inputs (list python-poetry-core python-pytest))

gnu/packages/java.scm

@@ -8941,6 +8941,12 @@ generated sources by ANTLR.")))
           (add-after 'unpack 'chdir
             (lambda _
               (chdir "runtime/Python3")))
+          ;; TODO: Remove when updating ANTLR4:
+          ;; https://github.com/antlr/antlr4/pull/4593
+          (add-after 'chdir 'fix-python-3.12-compatibility
+            (lambda _
+              (substitute* "tests/TestIntervalSet.py"
+                (("assertEquals") "assertEqual"))))
           (add-after 'chdir 'regenerate-parsers
             (lambda _
               (invoke "antlr4" "-no-listener" "-Dlanguage=Python3"

gnu/packages/jupyter.scm

@@ -46,7 +46,6 @@
   #:use-module (guix git-download)
   #:use-module (guix build-system cmake)
   #:use-module (guix build-system pyproject)
-  #:use-module (guix build-system python)
   #:use-module (guix utils)
   #:use-module (gnu packages algebra)
   #:use-module (gnu packages bash)
@@ -174,8 +173,7 @@ simulation, statistical modeling, machine learning and much more.")
            python-hatchling
            python-ipyparallel-bootstrap
            python-pytest
-           python-pytest-asyncio-0.26  ;some tests fail with v1
+           python-pytest-asyncio-0.26
-           python-pytest-cov
            python-pytest-timeout))
     (home-page "https://ipython.org")
     (synopsis "IPython Kernel for Jupyter")
@@ -377,7 +375,7 @@ the namespace @code{/nbclassic/}.")
     (build-system pyproject-build-system)
     (arguments
      (list
-      ;; tests: 307 passed, 7 skipped, 16 deselected, 9 warnings
+      ;; tests: 305 passed, 7 skipped, 18 deselected, 2696 warning
       #:test-flags
       '(list "-k" (string-append
                    ;; TODO: This tests fails because nbconvert does not
@@ -393,6 +391,12 @@ the namespace @code{/nbclassic/}.")
                    ;; tornado.simple_httpclient.HTTPTimeoutError: Timeout
                    ;; during request
                    " and not test_connections")
+        ;; AttributeError: 'TestContentsManager' object has no attribute
+        ;; 'assertDictContainsSubset'
+        (string-append "--deselect=notebook/services/contents/tests/"
+                       "test_manager.py::TestContentsManager::test_get")
+        (string-append "--deselect=notebook/services/contents/tests/"
+                       "test_manager.py::TestContentsManagerNoAtomic::test_get")
         ;; These tests require a browser.
         "--ignore=notebook/tests/selenium")
       #:phases
@@ -437,15 +441,12 @@ the namespace @code{/nbclassic/}.")
            python-tornado
            python-traitlets))
     (native-inputs
-     (list python-coverage
+     (list python-jupyter-server
-           python-jupyter-server
            python-nbval
            python-pytest
-           python-pytest-cov
            python-requests
            python-requests-unixsocket2
-           python-setuptools
+           python-setuptools))
-           python-wheel))
     (home-page "https://jupyter.org/")
     (synopsis "Web-based notebook environment for interactive computing")
     (description
@@ -984,7 +985,6 @@ the JupyterLab CSS variables.")
            python-openapi-spec-validator
            python-pytest
            python-pytest-console-scripts
-           python-pytest-cov
            python-pytest-jupyter
            python-pytest-timeout
            python-requests-mock
@@ -1236,7 +1236,6 @@ are interactive HTML widgets for Jupyter notebooks and the IPython kernel.")
     (native-inputs (list python-ansi2html
                          python-hatchling
                          python-pytest-console-scripts
-                         python-pytest-cov
                          python-pytest-xdist
                          python-tornado))
     (home-page "https://github.com/jupyterlite/jupyterlite")
@@ -1342,7 +1341,6 @@ and a default CommManager that can be used.")
            python-flaky
            python-pytest
            python-pytest-asyncio
-           python-pytest-cov
            python-testpath
            python-xmltodict))
     (home-page "https://jupyter.org")
@@ -1645,7 +1643,6 @@ Docker registry.")
      (list python-jupyter-packaging
            python-nbval
            python-pytest
-           python-pytest-cov
            python-setuptools))
     (home-page "https://github.com/vidartf/ipydatawidgets")
     (synopsis "Widgets to help facilitate reuse of large datasets across widgets")
@@ -1657,7 +1654,7 @@ datasets across widgets.")
 (define-public python-papermill
   (package
     (name "python-papermill")
-    (version "2.6.0")
+    (version "2.7.0")
     (source
      (origin
        (method git-fetch)
@@ -1666,26 +1663,25 @@ datasets across widgets.")
               (commit version)))
        (file-name (git-file-name name version))
        (sha256
-        (base32 "1i5zikvl9inficryqfz0v885v24pcs78cj5nzyjw0x232kxbj41p"))))
+        (base32 "0lafh4lazx4rc3ly746bjflmihkzf9rhp788bni1l4vq12ks6a49"))))
     (build-system pyproject-build-system)
     (arguments
      (list
-      ;; tests: 500 passed, 3 skipped, 2 deselected, 29 warnings
+      ;; tests: 503 passed, 2 deselected, 226 warnings
       #:test-flags
       ;; Do not bother testing Azure, AWS, and Google Cloud features.
       #~(list "--ignore=papermill/tests/test_abs.py"
               "--ignore=papermill/tests/test_adl.py"
               "--ignore=papermill/tests/test_gcs.py"
               "--ignore=papermill/tests/test_s3.py"
-              ;; AssertionError
+              #$@(map (lambda (ls)
-              #$@(map (lambda (test) (string-append "--deselect="
+                        (string-append "--deselect=papermill/tests/"
-                                                    "papermill/tests/"
+                                       (string-join ls "::")))
-                                                    "test_execute.py::"
+                      ;; AssertionError: 'error' != 'display_data'
-                                                    test))
+                      '(("test_execute.py" "TestBrokenNotebook2" "test")
-                      (list "TestBrokenNotebook2::test"
+                        ;; NameError: name 'FileSelector' is not defined
-                            "TestOutputFormatting::test_output_formatting")))))
+                        ("test_hdfs.py" "HDFSTest" "test_hdfs_listdir"))))))
     (propagated-inputs (list python-aiohttp
-                             python-ansicolors
                              python-click
                              python-entrypoints
                              python-nbclient

gnu/packages/libffi.scm

@@ -45,7 +45,6 @@
   #:use-module (gnu packages sphinx)
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system pyproject)
-  #:use-module ((guix build-system python) #:select (pypi-uri))
   #:use-module (guix build-system ruby))
 
 (define-public libffi

gnu/packages/libftdi.scm

@@ -33,6 +33,7 @@
   #:use-module (gnu packages libusb)
   #:use-module (gnu packages pkg-config)
   #:use-module (gnu packages python)
+  #:use-module (gnu packages python-build)
   #:use-module (gnu packages swig)
   #:use-module (gnu packages textutils))
 
@@ -95,7 +96,7 @@
                                                  "/html"))))))
       #:tests? #f))                     ; tests fail without access to USB
     (native-inputs
-     (list doxygen graphviz pkg-config python swig-4.0))
+     (list doxygen graphviz pkg-config python python-setuptools swig))
     (inputs
      (list boost libconfuse))
     (propagated-inputs

gnu/packages/libreoffice.scm

@@ -35,7 +35,6 @@
   #:use-module (guix build-system cmake)
   #:use-module (guix build-system glib-or-gtk)
   #:use-module (guix build-system gnu)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system pyproject)
   #:use-module (guix gexp)
   #:use-module (guix download)

gnu/packages/libusb.scm

@@ -43,7 +43,6 @@
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system go)
   #:use-module (guix build-system pyproject)
-  #:use-module (guix build-system python)
   #:use-module (guix download)
   #:use-module (guix gexp)
   #:use-module (guix git-download)
@@ -532,7 +531,8 @@ broken iOS devices.")
     (inputs
      (list python))
     (native-inputs
-     (list autoconf automake libtool pkg-config python-cython-0)) ; to build Python bindings
+     (list autoconf automake libtool pkg-config
+           python-cython-0 python-setuptools)) ; to build Python bindings
     (home-page "https://libimobiledevice.org/")
     (synopsis "C library to handle Apple Property List files")
     (description "This package provides a small portable C library to handle
@@ -585,7 +585,7 @@ connections from and to iOS devices by connecting to a socket provided by a
     (inputs
      (list python))
     (native-inputs
-     (list pkg-config python-cython-0))
+     (list pkg-config python-cython-0 python-setuptools))
     (home-page "https://libimobiledevice.org/")
     (synopsis "Protocol library and tools to communicate with Apple devices")
     (description "libimobiledevice is a software library that talks the

gnu/packages/license.scm

@@ -37,7 +37,6 @@
   #:use-module (gnu packages version-control)
   #:use-module (gnu packages web)
   #:use-module (guix build-system perl)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system pyproject)
   #:use-module (guix download)
   #:use-module (guix gexp)

gnu/packages/linux.scm

@@ -218,7 +218,6 @@
   #:use-module (guix build-system linux-module)
   #:use-module (guix build-system meson)
   #:use-module (guix build-system pyproject)
-  #:use-module (guix build-system python)
   #:use-module (guix build-system qt)
   #:use-module (guix build-system trivial)
   #:use-module (guix deprecation)    ;for libcap/next
@@ -4914,7 +4913,7 @@ transparently through a bridge.")
 (define-public libnl
   (package
     (name "libnl")
-    (version "3.7.0")
+    (version "3.12.0")
     (source (origin
               (method url-fetch)
               (uri (string-append
@@ -4923,7 +4922,7 @@ transparently through a bridge.")
                     "/libnl-" version ".tar.gz"))
               (sha256
                (base32
-                "0faryrbvp0x4s2zhg5d78vd5q4w34lrr736gpm9wcwpaxv5krr4z"))))
+                "066xq01y2mx0xi7bwa5y6ciw1ygla15qdlzzyvyzb8zijrqwllgw"))))
     (build-system gnu-build-system)
     (native-inputs
      `(("bison" ,bison)
@@ -4938,7 +4937,7 @@ transparently through a bridge.")
                  (string-join (string-split version #\.) "_")
                  "/libnl-doc-" version ".tar.gz"))
            (sha256
-            (base32 "1ra8xdf06q9hlsrnc1yz67xkp4kd9sd27ff02mlixixnyyjp32sp"))))))
+            (base32 "18f14pdycghy6fcd27faqgh19zpam6b45s8bgsk85kb9wwzq3yd4"))))))
     (outputs `("out" "doc"))
     (arguments
      `(#:phases
@@ -6828,10 +6827,7 @@ isolation or root privileges.")
     (inputs
      (list singularity))
     (native-inputs
-     (list python-pytest
+     (list python-pytest python-setuptools python-wheel))
-           python-pytest-runner
-           python-setuptools
-           python-wheel))
     (home-page "https://github.com/singularityhub/singularity-cli")
     (synopsis "Singularity Python client")
     (description "@code{python-spython} is a Python library to interact with

gnu/packages/lirc.scm

@@ -24,7 +24,6 @@
   #:use-module (guix download)
   #:use-module (guix git-download)
   #:use-module (guix build-system gnu)
-  #:use-module (guix build-system python)
   #:use-module ((guix licenses) #:prefix license:)
   #:use-module (gnu packages)
   #:use-module (gnu packages pkg-config)

gnu/packages/lisp-xyz.scm

@@ -82,9 +82,10 @@
   #:use-module (guix hg-download)
   #:use-module (guix utils)
   #:use-module (guix build-system asdf)
-  #:use-module (guix build-system gnu)
-  #:use-module (guix build-system trivial)
   #:use-module (guix build-system emacs)
+  #:use-module (guix build-system gnu)
+  #:use-module (guix build-system pyproject)
+  #:use-module (guix build-system trivial)
   #:use-module (gnu packages audio)
   #:use-module (gnu packages autotools)
   #:use-module (gnu packages base)
@@ -2894,37 +2895,37 @@ cartesian product.")
           (search-patches "sbcl-burgled-batteries3-fix-signals.patch"))))
       (build-system asdf-build-system/sbcl)
       (arguments
-       `(#:tests? #f
+       (list
-         #:modules (((guix build python-build-system) #:select (python-version))
+        #:tests? #f
+        #:imported-modules (append %asdf-build-system-modules
+                                   %pyproject-build-system-modules)
+        #:modules `(((guix build pyproject-build-system) #:prefix py:)
                     ,@%asdf-build-system-modules)
-         #:imported-modules ((guix build python-build-system)
+        #:phases
-                             ,@%asdf-build-system-modules)
+        #~(modify-phases (@ (guix build asdf-build-system) %standard-phases)
-         #:phases
+            (add-after 'unpack 'set-*cpython-include-dir*-var
-         (modify-phases (@ (guix build asdf-build-system) %standard-phases)
+              (lambda* (#:key inputs #:allow-other-keys)
-           (add-after 'unpack 'set-*cpython-include-dir*-var
+                (let* ((lib (search-input-file inputs "/lib/libpython3.so"))
-             (lambda* (#:key inputs #:allow-other-keys)
+                       (base (dirname (dirname lib))))
-               (let ((python (assoc-ref inputs "python")))
+                  (setenv "BB_PYTHON3_DYLIB" lib)
-                 (setenv "BB_PYTHON3_INCLUDE_DIR"
+                  (setenv "BB_PYTHON3_INCLUDE_DIR"
-                         (string-append python "/include/python"
+                          (string-append base "/include/python"
-                                        (python-version python)))
+                                         (py:python-version base))))))
-                 (setenv "BB_PYTHON3_DYLIB"
+            (add-after 'unpack 'adjust-for-python-3.10
-                         (string-append python "/lib/libpython3.so"))
+              (lambda _
-                 #t)))
+                ;; These methods are no longer part of the public API.
-           (add-after 'unpack 'adjust-for-python-3.10
+                (substitute* "ffi-interface.lisp"
-             (lambda _
+                  ((".*PyEval_ReInitThreads.*") "")
-               ;; These methods are no longer part of the public API.
+                  ((".*\"PyErr_Warn\".*") "")
-               (substitute* "ffi-interface.lisp"
+                  ((".*\"PyFloat_ClearFreeList\".*") "")
-                 ((".*PyEval_ReInitThreads.*") "")
+                  ((".*\"PyParser_SimpleParseString\".*") "")
-                 ((".*\"PyErr_Warn\".*") "")
+                  ((".*\"PyParser_SimpleParseStringFlags\".*") "")
-                 ((".*\"PyFloat_ClearFreeList\".*") "")
+                  ((".*\"PyParser_SimpleParseStringFlagsFilename\".*") "")
-                 ((".*\"PyParser_SimpleParseString\".*") "")
+                  ((".*\"PyParser_SimpleParseFile\".*") "")
-                 ((".*\"PyParser_SimpleParseStringFlags\".*") "")
+                  ((".*\"PyParser_SimpleParseFileFlags\".*") "")
-                 ((".*\"PyParser_SimpleParseStringFlagsFilename\".*") "")
+                  ((".*\"PyLong_FromUnicode\".*") "")
-                 ((".*\"PyParser_SimpleParseFile\".*") "")
+                  ((".*\"PyUnicodeEncodeError_Create\".*") "")
-                 ((".*\"PyParser_SimpleParseFileFlags\".*") "")
+                  ((".*\"PyUnicodeTranslateError_Create\".*") "")))))))
-                 ((".*\"PyLong_FromUnicode\".*") "")
-                 ((".*\"PyUnicodeEncodeError_Create\".*") "")
-                 ((".*\"PyUnicodeTranslateError_Create\".*") "")))))))
       (native-inputs
        (list sbcl-cl-fad sbcl-lift sbcl-cl-quickcheck))
       (inputs