guix_mirror_bot pushed a commit to branch haskell-team
in repository guix.

commit 29c64185dc89f8ec1fa4958f16649015788bcfc7
Author: Saku Laesvuori <[email protected]>
AuthorDate: Sat Oct 18 10:28:11 2025 +0300

    gnu: ghc-statistics: Fix testsuite
    
    * gnu/packages/haskell-xyz.scm (ghc-statistics)[arguments]: Run doctests
    with GHC_PACKAGE_PATH.
    
    Change-Id: I35629afab9009b59761cc999b65ad1c56f4e9a6a
    Signed-off-by: Andreas Enge <[email protected]>
---
 gnu/packages/haskell-xyz.scm | 19 +++++++++++++++++--
 1 file changed, 17 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/haskell-xyz.scm b/gnu/packages/haskell-xyz.scm
index ee8ad7d959..ed507d3415 100644
--- a/gnu/packages/haskell-xyz.scm
+++ b/gnu/packages/haskell-xyz.scm
@@ -12071,8 +12071,23 @@ in the @code{IO} monad, like @code{IORef}s or parts of 
the OpenGL state.")
                          ghc-tasty-expected-failure
                          ghc-doctest))
     (arguments
-     `(#:cabal-revision ("1"
-                         
"1996zyq4n7c5zh36h3nhzx5xyd7z6fa3mqsldrgii56g7ixq1rkz")))
+     (list
+      #:cabal-revision
+      '("1" "1996zyq4n7c5zh36h3nhzx5xyd7z6fa3mqsldrgii56g7ixq1rkz")
+      #:phases
+      #~(modify-phases %standard-phases
+          (replace 'check
+            (lambda* (#:key tests? #:allow-other-keys)
+              (if tests?
+                (let* ((tmpdir (or (getenv "TMP")
+                                   "/tmp"))
+                       (dependency-package-db
+                        (string-append tmpdir "/package.conf.d")))
+                  (invoke "runhaskell" "Setup.hs" "test" "statistics-tests")
+                  (setenv "GHC_PACKAGE_PATH" dependency-package-db)
+                  (invoke 
"./dist/build/statistics-doctests/statistics-doctests")
+                  (unsetenv "GHC_PACKAGE_PATH"))
+                (format #t "Testsuite not run.%~")))))))
     (home-page "https://github.com/haskell/statistics";)
     (synopsis "Haskell library of statistical types, data, and functions")
     (description

Reply via email to