+ when (".register.tmp" `isSuffixOf` fp) $ do
+ tmpDir <- getTemporaryDirectory
+ reqId <- readMVar lfvar >>= getNextReqId
+ send $ ReqRegisterCapability $ fmServerRegisterCapabilityRequest reqId $
+ RegistrationParams $ List $
+ [ Registration "2" WorkspaceDidChangeWatchedFiles $ Just $ toJSON $
+ DidChangeWatchedFilesRegistrationOptions $ List
+ [ FileSystemWatcher (tmpDir </> "*.watch") (Just (WatchKind True True True)) ]
+ ]