From: Luke Lau <luke_lau@icloud.com>
Date: Sun, 15 Dec 2019 19:14:31 +0000 (+0000)
Subject: Merge pull request #61 from mpickering/wip/persist-virtual-file
X-Git-Tag: 0.9.0.0~5
X-Git-Url: https://git.lukelau.me/?p=lsp-test.git;a=commitdiff_plain;h=a7b6c9f03f4878ded66c71ff30529b77110efcb4;hp=-c

Merge pull request #61 from mpickering/wip/persist-virtual-file

Track changes to haskell-lsp
---

a7b6c9f03f4878ded66c71ff30529b77110efcb4
diff --combined src/Language/Haskell/LSP/Test.hs
index 4f9cff7,151eef7..1a3b2e2
--- a/src/Language/Haskell/LSP/Test.hs
+++ b/src/Language/Haskell/LSP/Test.hs
@@@ -37,7 -37,6 +37,7 @@@ module Language.Haskell.LSP.Tes
    , module Language.Haskell.LSP.Test.Parsing
    -- * Utilities
    -- | Quick helper functions for common tasks.
 +
    -- ** Initialization
    , initializeResponse
    -- ** Documents
@@@ -453,7 -452,7 +453,7 @@@ getVersionedDoc (TextDocumentIdentifie
    fs <- vfsMap . vfs <$> get
    let ver =
          case fs Map.!? toNormalizedUri uri of
-           Just (VirtualFile v _) -> Just v
+           Just vf -> Just (virtualFileVersion vf)
            _ -> Nothing
    return (VersionedTextDocumentIdentifier uri ver)