on master help sign in
Add CodeLens support to the fake LanguageServer (#1673)
18df605Neil Mitchell
src/Development/IDE/LSP/LanguageServer.hs+1
@@ -59,6 +59,7 @@ handleRequest loggerH compilerH makeResponse makeErrorResponse = \case
59
59
60 Definition params -> RspDefinition . makeResponse <$> LS.Definition.handle loggerH compilerH params
60 Definition params -> RspDefinition . makeResponse <$> LS.Definition.handle loggerH compilerH params
61 Hover params -> RspHover . makeResponse <$> LS.Hover.handle loggerH compilerH params
61 Hover params -> RspHover . makeResponse <$> LS.Hover.handle loggerH compilerH params
62+ CodeLens _params -> pure $ RspCodeLens $ makeResponse mempty
62
63
63 req -> do
64 req -> do
64 Logger.logWarning loggerH ("Method not found" <> T.pack (show req))
65 Logger.logWarning loggerH ("Method not found" <> T.pack (show req))