From ec6b502d36b92c4d670c3d4b8403097c7cc82896 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jan=20Hr=C4=8Dek?= <honza.hrk@gmail.com>
Date: Sun, 14 Apr 2024 08:35:28 +0200
Subject: [PATCH] exceptions needed with ghc 9.6+

---
 lsp-types/lsp-types.cabal                 | 3 +++
 lsp/src/Language/LSP/Server/Processing.hs | 1 +
 2 files changed, 4 insertions(+)

diff --git a/lsp-types/lsp-types.cabal b/lsp-types/lsp-types.cabal
index 3b6fd89e..267ae671 100644
--- a/lsp-types/lsp-types.cabal
+++ b/lsp-types/lsp-types.cabal
@@ -90,6 +90,9 @@ library
   else
     build-depends: filepath >=1.4 && < 1.6
 
+  if impl(ghc >= 9.6)
+    build-depends: exceptions ^>=0.10
+
   ghc-options:
     -Wall -Wmissing-deriving-strategies
     -Wno-unticked-promoted-constructors
diff --git a/lsp/src/Language/LSP/Server/Processing.hs b/lsp/src/Language/LSP/Server/Processing.hs
index ce34d9e3..6329337d 100644
--- a/lsp/src/Language/LSP/Server/Processing.hs
+++ b/lsp/src/Language/LSP/Server/Processing.hs
@@ -46,6 +46,7 @@ import Data.IxMap
 import Data.List
 import Data.List.NonEmpty (NonEmpty (..))
 import Data.Map.Strict qualified as Map
+import Data.Monoid
 import Data.String (fromString)
 import Data.Text qualified as T
 import Data.Text.Lazy.Encoding qualified as TL