gnu: elm-sans-reactor: Fix build.

* gnu/packages/elm.scm (elm-sans-reactor)[source]: Add reference to patch
and sort patches.
* gnu/packages/patches/elm-bump-ansi-wl-pprint-dependency-fix-build.patch:
New file.
* gnu/local.mk (dist_patch_DATA): Add reference to it.

Fixes: guix/guix#10293
Signed-off-by: Andreas Enge <andreas@enge.fr>

3 files changed, 96 insertions, 2 deletions

diff --git a/gnu/local.mk b/gnu/local.mk
index 05439ca26ad..362f5ca500f 100644
--- a/gnu/local.mk
+++ b/gnu/local.mk
@@ -1248,6 +1248,7 @@ dist_patch_DATA =						\
   %D%/packages/patches/python-treelib-remove-python2-compat.patch       \
   %D%/packages/patches/elm-offline-package-registry.patch       \
   %D%/packages/patches/elm-reactor-static-files.patch           \
+  %D%/packages/patches/elm-bump-ansi-wl-pprint-dependency-fix-build.patch \
   %D%/packages/patches/emacs-deferred-fix-number-of-arguments.patch     \
   %D%/packages/patches/emacs-disable-jit-compilation.patch                      \
   %D%/packages/patches/emacs-doc-toc-shell-commands.patch       \
diff --git a/gnu/packages/elm.scm b/gnu/packages/elm.scm
index 50e48156d93..b97136c74ea 100644
--- a/gnu/packages/elm.scm
+++ b/gnu/packages/elm.scm
@@ -2,6 +2,7 @@
 ;;; Copyright © 2019 Robert Vollmert <rob@vllmrt.net>
 ;;; Copyright © 2022 Philip McGrath <philip@philipmcgrath.com>
 ;;; Copyright © 2022 jgart <jgart@dismail.de>
+;;; Copyright © 2026 Konstantin Suntsov <protvin@disroot.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -55,9 +56,10 @@
        (sha256
         (base32 "1rdg3xp3js9xadclk3cdypkscm5wahgsfmm4ldcw3xswzhw6ri8w"))
        (patches
-        (search-patches "elm-reactor-static-files.patch"
+        (search-patches "elm-bump-ansi-wl-pprint-dependency-fix-build.patch"
+                        "elm-ghc9.2.patch"
                         "elm-offline-package-registry.patch"
-                        "elm-ghc9.2.patch"))))
+                        "elm-reactor-static-files.patch"))))
     (build-system haskell-build-system)
     (arguments
      (list
diff --git a/gnu/packages/patches/elm-bump-ansi-wl-pprint-dependency-fix-build.patch b/gnu/packages/patches/elm-bump-ansi-wl-pprint-dependency-fix-build.patch
new file mode 100644
index 00000000000..857b0aa746c
--- /dev/null
+++ b/gnu/packages/patches/elm-bump-ansi-wl-pprint-dependency-fix-build.patch
@@ -0,0 +1,91 @@
+Adopting changes (rejected elm.cabal reapplied) from:
+https://sources.debian.org/data/main/e/elm-compiler/0.19.1-5/debian/patches/0002-bump-ansi-wl-pprint-dependency-fix-build.patch
+
+From: Hilko Bengen <bengen@debian.org>
+Date: Thu, 28 Nov 2024 01:24:16 +0000
+Subject: bump ansi-wl-pprint dependency, fix build
+
+ANSI support is still missing; until that is fixed, elm reactor won't
+output colored error messages.
+---
+ compiler/src/Reporting/Doc.hs | 21 +++++++++++++--------
+ elm.cabal                     |  4 +++-
+ 2 files changed, 16 insertions(+), 9 deletions(-)
+
+diff --git a/compiler/src/Reporting/Doc.hs b/compiler/src/Reporting/Doc.hs
+index 26c1551..99d1f49 100644
+--- a/compiler/src/Reporting/Doc.hs
++++ b/compiler/src/Reporting/Doc.hs
+@@ -48,10 +48,12 @@ import Prelude hiding (cycle)
+ import qualified Data.List as List
+ import Data.Monoid ((<>))
+ import qualified Data.Name as Name
++import qualified Data.Text as Text
+ import qualified System.Console.ANSI.Types as Ansi
+ import qualified System.Info as Info
+ import System.IO (Handle)
+ import qualified Text.PrettyPrint.ANSI.Leijen as P
++import qualified Prettyprinter as PP
+ 
+ import qualified Data.Index as Index
+ import qualified Elm.Package as Pkg
+@@ -309,26 +311,29 @@ data Color
+ toJsonHelp :: Style -> [String] -> P.SimpleDoc -> [E.Value]
+ toJsonHelp style revChunks simpleDoc =
+   case simpleDoc of
+-    P.SFail ->
++    PP.SFail ->
+       error $
+         "according to the main implementation, @SFail@ can not\
+         \ appear uncaught in a rendered @SimpleDoc@"
+ 
+-    P.SEmpty ->
++    PP.SEmpty ->
+       [ encodeChunks style revChunks ]
+ 
+-    P.SChar char rest ->
++    PP.SChar char rest ->
+       toJsonHelp style ([char] : revChunks) rest
+ 
+-    P.SText _ string rest ->
+-      toJsonHelp style (string : revChunks) rest
++    PP.SText _ text rest ->
++      toJsonHelp style (Text.unpack text : revChunks) rest
+ 
+-    P.SLine indent rest ->
++    PP.SLine indent rest ->
+       toJsonHelp style (replicate indent ' ' : "\n" : revChunks) rest
+ 
+-    P.SSGR sgrs rest ->
+-      encodeChunks style revChunks : toJsonHelp (sgrToStyle sgrs style) [] rest
++    -- FIXME need to figure out how to add ANSI SGR handling here
++    PP.SAnnPop rest ->
++      toJsonHelp style revChunks rest
+ 
++    PP.SAnnPush _ann rest ->
++      toJsonHelp style revChunks rest
+ 
+ sgrToStyle :: [Ansi.SGR] -> Style -> Style
+ sgrToStyle sgrs style@(Style bold underline color) =
+diff --git a/elm.cabal b/elm.cabal
+index 144fada..de91020 100644
+--- a/elm.cabal
++++ b/elm.cabal
+@@ -204,7 +204,8 @@
+ 
+     Build-depends:
+         ansi-terminal >= 0.8 && < 0.9,
+-        ansi-wl-pprint >= 0.6.8 && < 0.7,
++        ansi-wl-pprint >= 1,
++        prettyprinter,
+         base >=4.11 && <5,
+         binary >= 0.8 && < 0.9,
+         bytestring >= 0.9 && < 0.11,
+@@ -231,6 +232,7 @@
+         snap-core,
+         snap-server,
+         template-haskell,
++        text,
+         time >= 1.9.1,
+         unordered-containers,
+         utf8-string,