@@ -76,7 +76,8 @@ makeVFSHandle = do
7676 modifyVar_ vfsVar $ \(nextVersion, vfs) -> pure $ (nextVersion + 1, ) $
7777 case content of
7878 Nothing -> Map.delete uri vfs
79− Just content -> Map.insert uri (VirtualFile nextVersion (Rope.fromText content)) vfs
79+ -- The second version number is only used in persistFileVFS which we do not use so we set it to 0.
80+ Just content -> Map.insert uri (VirtualFile nextVersion 0 (Rope.fromText content)) vfs
8081 }
8182
8283makeLSPVFSHandle :: LspFuncs c -> VFSHandle
@@ -139,7 +140,7 @@ getModificationTimeRule vfs =
139140 alwaysRerun
140141 mbVirtual <- liftIO $ getVirtualFile vfs $ filePathToUri' file
141142 case mbVirtual of
142− Just (VirtualFile ver _) -> pure (Just $ BS.pack $ show ver, ([], Just $ VFSVersion ver))
143+ Just (virtualFileVersion -> ver) -> pure (Just $ BS.pack $ show ver, ([], Just $ VFSVersion ver))
143144 Nothing -> liftIO $ fmap wrap (getModTime file')
144145 `catch` \(e :: IOException) -> do
145146 let err | isDoesNotExistError e = "File does not exist: " ++ file'