When updateState processes a ReqApplyWorkspaceEdit and sends out
didChange notifications, send the first edit from a new version, i.e.
current version + 1, not the current version as was previously.
+++ /dev/null
-import Distribution.Simple
-main = defaultMain
packages: .
flags: +DummyServer
test-show-details: direct
packages: .
flags: +DummyServer
test-show-details: direct
synopsis: Functional test framework for LSP servers.
description:
A test framework for writing tests against
synopsis: Functional test framework for LSP servers.
description:
A test framework for writing tests against
m <- vfsMap . vfs <$> get
let curVer = fromMaybe 0 $
_lsp_version <$> m Map.!? (toNormalizedUri uri)
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
textDocumentEdits uri edits = do
vers <- textDocumentVersions uri
+++ /dev/null
-resolver: lts-15.11
-packages:
- - .
-extra-deps:
- - haskell-lsp-0.22.0.0@sha256:636af17378c10db3c784df697f1a0a450c694f1cf4a88acd0ed58be90c5295ec,5315
- - haskell-lsp-types-0.22.0.0@sha256:c0fcd9c89279d92e79fce8e928553fa184645d0a0286a6736dec773d447510e9,3027