fmServerPublishDiagnosticsNotification $ PublishDiagnosticsParams uri $ List [diag]
-- also act as a registerer for workspace/didChangeWatchedFiles
- when ("/register" `isSuffixOf` fp) $ do
+ when (".register" `isSuffixOf` fp) $ do
reqId <- readMVar lfvar >>= getNextReqId
send $ ReqRegisterCapability $ fmServerRegisterCapabilityRequest reqId $
RegistrationParams $ List $
DidChangeWatchedFilesRegistrationOptions $ List
[ FileSystemWatcher "*.watch" (Just (WatchKind True True True)) ]
]
- when ("/register.abs" `isSuffixOf` fp) $ do
+ when (".register.abs" `isSuffixOf` fp) $ do
curDir <- getCurrentDirectory
reqId <- readMVar lfvar >>= getNextReqId
send $ ReqRegisterCapability $ fmServerRegisterCapabilityRequest reqId $
]
-- also act as an unregisterer for workspace/didChangeWatchedFiles
- when ("/unregister" `isSuffixOf` fp) $ do
+ when (".unregister" `isSuffixOf` fp) $ do
reqId <- readMVar lfvar >>= getNextReqId
send $ ReqUnregisterCapability $ fmServerUnregisterCapabilityRequest reqId $
UnregistrationParams $ List [ Unregistration "0" "workspace/didChangeWatchedFiles" ]
- when ("/unregister.abs" `isSuffixOf` fp) $ do
+ when (".unregister.abs" `isSuffixOf` fp) $ do
reqId <- readMVar lfvar >>= getNextReqId
send $ ReqUnregisterCapability $ fmServerUnregisterCapabilityRequest reqId $
UnregistrationParams $ List [ Unregistration "1" "workspace/didChangeWatchedFiles" ]
send $ RspCodeAction $ makeResponseMessage req caresults
, didChangeWatchedFilesNotificationHandler = pure $ \_ ->
send $ NotLogMessage $ fmServerLogMessageNotification MtLog "got workspace/didChangeWatchedFiles"
+ , completionHandler = pure $ \req -> do
+ let res = CompletionList (CompletionListType False (List [item]))
+ item =
+ CompletionItem "foo" (Just CiConstant) (List []) Nothing
+ Nothing Nothing Nothing Nothing Nothing Nothing Nothing
+ Nothing Nothing Nothing Nothing Nothing
+ send $ RspCompletion $ makeResponseMessage req res
}
where send msg = readMVar lfvar >>= \lf -> (sendFunc lf) msg