Additional fixes
This commit is contained in:
parent
f2a3f0b579
commit
28714af8cc
@ -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
|
||||||
}
|
}
|
||||||
|
Loading…
x
Reference in New Issue
Block a user