it "keeps track" $ runSession serverExe fullCaps "test/data" $ do
loggingNotification -- initialized log message
- createDoc "register" "haskell" ""
+ createDoc ".register" "haskell" ""
message :: Session RegisterCapabilityRequest
doc <- createDoc "Foo.watch" "haskell" ""
]
-- now unregister it by sending a specific createDoc
- createDoc "unregister" "haskell" ""
+ createDoc ".unregister" "haskell" ""
message :: Session UnregisterCapabilityRequest
createDoc "Bar.watch" "haskell" ""
loggingNotification -- initialized log message
- createDoc "register.abs" "haskell" ""
+ createDoc ".register.abs" "haskell" ""
message :: Session RegisterCapabilityRequest
doc <- createDoc (curDir </> "Foo.watch") "haskell" ""
liftIO $ msg ^. params . LSP.message `shouldBe` "got workspace/didChangeWatchedFiles"
-- now unregister it by sending a specific createDoc
- createDoc "unregister.abs" "haskell" ""
+ createDoc ".unregister.abs" "haskell" ""
message :: Session UnregisterCapabilityRequest
createDoc (curDir </> "Bar.watch") "haskell" ""
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" ]