@@ -59,6 +59,7 @@ handleRequest loggerH compilerH makeResponse makeErrorResponse = \case
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
64 Logger.logWarning loggerH ("Method not found" <> T.pack (show req))
65 Logger.logWarning loggerH ("Method not found" <> T.pack (show req))