Start off on new version in didChanges from updateState

[lsp-test.git] / src / Language / Haskell / LSP / Test / Session.hs

diff --git a/src/Language/Haskell/LSP/Test/Session.hs b/src/Language/Haskell/LSP/Test/Session.hs
index 4b1793f28312986437bae1c8e4e8ff32c1cead5d..4b93e71bb5843c2f99fccf8f93bc5b2ade98dd4a 100644 (file)
--- a/src/Language/Haskell/LSP/Test/Session.hs
+++ b/src/Language/Haskell/LSP/Test/Session.hs
@@ -369,7 +369,7 @@ updateState (ReqApplyWorkspaceEdit r) = do
           m <- vfsMap . vfs <$> get
           let curVer = fromMaybe 0 $
                 _lsp_version <$> m Map.!? (toNormalizedUri uri)
-          pure $ map (VersionedTextDocumentIdentifier uri . Just) [curVer..]
+          pure $ map (VersionedTextDocumentIdentifier uri . Just) [curVer + 1..]
 
         textDocumentEdits uri edits = do
           vers <- textDocumentVersions uri