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

Track changes to haskell-lsp

diff --combined src/Language/Haskell/LSP/Test.hs
index 4f9cff7cde9de6f2eea6ecc8f876deb3ab88fa37,151eef7f1687fa0a357058f00f92d425a962d437..1a3b2e2ad7098511fc9a27ce67480ac6f2adcd95
--- 1/src/Language/Haskell/LSP/Test.hs
--- 2/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)