source-repository-package
type: git
- location: https://github.com/banacorn/lsp.git
- tag: 0556d22fc66f24bb526f671666183a86b485837e
+ location: https://github.com/alanz/lsp.git
+ tag: 96aad3d7cc64fe9e4e29c6bccb19a3ad5ff8926d
subdir: lsp-types
source-repository-package
type: git
- location: https://github.com/banacorn/lsp.git
- tag: 0556d22fc66f24bb526f671666183a86b485837e
\ No newline at end of file
+ location: https://github.com/alanz/lsp.git
+ tag: 96aad3d7cc64fe9e4e29c6bccb19a3ad5ff8926d
[ notificationHandler SInitialized $
\_noti ->
sendNotification SWindowLogMessage $
- LogMessageParams MtLog "initialized",
- requestHandler STextDocumentHover $
+ LogMessageParams MtLog "initialized"
+ , requestHandler STextDocumentHover $
\_req responder ->
responder $
Right $
Just $
- Hover (HoverContents (MarkupContent MkPlainText "hello")) Nothing,
- requestHandler STextDocumentDocumentSymbol $
+ Hover (HoverContents (MarkupContent MkPlainText "hello")) Nothing
+ , requestHandler STextDocumentDocumentSymbol $
\_req responder ->
responder $
Right $
(mkRange 0 0 3 6)
(mkRange 0 0 3 6)
Nothing
- ],
- notificationHandler STextDocumentDidOpen $
+ ]
+ , notificationHandler STextDocumentDidOpen $
\noti -> do
let NotificationMessage _ _ (DidOpenTextDocumentParams doc) = noti
TextDocumentItem uri _ _ _ = doc
when (".unregister.abs" `isSuffixOf` fp) $
do
Just token <- runInIO $ asks absRegToken >>= tryReadMVar
- runInIO $ unregisterCapability token,
- requestHandler SWorkspaceExecuteCommand $ \req resp -> do
+ runInIO $ unregisterCapability token
+ , requestHandler SWorkspaceExecuteCommand $ \req resp -> do
let RequestMessage _ _ _ (ExecuteCommandParams Nothing "doAnEdit" (Just (List [val]))) = req
Success docUri = fromJSON val
edit = List [TextEdit (mkRange 0 0 0 5) "howdy"]
ApplyWorkspaceEditParams (Just "Howdy edit") $
WorkspaceEdit (Just (HM.singleton docUri edit)) Nothing
resp $ Right Null
- void $ sendRequest SWorkspaceApplyEdit params (const (pure ())),
- requestHandler STextDocumentCodeAction $ \req resp -> do
+ void $ sendRequest SWorkspaceApplyEdit params (const (pure ()))
+ , requestHandler STextDocumentCodeAction $ \req resp -> do
let RequestMessage _ _ _ params = req
CodeActionParams _ _ _ _ cactx = params
CodeActionContext diags _ = cactx
(Just (List [d]))
Nothing
Nothing
+ Nothing
(Just (Command "" "deleteThis" Nothing))
- resp $ Right $ InR <$> codeActions,
- requestHandler STextDocumentCompletion $ \_req resp -> do
+ resp $ Right $ InR <$> codeActions
+ , requestHandler STextDocumentCompletion $ \_req resp -> do
let res = CompletionList True (List [item])
item =
CompletionItem