Formatting Main.hs

This commit is contained in:
Kirill Andreev 2020-06-02 16:27:19 +04:00
parent 9856476ebf
commit 95707100c2
No known key found for this signature in database
GPG Key ID: CF7DA79DE4785A47

View File

@ -68,13 +68,14 @@ syncOptions = J.TextDocumentSyncOptions
} }
lspOptions :: Core.Options lspOptions :: Core.Options
lspOptions = def { Core.textDocumentSync = Just syncOptions lspOptions = def
{ Core.textDocumentSync = Just syncOptions
, Core.executeCommandCommands = Just ["lsp-hello-command"] , Core.executeCommandCommands = Just ["lsp-hello-command"]
} }
lspHandlers :: TChan FromClientMessage -> Core.Handlers lspHandlers :: TChan FromClientMessage -> Core.Handlers
lspHandlers rin lspHandlers rin = def
= def { Core.initializedHandler = Just $ passHandler rin NotInitialized { Core.initializedHandler = Just $ passHandler rin NotInitialized
, Core.renameHandler = Just $ passHandler rin ReqRename , Core.renameHandler = Just $ passHandler rin ReqRename
, Core.hoverHandler = Just $ passHandler rin ReqHover , Core.hoverHandler = Just $ passHandler rin ReqHover
, Core.didOpenTextDocumentNotificationHandler = Just $ passHandler rin NotDidOpenTextDocument , Core.didOpenTextDocumentNotificationHandler = Just $ passHandler rin NotDidOpenTextDocument