[PATCH haskell-team 1/3] gnu: ghc-next: Update to version 9.4.8

+++ b/gnu/packages/haskell.scm

+ (version "1.20.1.1")

+ "06w8g3lfk2ynrfhqznhp1mnp8a5b64lj6qviixpndzf5lv2psklb"))))

+ (version "9.4.8")

+ "0pmqg9846lanb0hcyxhgr9ipzq33rfldxj7ln0j3qgpyczmhgx0b"))))

+ "159wsqnqpqb0pxa3zyhvyg07wxr2zz7v52h52wkplw4pn12dsidc"))

+ (patches (search-patches "ghc-9.4-testsuite-fixes.patch"))))

+++ b/gnu/packages/patches/ghc-9.4-testsuite-fixes.patch

+From 3acd8aa948a27465cffc8e2ab56229485e2a5b98 Mon Sep 17 00:00:00 2001

+From: Saku Laesvuori <saku@laesvuori.fi>

+Date: Tue, 5 Dec 2023 22:49:45 +0200

+Subject: [PATCH] Fix tests

+

+* replaces egrep with grep -E

+* removes unnecessary escaping in some grep regular expressions

+* adds a missing include header to a makefile

+---

+ testsuite/tests/cabal/cabal01/Makefile | 2 +-

+ testsuite/tests/ghci/should_run/GHCiPrimCall/Makefile | 4 ++++

+ testsuite/tests/haddock/perf/Makefile | 8 ++++----

+ testsuite/tests/hsc2hs/Makefile | 4 ++--

+ testsuite/tests/numeric/should_run/T7014.primops | 4 ++--

+ testsuite/tests/simplCore/should_compile/Makefile | 4 ++--

+ 6 files changed, 15 insertions(+), 11 deletions(-)

+

+diff --git a/testsuite/tests/cabal/cabal01/Makefile b/testsuite/tests/cabal/cabal01/Makefile

+index 004e4c75..6ec499c9 100644

+--- a/testsuite/tests/cabal/cabal01/Makefile

++++ b/testsuite/tests/cabal/cabal01/Makefile

+@@ -5,7 +5,7 @@ include $(TOP)/mk/test.mk

+ # Find all the env variables starting with CI_ to unset them.

+ # Otherwise, we might run into environment length limitations on Windows.

+ # (See `xargs --show-limits`.)

+-VARS_TO_UNSET := $(shell env | grep ^CI_ | egrep -o '^[^=]+')

++VARS_TO_UNSET := $(shell env | grep ^CI_ | grep -E -o '^[^=]+')

+ unexport $(VARS_TO_UNSET)

+

+ clean:

+diff --git a/testsuite/tests/ghci/should_run/GHCiPrimCall/Makefile b/testsuite/tests/ghci/should_run/GHCiPrimCall/Makefile

+index fd64d23f..cb669db3 100644

+--- a/testsuite/tests/ghci/should_run/GHCiPrimCall/Makefile

++++ b/testsuite/tests/ghci/should_run/GHCiPrimCall/Makefile

+@@ -1,3 +1,7 @@

++TOP=../../../..

++include $(TOP)/mk/boilerplate.mk

++include $(TOP)/mk/test.mk

++

+ .PHONY: GHCiPrimCall

+ GHCiPrimCall:

+ '$(TEST_HC)' $(TEST_HC_OPTS) -fPIC -v0 -c GHCiPrimCall_cmm.cmm

+diff --git a/testsuite/tests/haddock/perf/Makefile b/testsuite/tests/haddock/perf/Makefile

+index b67b52f2..ff2f7ebb 100644

+--- a/testsuite/tests/haddock/perf/Makefile

++++ b/testsuite/tests/haddock/perf/Makefile

+@@ -4,12 +4,12 @@ include $(TOP)/mk/test.mk

+

+ # We accept a 5% increase in parser allocations due to -haddock

+ haddock_parser_perf :

+- WithHaddock=$(shell '$(TEST_HC)' $(TEST_HC_OPTS) -fno-code -fforce-recomp -Wno-all -ddump-timings -haddock -O0 Fold.hs 2>/dev/null | grep Parser | egrep -o 'alloc=[0-9]+' | cut -c7- ) ; \

+- WithoutHaddock=$(shell '$(TEST_HC)' $(TEST_HC_OPTS) -fno-code -fforce-recomp -Wno-all -ddump-timings -O0 Fold.hs 2>/dev/null | grep Parser | egrep -o 'alloc=[0-9]+' | cut -c7- ) ; \

++ WithHaddock=$(shell '$(TEST_HC)' $(TEST_HC_OPTS) -fno-code -fforce-recomp -Wno-all -ddump-timings -haddock -O0 Fold.hs 2>/dev/null | grep Parser | grep -E -o 'alloc=[0-9]+' | cut -c7- ) ; \

++ WithoutHaddock=$(shell '$(TEST_HC)' $(TEST_HC_OPTS) -fno-code -fforce-recomp -Wno-all -ddump-timings -O0 Fold.hs 2>/dev/null | grep Parser | grep -E -o 'alloc=[0-9]+' | cut -c7- ) ; \

+ awk "BEGIN { ratio = ($$WithHaddock / $$WithoutHaddock); if (ratio > 1.05) {print \"-haddock allocation ratio too high:\", ratio; exit 1} else {exit 0} }"

+

+ # Similarly for the renamer

+ haddock_renamer_perf :

+- WithoutHaddock=$(shell '$(TEST_HC)' $(TEST_HC_OPTS) -fno-code -fforce-recomp -Wno-all -ddump-timings -O0 Fold.hs 2>/dev/null | grep Renamer | egrep -o 'alloc=[0-9]+' | cut -c7- ) ; \

+- WithHaddock=$(shell '$(TEST_HC)' $(TEST_HC_OPTS) -fno-code -fforce-recomp -Wno-all -ddump-timings -haddock -O0 Fold.hs 2>/dev/null | grep Renamer | egrep -o 'alloc=[0-9]+' | cut -c7- ) ; \

++ WithoutHaddock=$(shell '$(TEST_HC)' $(TEST_HC_OPTS) -fno-code -fforce-recomp -Wno-all -ddump-timings -O0 Fold.hs 2>/dev/null | grep Renamer | grep -E -o 'alloc=[0-9]+' | cut -c7- ) ; \

++ WithHaddock=$(shell '$(TEST_HC)' $(TEST_HC_OPTS) -fno-code -fforce-recomp -Wno-all -ddump-timings -haddock -O0 Fold.hs 2>/dev/null | grep Renamer | grep -E -o 'alloc=[0-9]+' | cut -c7- ) ; \

+ awk "BEGIN { ratio = ($$WithHaddock / $$WithoutHaddock); if (ratio > 1.05) {print \"-haddock allocation ratio too high:\", ratio; exit 1} else {exit 0} }"

+diff --git a/testsuite/tests/hsc2hs/Makefile b/testsuite/tests/hsc2hs/Makefile

+index d0b2d249..95b011c8 100644

+--- a/testsuite/tests/hsc2hs/Makefile

++++ b/testsuite/tests/hsc2hs/Makefile

+@@ -52,9 +52,9 @@ T11004:

+ T12504:

+ '$(HSC2HS)' $(HSC2HS_OPTS) T12504/path/to/$@.hsc

+ ifeq "$(WINDOWS)" "YES"

+- grep '{-# LINE 1 \"T12504\\\\path\\\\to\\\\$@\.hsc\" #-}' T12504/path/to/$@.hs

++ grep '{-# LINE 1 "T12504\\\\path\\\\to\\\\$@\.hsc" #-}' T12504/path/to/$@.hs

+ else

+- grep '{-# LINE 1 \"T12504/path/to/$@\.hsc\" #-}' T12504/path/to/$@.hs

++ grep '{-# LINE 1 "T12504/path/to/$@\.hsc" #-}' T12504/path/to/$@.hs

+ endif

+

+ .PHONY: T15758

+diff --git a/testsuite/tests/numeric/should_run/T7014.primops b/testsuite/tests/numeric/should_run/T7014.primops

+index 3243666d..c807fb45 100644

+--- a/testsuite/tests/numeric/should_run/T7014.primops

++++ b/testsuite/tests/numeric/should_run/T7014.primops

+@@ -1,8 +1,8 @@

+ and#

+ or#

+ uncheckedShift.*#

+-\+#

+-\-#

+++#

++-#

+ \*#

+ quotInt#

+ remInt#

+diff --git a/testsuite/tests/simplCore/should_compile/Makefile b/testsuite/tests/simplCore/should_compile/Makefile

+index b5041800..c56e04f6 100644

+--- a/testsuite/tests/simplCore/should_compile/Makefile

++++ b/testsuite/tests/simplCore/should_compile/Makefile

+@@ -66,7 +66,7 @@ T13367:

+

+ T8832:

+ $(RM) -f T8832.o T8832.hi

+- '$(TEST_HC)' $(TEST_HC_OPTS) -O -c -ddump-simpl -dsuppress-ticks T8832.hs | egrep '^[a-zA-Z0-9]+ ='

++ '$(TEST_HC)' $(TEST_HC_OPTS) -O -c -ddump-simpl -dsuppress-ticks T8832.hs | grep -E '^[a-zA-Z0-9]+ ='

+

+ T12603:

+ $(RM) -f T12603.o T12603.hi

+@@ -259,7 +259,7 @@ str-rules:

+ # g should have been collapsed into one defininition by CSE.

+ .PHONY: T13340

+ T13340:

+- '$(TEST_HC)' $(TEST_HC_OPTS) -c -O T13340.hs -ddump-simpl -dsuppress-all | grep -c '\+#'

++ '$(TEST_HC)' $(TEST_HC_OPTS) -c -O T13340.hs -ddump-simpl -dsuppress-all | grep -c '+#'

+

+

+ # We expect to see all dictionaries specialized away.

+--

+2.41.0

+

+++ b/gnu/packages/haskell.scm

+ (name "ghc")

+;; 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.4)

+

+++ b/guix/build/haskell-build-system.scm

+ (copy-file dep-conf dep-conf*)

+ (substitute* dep-conf*

+ (("(exposed:[ \t]*)True" _ field)

+ (string-append field "False"))))

+++ b/gnu/packages/haskell.scm

+ (version "1.20.1.1")

+ "06w8g3lfk2ynrfhqznhp1mnp8a5b64lj6qviixpndzf5lv2psklb"))))

+ (version "9.4.8")

+ "0pmqg9846lanb0hcyxhgr9ipzq33rfldxj7ln0j3qgpyczmhgx0b"))))

+ "159wsqnqpqb0pxa3zyhvyg07wxr2zz7v52h52wkplw4pn12dsidc"))

+ (patches (search-patches "ghc-9.4-testsuite-fixes.patch"))))

+++ b/gnu/packages/patches/ghc-9.4-testsuite-fixes.patch

+From 3acd8aa948a27465cffc8e2ab56229485e2a5b98 Mon Sep 17 00:00:00 2001

+From: Saku Laesvuori <saku@laesvuori.fi>

+Date: Tue, 5 Dec 2023 22:49:45 +0200

+Subject: [PATCH] Fix tests

+

+* replaces egrep with grep -E

+* removes unnecessary escaping in some grep regular expressions

+* adds a missing include header to a makefile

+---

+ testsuite/tests/cabal/cabal01/Makefile | 2 +-

+ testsuite/tests/ghci/should_run/GHCiPrimCall/Makefile | 4 ++++

+ testsuite/tests/haddock/perf/Makefile | 8 ++++----

+ testsuite/tests/hsc2hs/Makefile | 4 ++--

+ testsuite/tests/numeric/should_run/T7014.primops | 4 ++--

+ testsuite/tests/simplCore/should_compile/Makefile | 4 ++--

+ 6 files changed, 15 insertions(+), 11 deletions(-)

+

+diff --git a/testsuite/tests/cabal/cabal01/Makefile b/testsuite/tests/cabal/cabal01/Makefile

+index 004e4c75..6ec499c9 100644

+--- a/testsuite/tests/cabal/cabal01/Makefile

++++ b/testsuite/tests/cabal/cabal01/Makefile

+@@ -5,7 +5,7 @@ include $(TOP)/mk/test.mk

+ # Find all the env variables starting with CI_ to unset them.

+ # Otherwise, we might run into environment length limitations on Windows.

+ # (See `xargs --show-limits`.)

+-VARS_TO_UNSET := $(shell env | grep ^CI_ | egrep -o '^[^=]+')

++VARS_TO_UNSET := $(shell env | grep ^CI_ | grep -E -o '^[^=]+')

+ unexport $(VARS_TO_UNSET)

+

+ clean:

+diff --git a/testsuite/tests/ghci/should_run/GHCiPrimCall/Makefile b/testsuite/tests/ghci/should_run/GHCiPrimCall/Makefile

+index fd64d23f..cb669db3 100644

+--- a/testsuite/tests/ghci/should_run/GHCiPrimCall/Makefile

++++ b/testsuite/tests/ghci/should_run/GHCiPrimCall/Makefile

+@@ -1,3 +1,7 @@

++TOP=../../../..

++include $(TOP)/mk/boilerplate.mk

++include $(TOP)/mk/test.mk

++

+ .PHONY: GHCiPrimCall

+ GHCiPrimCall:

+ '$(TEST_HC)' $(TEST_HC_OPTS) -fPIC -v0 -c GHCiPrimCall_cmm.cmm

+diff --git a/testsuite/tests/haddock/perf/Makefile b/testsuite/tests/haddock/perf/Makefile

+index b67b52f2..ff2f7ebb 100644

+--- a/testsuite/tests/haddock/perf/Makefile

++++ b/testsuite/tests/haddock/perf/Makefile

+@@ -4,12 +4,12 @@ include $(TOP)/mk/test.mk

+

+ # We accept a 5% increase in parser allocations due to -haddock

+ haddock_parser_perf :

+- WithHaddock=$(shell '$(TEST_HC)' $(TEST_HC_OPTS) -fno-code -fforce-recomp -Wno-all -ddump-timings -haddock -O0 Fold.hs 2>/dev/null | grep Parser | egrep -o 'alloc=[0-9]+' | cut -c7- ) ; \

+- WithoutHaddock=$(shell '$(TEST_HC)' $(TEST_HC_OPTS) -fno-code -fforce-recomp -Wno-all -ddump-timings -O0 Fold.hs 2>/dev/null | grep Parser | egrep -o 'alloc=[0-9]+' | cut -c7- ) ; \

++ WithHaddock=$(shell '$(TEST_HC)' $(TEST_HC_OPTS) -fno-code -fforce-recomp -Wno-all -ddump-timings -haddock -O0 Fold.hs 2>/dev/null | grep Parser | grep -E -o 'alloc=[0-9]+' | cut -c7- ) ; \

++ WithoutHaddock=$(shell '$(TEST_HC)' $(TEST_HC_OPTS) -fno-code -fforce-recomp -Wno-all -ddump-timings -O0 Fold.hs 2>/dev/null | grep Parser | grep -E -o 'alloc=[0-9]+' | cut -c7- ) ; \

+ awk "BEGIN { ratio = ($$WithHaddock / $$WithoutHaddock); if (ratio > 1.05) {print \"-haddock allocation ratio too high:\", ratio; exit 1} else {exit 0} }"

+

+ # Similarly for the renamer

+ haddock_renamer_perf :

+- WithoutHaddock=$(shell '$(TEST_HC)' $(TEST_HC_OPTS) -fno-code -fforce-recomp -Wno-all -ddump-timings -O0 Fold.hs 2>/dev/null | grep Renamer | egrep -o 'alloc=[0-9]+' | cut -c7- ) ; \

+- WithHaddock=$(shell '$(TEST_HC)' $(TEST_HC_OPTS) -fno-code -fforce-recomp -Wno-all -ddump-timings -haddock -O0 Fold.hs 2>/dev/null | grep Renamer | egrep -o 'alloc=[0-9]+' | cut -c7- ) ; \

++ WithoutHaddock=$(shell '$(TEST_HC)' $(TEST_HC_OPTS) -fno-code -fforce-recomp -Wno-all -ddump-timings -O0 Fold.hs 2>/dev/null | grep Renamer | grep -E -o 'alloc=[0-9]+' | cut -c7- ) ; \

++ WithHaddock=$(shell '$(TEST_HC)' $(TEST_HC_OPTS) -fno-code -fforce-recomp -Wno-all -ddump-timings -haddock -O0 Fold.hs 2>/dev/null | grep Renamer | grep -E -o 'alloc=[0-9]+' | cut -c7- ) ; \

+ awk "BEGIN { ratio = ($$WithHaddock / $$WithoutHaddock); if (ratio > 1.05) {print \"-haddock allocation ratio too high:\", ratio; exit 1} else {exit 0} }"

+diff --git a/testsuite/tests/hsc2hs/Makefile b/testsuite/tests/hsc2hs/Makefile

+index d0b2d249..95b011c8 100644

+--- a/testsuite/tests/hsc2hs/Makefile

++++ b/testsuite/tests/hsc2hs/Makefile

+@@ -52,9 +52,9 @@ T11004:

+ T12504:

+ '$(HSC2HS)' $(HSC2HS_OPTS) T12504/path/to/$@.hsc

+ ifeq "$(WINDOWS)" "YES"

+- grep '{-# LINE 1 \"T12504\\\\path\\\\to\\\\$@\.hsc\" #-}' T12504/path/to/$@.hs

++ grep '{-# LINE 1 "T12504\\\\path\\\\to\\\\$@\.hsc" #-}' T12504/path/to/$@.hs

+ else

+- grep '{-# LINE 1 \"T12504/path/to/$@\.hsc\" #-}' T12504/path/to/$@.hs

++ grep '{-# LINE 1 "T12504/path/to/$@\.hsc" #-}' T12504/path/to/$@.hs

+ endif

+

+ .PHONY: T15758

+diff --git a/testsuite/tests/numeric/should_run/T7014.primops b/testsuite/tests/numeric/should_run/T7014.primops

+index 3243666d..c807fb45 100644

+--- a/testsuite/tests/numeric/should_run/T7014.primops

++++ b/testsuite/tests/numeric/should_run/T7014.primops

+@@ -1,8 +1,8 @@

+ and#

+ or#

+ uncheckedShift.*#

+-\+#

+-\-#

+++#

++-#

+ \*#

+ quotInt#

+ remInt#

+diff --git a/testsuite/tests/simplCore/should_compile/Makefile b/testsuite/tests/simplCore/should_compile/Makefile

+index b5041800..c56e04f6 100644

+--- a/testsuite/tests/simplCore/should_compile/Makefile

++++ b/testsuite/tests/simplCore/should_compile/Makefile

+@@ -66,7 +66,7 @@ T13367:

+

+ T8832:

+ $(RM) -f T8832.o T8832.hi

+- '$(TEST_HC)' $(TEST_HC_OPTS) -O -c -ddump-simpl -dsuppress-ticks T8832.hs | egrep '^[a-zA-Z0-9]+ ='

++ '$(TEST_HC)' $(TEST_HC_OPTS) -O -c -ddump-simpl -dsuppress-ticks T8832.hs | grep -E '^[a-zA-Z0-9]+ ='

+

+ T12603:

+ $(RM) -f T12603.o T12603.hi

+@@ -259,7 +259,7 @@ str-rules:

+ # g should have been collapsed into one defininition by CSE.

+ .PHONY: T13340

+ T13340:

+- '$(TEST_HC)' $(TEST_HC_OPTS) -c -O T13340.hs -ddump-simpl -dsuppress-all | grep -c '\+#'

++ '$(TEST_HC)' $(TEST_HC_OPTS) -c -O T13340.hs -ddump-simpl -dsuppress-all | grep -c '+#'

+

+

+ # We expect to see all dictionaries specialized away.

+--

+2.41.0

+

+++ b/gnu/packages/haskell.scm

+;;; Bootstrap packages for hadrian, the new GHC build system

+

+(define ghc-bootstrap-for-9.6 ghc-9.4)

+

+(define ghc-js-flot-bootstrap-for-9.6

+ (package

+ (name "ghc-js-flot-bootstrap")

+ (version "0.8.3")

+ (source

+ (origin

+ (method url-fetch)

+ (uri

+ (hackage-uri "js-flot" version))

+ (sha256

+ (base32

+ "0yjyzqh3qzhy5h3nql1fckw0gcfb0f4wj9pm85nafpfqp2kg58hv"))))

+ (build-system haskell-build-system)

+ (arguments (list #:tests? #f

+ #:haskell ghc-bootstrap-for-9.6))

+ (properties '((upstream-name . "js-flot")))

+ (home-page "https://github.com/ndmitchell/js-flot")

+ (synopsis "Obtain minified flot code")

+ (description "This package bundles the minified

+@url{http://www.flotcharts.org/, Flot} code (a jQuery plotting library)

+into a Haskell package, so it can be depended upon by Cabal packages.

+The first three components of the version number match the upstream flot

+version. The package is designed to meet the redistribution

+requirements of downstream users (e.g. Debian).")

+ (license license:expat)))

+

+++ b/gnu/packages/haskell.scm

+(define ghc-clock-bootstrap-for-9.6

+ (package

+ (name "ghc-clock-bootstrap")

+ (version "0.8.3")

+ (source (origin

+ (method url-fetch)

+ (uri (hackage-uri "clock" version))

+ (sha256

+ (base32

+ "1l850pf1dxjf3i15wc47d64gzkpzgvw0bq13fd8zvklq9kdyap44"))))

+ (build-system haskell-build-system)

+ (properties '((upstream-name . "clock")))

+ (arguments (list #:tests? #f

+ #:haskell ghc-bootstrap-for-9.6))

+ (home-page "https://github.com/corsis/clock")

+ (synopsis "High-resolution clock for Haskell")

+ (description

+ "A package for convenient access to high-resolution clock and

+timer functions of different operating systems via a unified API.")

+ (license license:bsd-3)))

+

+++ b/gnu/packages/haskell.scm

+(define ghc-hashable-bootstrap-for-9.6

+ (package

+ (name "ghc-hashable-bootstrap")

+ (version "1.4.1.0")

+ (source (origin

+ (method url-fetch)

+ (uri (hackage-uri "hashable" version))

+ (sha256

+ (base32

+ "11sycr73821amdz8g0k8c97igi4z7f9xdvgaxlkxhsp6h310bcz1"))))

+ (build-system haskell-build-system)

+ (properties '((upstream-name . "hashable")))

+ (arguments (list #:tests? #f

+ #:haskell ghc-bootstrap-for-9.6))

+ (home-page "http://github.com/haskell-unordered-containers/hashable")

+ (synopsis "Class for types that can be converted to a hash value")

+ (description

+ "This package defines a class, @code{Hashable}, for types that can be

+converted to a hash value. This class exists for the benefit of hashing-based

+data structures. The package provides instances for basic types and a way to

+combine hash values.")

+ (license license:bsd-3)))

+

+++ b/gnu/packages/haskell.scm

+(define ghc-extra-bootstrap-for-9.6

+ (package

+ (name "ghc-extra-bootstrap")

+ (version "1.7.12")

+ (source (origin

+ (method url-fetch)

+ (uri (hackage-uri "extra" version))

+ (sha256

+ (base32

+ "0g5h8fp0nq4k9asiknw0bhvb10zpfnsixfp0n3xz0rc83pnajwg5"))))

+ (build-system haskell-build-system)

+ (properties '((upstream-name . "extra")))

+ (arguments (list #:tests? #f

+ #:haskell ghc-bootstrap-for-9.6))

+ (inputs (list ghc-clock-bootstrap-for-9.6))

+ (home-page "https://github.com/ndmitchell/extra#readme")

+ (synopsis "Extra Haskell functions")

+ (description

+ "This library provides extra functions for the standard

+Haskell libraries. Most functions are simple additions, filling out missing

+functionality. A few functions are available in later versions of GHC, but

+this package makes them available back to GHC 7.2.")

+ (license license:bsd-3)))

+

+++ b/gnu/packages/haskell.scm

+(define ghc-random-bootstrap-for-9.6

+ (package

+ (name "ghc-random-bootstrap")

+ (version "1.2.1.1")

+ (source (origin

+ (method url-fetch)

+ (uri (hackage-uri "random" version))

+ (sha256

+ (base32

+ "0xlv1k4sj87akwvj54kq4nrfkzi6qcz1941bf78pnkbaxpvp44iy"))))

+ (build-system haskell-build-system)

+ (properties '((upstream-name . "random")))

+ (arguments (list #:tests? #f

+ #:haskell ghc-bootstrap-for-9.6))

+ (inputs (list ghc-splitmix-bootstrap-for-9.6))

+ (home-page "http://hackage.haskell.org/package/random")

+ (synopsis "Random number library")

+ (description

+ "This package provides a basic random number generation

+library, including the ability to split random number generators.")

+ (license license:bsd-3)))

+

+++ b/gnu/packages/haskell.scm

+(define ghc-splitmix-bootstrap-for-9.6

+ (package

+ (name "ghc-splitmix-bootstrap")

+ (version "0.1.0.5")

+ (source (origin

+ (method url-fetch)

+ (uri (hackage-uri "splitmix" version))

+ (sha256

+ (base32

+ "00ihw7vji8ydik7f5lk9iwj21j829lpl22wa4nqz2igg26b7mw4x"))))

+ (build-system haskell-build-system)

+ (properties '((upstream-name . "splitmix")))

+ (arguments

+ `(#:tests? #f

+ #:haskell ,ghc-bootstrap-for-9.6))

+ (home-page "http://hackage.haskell.org/package/splitmix")

+ (synopsis "Fast and splittable pseudorandom number generator")

+ (description

+ "This package provides a Pure Haskell implementation of the

+SplitMix pseudorandom number generator. SplitMix is a \"splittable\"

+pseudorandom number generator that is quite fast: 9 64-bit

+arithmetic/logical operations per 64 bits generated. SplitMix is tested

+with two standard statistical test suites (DieHarder and TestU01, this

+implementation only using the former) and it appears to be adequate for

+\"everyday\" use, such as Monte Carlo algorithms and randomized data

+structures where speed is important. In particular, it @strong{should not

+be used for cryptographic or security applications}, because generated

+sequences of pseudorandom values are too predictable (the mixing functions

+are easily inverted, and two successive outputs suffice to reconstruct the

+internal state).")

+ (license license:bsd-3)))

+

+++ b/gnu/packages/haskell.scm

+(define ghc-primitive-bootstrap-for-9.6

+ (package

+ (name "ghc-primitive-bootstrap")

+ (version "0.8.0.0")

+ (source (origin

+ (method url-fetch)

+ (uri (hackage-uri "primitive" version))

+ (sha256

+ (base32

+ "0pwr5g3bra5m2zjm14pj98klqj2qrjcfasgd3rcrp7vq98dw4lsm"))))

+ (build-system haskell-build-system)

+ (properties '((upstream-name . "primitive")))

+ (arguments

+ `(#:tests? #f

+ #:haskell ,ghc-bootstrap-for-9.6

+ #:cabal-revision ("1"

+ "0w1nf0rabgyk5q7ccw7va1mj6k50lswvikhi6vr2myb1dvx4bzyh")))

+ (home-page "https://github.com/haskell/primitive")

+ (synopsis "Primitive memory-related operations")

+ (description

+ "This package provides various primitive memory-related operations.")

+ (license license:bsd-3)))

+

+++ b/gnu/packages/haskell.scm

+(define ghc-js-jquery-bootstrap-for-9.6

+ (package

+ (name "ghc-js-jquery-bootstrap")

+ (version "3.3.1")

+ (source

+ (origin

+ (method url-fetch)

+ (uri

+ (hackage-uri "js-jquery" version))

+ (sha256

+ (base32

+ "16q68jzbs7kp07dnq8cprdcc8fd41rim38039vg0w4x11lgniq70"))))

+ (build-system haskell-build-system)

+ (properties '((upstream-name . "js-jquery")))

+ (arguments `(#:tests? #f

+ #:haskell ,ghc-bootstrap-for-9.6))

+ (home-page "https://github.com/ndmitchell/js-jquery")

+ (synopsis "Obtain minified jQuery code")

+ (description "This package bundles the minified

+@url{http://jquery.com/, jQuery} code into a Haskell package, so it can

+be depended upon by Cabal packages. The first three components of the

+version number match the upstream jQuery version. The package is

+designed to meet the redistribution requirements of downstream

+users (e.g. Debian).")

+ (license license:expat)))

+

+++ b/gnu/packages/haskell.scm

+(define ghc-heaps-bootstrap-for-9.6

+ (package

+ (name "ghc-heaps-bootstrap")

+ (version "0.4")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hackage-uri "heaps" version))

+ (sha256

+ (base32 "1zbw0qrlnhb42v04phzwmizbpwg21wnpl7p4fbr9xsasp7w9scl9"))))

+ (build-system haskell-build-system)

+ (properties '((upstream-name . "heaps")))

+ (arguments (list #:haskell ghc-bootstrap-for-9.6))

+ (home-page "http://github.com/ekmett/heaps/")

+ (synopsis "Asymptotically optimal Brodal/Okasaki heaps.")

+ (description

+ "Asymptotically optimal Brodal\\/Okasaki bootstrapped skew-binomial heaps from the

+paper <http://citeseerx.ist.psu.edu/viewdoc/summary?doi=10.1.1.48.973 \"Optimal

+Purely Functional Priority Queues\">, extended with a Foldable interface.")

+ (license license:bsd-3)))

+

+++ b/gnu/packages/haskell.scm

+(define ghc-utf8-string-bootstrap-for-9.6

+ (package

+ (name "ghc-utf8-string-bootstrap")

+ (version "1.0.2")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hackage-uri "utf8-string" version))

+ (sha256

+ (base32 "16mh36ffva9rh6k37bi1046pgpj14h0cnmj1iir700v0lynxwj7f"))))

+ (build-system haskell-build-system)

+ (properties '((upstream-name . "utf8-string")))

+ (arguments `(#:tests? #f

+ #:haskell ,ghc-bootstrap-for-9.6))

+ (home-page "https://github.com/glguy/utf8-string/")

+ (synopsis "Support for reading and writing UTF8 Strings")

+ (description

+ "A UTF8 layer for Strings. The utf8-string package provides operations

+for encoding UTF8 strings to Word8 lists and back, and for reading and writing

+UTF8 without truncation.")

+ (license license:bsd-3)))

+

+++ b/gnu/packages/haskell.scm

+(define ghc-js-dgtable-bootstrap-for-9.6

+ (package

+ (name "ghc-js-dgtable-bootstrap")

+ (version "0.5.2")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hackage-uri "js-dgtable" version))

+ (sha256

+ (base32 "1b10kx703kbkb5q1ggdpqcrxqjb33kh24khk21rb30w0xrdxd3g2"))))

+ (build-system haskell-build-system)

+ (properties '((upstream-name . "js-dgtable")))

+ (arguments (list #:haskell ghc-bootstrap-for-9.6))

+ (home-page "https://github.com/ndmitchell/js-dgtable#readme")

+ (synopsis "Obtain minified jquery.dgtable code")

+ (description

+ "This package bundles the minified <https://github.com/danielgindi/jquery.dgtable

+jquery.dgtable> code into a Haskell package, so it can be depended upon by Cabal

+packages. The first three components of the version number match the upstream

+jquery.dgtable version. The package is designed to meet the redistribution

+requirements of downstream users (e.g. Debian).")

+ (license license:expat)))

+

+++ b/gnu/packages/haskell.scm

+(define ghc-nats-bootstrap-for-9.6

+ (package

+ (name "ghc-nats-bootstrap")

+ (version "1.1.2")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hackage-uri "nats" version))

+ (sha256

+ (base32

+ "1v40drmhixck3pz3mdfghamh73l4rp71mzcviipv1y8jhrfxilmr"))))

+ (build-system haskell-build-system)

+ (properties '((upstream-name . "nats")))

+ (arguments `(#:haddock? #f

+ #:haskell ,ghc-bootstrap-for-9.6))

+ (inputs

+ (list ghc-hashable-bootstrap-for-9.6))

+ (home-page "https://hackage.haskell.org/package/nats")

+ (synopsis "Natural numbers")

+ (description "This library provides the natural numbers for Haskell.")

+ (license license:bsd-3)))

+

+++ b/gnu/packages/haskell.scm

+(define ghc-tagged-bootstrap-for-9.6

+ (package

+ (name "ghc-tagged-bootstrap")

+ (version "0.8.7")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hackage-uri "tagged" version))

+ (sha256

+ (base32

+ "0qdr1kv1zn5iamnwyn5nf0ywxs4wv779k0gpw94kyqx14ynfw534"))))

+ (build-system haskell-build-system)

+ (properties '((upstream-name . "tagged")))

+ (arguments (list #:haskell ghc-bootstrap-for-9.6))

+ (home-page "https://hackage.haskell.org/package/tagged")

+ (synopsis "Haskell phantom types to avoid passing dummy arguments")

+ (description "This library provides phantom types for Haskell 98, to avoid

+having to unsafely pass dummy arguments.")

+ (license license:bsd-3)))

+

+++ b/gnu/packages/haskell.scm

+(define ghc-semigroups-bootstrap-for-9.6

+ (package

+ (name "ghc-semigroups-bootstrap")

+ (version "0.20")

+ (source (origin

+ (method url-fetch)

+ (uri (hackage-uri "semigroups" version))

+ (sha256

+ (base32

+ "1qbk6scp1rzb69dy8mz26p6az5vi16g2lzwmwnfshh3br4rjwbch"))))

+ (build-system haskell-build-system)

+ (properties '((upstream-name . "semigroups")))

+ (arguments (list #:haskell ghc-bootstrap-for-9.6))

+ (inputs

+ (list ghc-nats-bootstrap-for-9.6

+ ghc-tagged-bootstrap-for-9.6

+ ghc-unordered-containers-bootstrap-for-9.6

+ ghc-hashable-bootstrap-for-9.6))

+ (home-page "http://github.com/ekmett/semigroups/")

+ (synopsis "Semigroup operations for Haskell")

+ (description

+ "This package provides semigroups for Haskell. In

+mathematics, a semigroup is an algebraic structure consisting of a set

+together with an associative binary operation. A semigroup generalizes a

+monoid in that there might not exist an identity element. It

+also (originally) generalized a group (a monoid with all inverses) to a type

+where every element did not have to have an inverse, thus the name

+semigroup.")

+ (license license:bsd-3)))

+

+++ b/gnu/packages/haskell.scm

+(define ghc-base16-bytestring-bootstrap-for-9.6

+ (package

+ (name "ghc-base16-bytestring-bootstrap")

+ (version "1.0.2.0")

+ (source (origin

+ (method url-fetch)

+ (uri (hackage-uri "base16-bytestring" version))

+ (sha256

+ (base32

+ "1167f9jaivnabn6kg2gc421ac9njb67fr4v0adbj3qph7qa92nhx"))))

+ (build-system haskell-build-system)

+ (arguments (list #:tests? #f

+ #:haskell ghc-bootstrap-for-9.6))

+ (properties '((upstream-name . "base16-bytestring")))

+ (home-page "http://github.com/haskell/base16-bytestring")

+ (synopsis "Fast base16 (hex) encoding and decoding for ByteStrings")

+ (description

+ "This package provides a Haskell library for working with base16-encoded

+data quickly and efficiently, using the ByteString type.")

+ (license license:bsd-3)))

+

+++ b/gnu/packages/haskell.scm

+(define ghc-cryptohash-sha256-bootstrap-for-9.6

+ (package

+ (name "ghc-cryptohash-sha256-bootstrap")

+ (version "0.11.102.1")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hackage-uri "cryptohash-sha256" version))

+ (sha256

+ (base32

+ "1xkb7iqplbw4fy1122p79xf1zcb7k44rl0wmfj1q06l7cdqxr9vk"))))

+ (build-system haskell-build-system)

+ (properties '((upstream-name . "cryptohash-sha256")))

+ (arguments

+ `(#:cabal-revision

+ ("1" "1hyzqv30rpj920ddnr0zypyjjlh52vyp2d140pn2byayj820rkgs")

+ #:haskell ,ghc-bootstrap-for-9.6

+ #:tests? #f))

+ (home-page "https://github.com/hvr/cryptohash-sha1")

+ (synopsis "SHA-256 implementation for Haskell")

+ (description "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.

+

+The implementation is made in C with a haskell FFI wrapper that hides

+the C implementation.")

+ (license license:bsd-3)))

+

+++ b/gnu/packages/haskell.scm

+(define ghc-unordered-containers-bootstrap-for-9.6

+ (package

+ (name "ghc-unordered-containers-bootstrap")

+ (version "0.2.19.1")

+ (source (origin

+ (method url-fetch)

+ (uri (hackage-uri "unordered-containers" version))

+ (sha256

+ (base32

+ "1li8s6qw8mgv6a7011y7hg0cn2nllv2g9sr9c1xb48nmw32vw9qv"))))

+ (build-system haskell-build-system)

+ (properties '((upstream-name . "unordered-containers")))

+ (inputs (list ghc-hashable-bootstrap-for-9.6))

+ (arguments

+ `(#:cabal-revision ("3"

+ "1p9a2mvfbfz2d4cyr16b03bxvb6c4yj7k1ch601xwq1rkr1cla0w")

+ #:haskell ,ghc-bootstrap-for-9.6

+ #:tests? #f))

+ (home-page

+ "https://github.com/haskell-unordered-containers/unordered-containers")

+ (synopsis "Efficient hashing-based container types")

+ (description

+ "Efficient hashing-based container types. The containers have been

+optimized for performance critical use, both in terms of large data quantities

+and high speed.")

+ (license license:bsd-3)))

+

+++ b/gnu/packages/haskell.scm

+(define ghc-filepattern-bootstrap-for-9.6

+ (package

+ (name "ghc-filepattern-bootstrap")

+ (version "0.1.3")

+ (source (origin

+ (method url-fetch)

+ (uri (hackage-uri "filepattern" version))

+ (sha256

+ (base32

+ "0dlnwnwhsfdkwm69z66wj5d2x9n3la55glq4fsn5rxm2kr1msi6c"))))

+ (build-system haskell-build-system)

+ (properties '((upstream-name . "filepattern")))

+ (arguments (list #:tests? #f

+ #:haskell ghc-bootstrap-for-9.6))

+ (inputs (list ghc-extra-bootstrap-for-9.6))

+ (home-page "https://github.com/ndmitchell/filepattern#readme")

+ (synopsis "File path glob-like matching")

+ (description

+ "This package provides Haskell library for matching files using patterns

+such as @code{\\\"src\\/**\\/*.png\\\"} for all @@file{.png} files recursively

+under the @@file{src} directory.

+

+Some of its features include:

+

+@itemize

+@item All matching is O(n).

+

+@item Most functions pre-compute some information given only one argument.

+

+@item Uses @code{match} and @code{substitute} to extract suitable strings from

+the @code{*} and @code{**} matches, and substitutes them back into other

+patterns.

+

+@item Uses @code{step} and @code{matchMany} to perform bulk matching of many

+patterns against many paths simultaneously.

+

+@item Uses @code{System.FilePattern.Directory} to perform optimised directory

+traverals using patterns.

+@end itemize")

+ (license license:bsd-3)))

+

+++ b/gnu/packages/haskell.scm

+(define ghc-shake-bootstrap-for-9.6

+ (package

+ (name "ghc-shake-bootstrap")

+ (version "0.19.7")

+ (source

+ (origin

+ (method url-fetch)

+ (uri (hackage-uri "shake" version))

+ (sha256

+ (base32 "1lcr6q53qwm308bny6gfawcjhxsmalqi3dnwckam02zp2apmcaim"))))

+ (build-system haskell-build-system)

+ (properties '((upstream-name . "shake")))

+ (inputs (list bash-minimal

+ ghc-extra-bootstrap-for-9.6

+ ghc-filepattern-bootstrap-for-9.6

+ ghc-hashable-bootstrap-for-9.6

+ ghc-heaps-bootstrap-for-9.6

+ ghc-js-dgtable-bootstrap-for-9.6

+ ghc-js-flot-bootstrap-for-9.6

+ ghc-js-jquery-bootstrap-for-9.6

+ ghc-primitive-bootstrap-for-9.6

+ ghc-random-bootstrap-for-9.6

+ ghc-unordered-containers-bootstrap-for-9.6

+ ghc-utf8-string-bootstrap-for-9.6

+ ghc-semigroups-bootstrap-for-9.6))

+ (arguments

+ (list #:cabal-revision '("1"

+ "1hz57kw5pp5cpbicbi7x8sz8c6qy58dzyiljz9b9f2r1rr683d9w")

+ #:tests? #f

+ #:haskell ghc-bootstrap-for-9.6

+ #:phases

+ #~(modify-phases %standard-phases

+ (add-after 'patch-source-shebangs 'patch-/bin/sh

+ (lambda _

+ (for-each

+ (lambda (file)

+ (substitute*

+ file

+ (("/bin/sh")

+ #$(file-append (this-package-input "bash-minimal")

+ "/bin/sh"))))

+ '("src/Development/Shake/Command.hs")))))))

+ (home-page "https://shakebuild.com")

+ (synopsis

+ "Build system library, like Make, but more accurate dependencies.")

+ (description

+ "Shake is a Haskell library for writing build systems - designed as a

+replacement for @@make@@. To use Shake the user writes a Haskell program that

+imports \"Development.Shake\", defines some build rules, and calls the

+Development.Shake.@code{shakeArgs} function. However, as build systems get more

+complex, Shake is able to take advantage of the excellent abstraction facilities

+offered by Haskell and easily support much larger projects. Shake also provides more

+accurate dependency tracking, including seamless support for generated files, and

+dependencies on system information (e.g. compiler version).")

+ (license license:bsd-3)))

+

+++ b/gnu/packages/haskell.scm

+(define hadrian-for-ghc-9.6

+ (package

+ (name "hadrian")

+ (version "9.6.4")

+ (source (origin

+ (method url-fetch)

+ (uri (string-append "https://www.haskell.org/ghc/dist/" version

+ "/ghc-" version "-src.tar.xz"))

+ (sha256

+ (base32

+ "1h6lpx8kd4xycjwb8iv2rgnz23kwq5b0qp4bhvczsx3in2w2bgqh"))))

+ (build-system haskell-build-system)

+ (inputs

+ (list ghc-base16-bytestring-bootstrap-for-9.6

+ ghc-cryptohash-sha256-bootstrap-for-9.6

+ ghc-extra-bootstrap-for-9.6

+ ghc-shake-bootstrap-for-9.6

+ ghc-unordered-containers-bootstrap-for-9.6

+ bash-minimal))

+ (arguments

+ (list #:configure-flags ''("--flags=-selftest")

+ #:tests? #f

+ #:haskell ghc-bootstrap-for-9.6

+ #:phases

+ #~(modify-phases %standard-phases

+ (add-after 'unpack 'cd-to-hadrian

+ (lambda _

+ (chdir "hadrian")))

+ (add-after 'cd-to-hadrian 'fix-shell-wrappers

+ (lambda _

+ (substitute*

+ "src/Rules/Test.hs"

+ (("\"#!/bin/sh\"")

+ (format #f "\"#!~a/bin/sh\"" #$(this-package-input "bash-minimal")))))))))

+ (home-page "https://gitlab.haskell.org/ghc/ghc/-/tree/master/hadrian")

+ (synopsis "Build system for the Glasgow Haskell Compiler (@code{ghc})")

+ (description "Hadrian is the build system for the Glasgow Haskell Compiler.

+It is based on the Shake library and replaces @{make} in building GHC")

+ (license license:expat)))

+

+++ b/gnu/packages/haskell.scm

+ #:use-module (ice-9 regex)

+ #:use-module (srfi srfi-26))

+(define-public ghc-9.6

+ (let ((base ghc-9.4))

+ (package

+ (inherit base)

+ (name "ghc-next")

+ (version "9.6.4")

+ (source (origin

+ (inherit (package-source base))

+ (uri (string-append "https://www.haskell.org/ghc/dist/" version

+ "/ghc-" version "-src.tar.xz"))

+ (sha256

+ (base32

+ "1h6lpx8kd4xycjwb8iv2rgnz23kwq5b0qp4bhvczsx3in2w2bgqh"))))

+ (arguments

+ (substitute-keyword-arguments (package-arguments base)

+ ((#:make-flags flags ''())

+ #~(list "-V" "--docs=no-sphinx"))

+ ((#:phases phases '%standard-phases)

+ #~(let* ((run-hadrian (lambda args

+ (apply invoke "hadrian" args))))

+ (modify-phases #$phases

+ (delete 'fix-shell-wrappers)

+ ;; https://gitlab.haskell.org/ghc/ghc/-/issues/22557

+ (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)))))

+ (replace 'build

+ (lambda* (#:key (parallel-build? #f) (make-flags '())

+ #:allow-other-keys)

+ (apply run-hadrian

+ `("binary-dist-dir"

+ ,@(if parallel-build?

+ `(,(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 run-hadrian

+ `(,@(if parallel-tests?

+ `(,(string-append "-j" (number->string (parallel-job-count))))

+ '())

+ ,@make-flags

+ "test"

+ "--skip-perf"))

+ (format #t "test suite not run~%"))))

+ (replace 'install

+ (lambda* (#:key (make-flags '()) #:allow-other-keys)

+ (apply run-hadrian

+ `("install"

+ ,@make-flags

+ ,(string-append "--prefix=" #$output)))))

+ (add-after 'install 'replace-$pkgroot

+ (lambda _

+ (substitute*

+ (find-files

+ (string-append #$output "/lib/ghc-"

+ #$(package-version this-package)

+ "/lib/package.conf.d/")

+ "^.*\\.conf$")

+ (("\\$\\{pkgroot\\}/")

+ (string-append #$output "/lib/ghc-"

+ #$(package-version this-package)

+ "/lib/"))))))))))

+ (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)

+

+ ("hadrian" ,hadrian-for-ghc-9.6)

+ ("ghc-bootstrap" ,ghc-bootstrap-for-9.6)

+ ("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

+ "0wwd6d68aia2rmlpki30azz0raf98is472cqljhbzzdzpqpjh4vf"))))))

+ (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)))))))

+

+++ b/gnu/packages/haskell.scm

+ (name "ghc")

+ (name "ghc")

+;; 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.6)

+