From d74dd380d1bd31cd410c314fb041aa21ee34ba5e Mon Sep 17 00:00:00 2001
From: Aaron Bieber <aaron@bolddaemon.com>
Date: Sat, 13 May 2023 06:11:00 -0600
Subject: [PATCH] overlays: add overlay for elm to remove colors

---
 overlays/default.nix       |  8 ++++++++
 overlays/elm-no-color.diff | 12 ++++++++++++
 2 files changed, 20 insertions(+)
 create mode 100644 overlays/elm-no-color.diff

diff --git a/overlays/default.nix b/overlays/default.nix
index badf84b..dab83de 100644
--- a/overlays/default.nix
+++ b/overlays/default.nix
@@ -5,6 +5,14 @@ let
 
 in {
   nixpkgs.overlays = if isUnstable then [
+    (_: super: {
+      elmPackages = super.elmPackages // {
+        elm =
+          super.elmPackages.elm.override {
+            patches = [ ./elm-no-color.diff ];
+          };
+      };
+    })
     (import ./jetbrains.nix)
     (import ./tidal-hifi.nix { inherit lib; })
     openssh
diff --git a/overlays/elm-no-color.diff b/overlays/elm-no-color.diff
new file mode 100644
index 0000000..1133f08
--- /dev/null
+++ b/overlays/elm-no-color.diff
@@ -0,0 +1,12 @@
+diff --git a/compiler/src/Reporting/Doc.hs b/compiler/src/Reporting/Doc.hs
+index 26c15517..95dbae4e 100644
+--- a/compiler/src/Reporting/Doc.hs
++++ b/compiler/src/Reporting/Doc.hs
+@@ -404,7 +404,6 @@ encodeChunks (Style bold underline color) revChunks =
+       E.object
+         [ "bold" ==> E.bool bold
+         , "underline" ==> E.bool underline
+-        , "color" ==> maybe E.null encodeColor color
+         , "string" ==> E.chars chars
+         ]
+