Additional fixes

This commit is contained in:
Kirill Andreev 2020-08-24 20:20:52 +04:00
parent f2a3f0b579
commit 28714af8cc
No known key found for this signature in database
GPG Key ID: CF7DA79DE4785A47

View File

@ -57,8 +57,8 @@ mainLoop = do
return Nothing return Nothing
} }
Core.setupLogger (Just "log.txt") [] L.INFO Core.setupLogger Nothing [] L.EMERGENCY
CTRL.run callbacks (lspHandlers chan) lspOptions (Just "log.txt") CTRL.run callbacks (lspHandlers chan) lspOptions Nothing
`catches` `catches`
[ Handler \(e :: SomeException) -> do [ Handler \(e :: SomeException) -> do
print e print e
@ -91,8 +91,8 @@ lspHandlers rin = def
, Core.didCloseTextDocumentNotificationHandler = Just $ passHandler rin NotDidCloseTextDocument , Core.didCloseTextDocumentNotificationHandler = Just $ passHandler rin NotDidCloseTextDocument
, Core.cancelNotificationHandler = Just $ passHandler rin NotCancelRequestFromClient , Core.cancelNotificationHandler = Just $ passHandler rin NotCancelRequestFromClient
, Core.responseHandler = Just $ responseHandlerCb rin , Core.responseHandler = Just $ responseHandlerCb rin
, Core.codeActionHandler = Just $ passHandler rin ReqCodeAction -- , Core.codeActionHandler = Just $ passHandler rin ReqCodeAction
, Core.executeCommandHandler = Just $ passHandler rin ReqExecuteCommand -- , Core.executeCommandHandler = Just $ passHandler rin ReqExecuteCommand
, Core.completionHandler = Just $ passHandler rin ReqCompletion , Core.completionHandler = Just $ passHandler rin ReqCompletion
, Core.completionResolveHandler = Just $ passHandler rin ReqCompletionItemResolve , Core.completionResolveHandler = Just $ passHandler rin ReqCompletionItemResolve
} }