Update haskell-lsp bounds

[lsp-test.git] / src / Language / Haskell / LSP / Test / Messages.hs

diff --git a/src/Language/Haskell/LSP/Test/Messages.hs b/src/Language/Haskell/LSP/Test/Messages.hs
index 02fa7fc41dd2f6e7dec83cfd3a9cfc59d3a0694a..1a3805f07ff3d5cecc28adf08f345e8e8be66cb6 100644 (file)
--- a/src/Language/Haskell/LSP/Test/Messages.hs
+++ b/src/Language/Haskell/LSP/Test/Messages.hs
@@ -90,6 +90,9 @@ handleServerMessage request response notification msg = case msg of
     (NotPublishDiagnostics       m) -> notification m
     (NotLogMessage               m) -> notification m
     (NotShowMessage              m) -> notification m
+    (NotProgressStart            m) -> notification m
+    (NotProgressReport           m) -> notification m
+    (NotProgressDone             m) -> notification m
     (NotTelemetry                m) -> notification m
     (NotCancelRequestFromServer  m) -> notification m
 
@@ -141,4 +144,5 @@ handleClientMessage request response notification msg = case msg of
  (NotDidSaveTextDocument      m) -> notification m
  (NotDidChangeWatchedFiles    m) -> notification m
  (NotDidChangeWorkspaceFolders m) -> notification m
+ (NotProgressCancel           m) -> notification m
  (UnknownFromClientMessage    m) -> error $ "Unknown message sent from client: " ++ show m