X-Git-Url: http://git.lukelau.me/?a=blobdiff_plain;f=src%2FLanguage%2FHaskell%2FLSP%2FTest%2FMessages.hs;h=1a3805f07ff3d5cecc28adf08f345e8e8be66cb6;hb=e7a888628391e9b245c61e1a5a01c4965ab0396f;hp=258f91b2dfdc63525834eebed99ac82fdb865f64;hpb=8ed6e0d9c9f0196e7058a0bd82b91d152e19ae42;p=lsp-test.git

diff --git a/src/Language/Haskell/LSP/Test/Messages.hs b/src/Language/Haskell/LSP/Test/Messages.hs
index 258f91b..1a3805f 100644
--- a/src/Language/Haskell/LSP/Test/Messages.hs
+++ b/src/Language/Haskell/LSP/Test/Messages.hs
@@ -93,7 +93,6 @@ handleServerMessage request response notification msg = case msg of
     (NotProgressStart            m) -> notification m
     (NotProgressReport           m) -> notification m
     (NotProgressDone             m) -> notification m
-    (NotProgressCancel           m) -> notification m
     (NotTelemetry                m) -> notification m
     (NotCancelRequestFromServer  m) -> notification m
 
@@ -145,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