From 80f4e593dfc9bbf0971bb4ac556c82a5e664b3a6 Mon Sep 17 00:00:00 2001 From: Zubin Duggal Date: Tue, 9 Feb 2021 19:59:53 +0530 Subject: [PATCH] respond to progress create and apply edit --- src/Language/LSP/Test/Session.hs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/Language/LSP/Test/Session.hs b/src/Language/LSP/Test/Session.hs index 4e3b177..4b3ce84 100644 --- a/src/Language/LSP/Test/Session.hs +++ b/src/Language/LSP/Test/Session.hs @@ -309,6 +309,8 @@ documentChangeUri (InR (InR (InR x))) = x ^. uri updateState :: (MonadIO m, HasReader SessionContext m, HasState SessionState m) => FromServerMessage -> m () +updateState (FromServerMess SWindowWorkDoneProgressCreate req) = + sendMessage $ ResponseMessage "2.0" (Just $ req ^. LSP.id) (Right ()) updateState (FromServerMess SProgress req) = case req ^. params . value of Begin _ -> modify $ \s -> s { curProgressSessions = Set.insert (req ^. params . token) $ curProgressSessions s } @@ -360,6 +362,8 @@ updateState (FromServerMess SWorkspaceApplyEdit r) = do -- TODO: Don't do this when replaying a session forM_ mergedParams (sendMessage . NotificationMessage "2.0" STextDocumentDidChange) + sendMessage $ ResponseMessage "2.0" (Just $ r ^. LSP.id) (Right $ ApplyWorkspaceEditResponseBody True Nothing) + -- Update VFS to new document versions let sortedVersions = map (sortBy (compare `on` (^. textDocument . version))) groupedParams latestVersions = map ((^. textDocument) . last) sortedVersions -- 2.30.2