cleanup

Author: soulomoon

lsp/src/Language/LSP/Server/Processing.hs

@@ -59,7 +59,6 @@ import Language.LSP.Protocol.Utils.SMethodMap qualified as SMethodMap
 import Language.LSP.Server.Core
 import Language.LSP.VFS as VFS
 import Prettyprinter
-import UnliftIO (race)
 
 data LspProcessingLog
   = VfsLog VfsLog
@@ -69,19 +68,13 @@ data LspProcessingLog
   | ProgressCancel ProgressToken
   | forall m. MessageDuringShutdown (SClientMethod m)
   | ShuttingDown
-  | ShuttingDownSenderTimeout !Int
   | Exiting
 
 deriving instance Show LspProcessingLog
 
 instance Pretty LspProcessingLog where
   pretty (VfsLog l) = pretty l
   pretty (LspCore l) = pretty l
-  pretty (ShuttingDownSenderTimeout sec) =
-    vsep
-      [ "LSP: sender did not shut down within" <+> pretty sec <+> "seconds"
-      , "This likely indicates a broken pipe, and the server should exit now"
-      ]
   pretty (MessageProcessingError bs err) =
     vsep
       [ "LSP: incoming message parse error:"