X-Git-Url: https://git.lukelau.me/?a=blobdiff_plain;f=src%2FLanguage%2FHaskell%2FLSP%2FTest%2FMessages.hs;h=f41a77b4da77466dfba087ba88dd72954b176818;hb=b9132def667957ac138162b5d1cce59f4c013367;hp=16813e2ce0c6c144262cd991c09de0516e712acb;hpb=23447141213d07c7d290574f5fd6e8c58b346c8f;p=lsp-test.git

diff --git a/src/Language/Haskell/LSP/Test/Messages.hs b/src/Language/Haskell/LSP/Test/Messages.hs
index 16813e2..f41a77b 100644
--- a/src/Language/Haskell/LSP/Test/Messages.hs
+++ b/src/Language/Haskell/LSP/Test/Messages.hs
@@ -124,6 +124,7 @@ handleClientMessage request response notification msg = case msg of
  (ReqDocumentFormatting       m) -> request m
  (ReqDocumentRangeFormatting  m) -> request m
  (ReqDocumentOnTypeFormatting m) -> request m
+ (ReqPrepareRename            m) -> request m
  (ReqRename                   m) -> request m
  (ReqExecuteCommand           m) -> request m
  (ReqDocumentLink             m) -> request m