X-Git-Url: http://git.lukelau.me/?p=lsp-test.git;a=blobdiff_plain;f=src%2FLanguage%2FHaskell%2FLSP%2FTest%2FMessages.hs;h=258f91b2dfdc63525834eebed99ac82fdb865f64;hp=02fa7fc41dd2f6e7dec83cfd3a9cfc59d3a0694a;hb=5822dd40ae06ed413727cfeb3d1fd24b285db9e5;hpb=9f492a21915a6be13ff23b47a0401754556ce472

diff --git a/src/Language/Haskell/LSP/Test/Messages.hs b/src/Language/Haskell/LSP/Test/Messages.hs
index 02fa7fc..258f91b 100644
--- a/src/Language/Haskell/LSP/Test/Messages.hs
+++ b/src/Language/Haskell/LSP/Test/Messages.hs
@@ -90,6 +90,10 @@ 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
+    (NotProgressCancel           m) -> notification m
     (NotTelemetry                m) -> notification m
     (NotCancelRequestFromServer  m) -> notification m