File tree Expand file tree Collapse file tree 1 file changed +2
-2
lines changed
ghcide/src/Development/IDE/Core Expand file tree Collapse file tree 1 file changed +2
-2
lines changed Original file line number Diff line number Diff line change @@ -162,7 +162,7 @@ import Ide.Types (DynFlagsModificat
162162import qualified Language.LSP.Protocol.Lens as JL
163163import Language.LSP.Protocol.Message (SMethod (SMethod_CustomMethod , SMethod_WindowShowMessage ))
164164import Language.LSP.Protocol.Types (MessageType (MessageType_Info ),
165- ShowMessageParams (ShowMessageParams ), normalizedFilePathToUri , uriToNormalizedFilePath )
165+ ShowMessageParams (ShowMessageParams ), normalizedFilePathToUri , uriToNormalizedFilePath , filePathToUri )
166166import Language.LSP.Server (LspT )
167167import qualified Language.LSP.Server as LSP
168168import Language.LSP.VFS
@@ -990,7 +990,7 @@ setFileCacheHook :: HscEnv -> Action HscEnv
990990setFileCacheHook old_hsc_env = do
991991#if MIN_VERSION_ghc(9,11,0)
992992 unlift <- askUnliftIO
993- return $ old_hsc_env { hsc_FC = (hsc_FC old_hsc_env) { lookupFileCache = unliftIO unlift . use_ GetFileHash . toNormalizedFilePath' } }
993+ return $ old_hsc_env { hsc_FC = (hsc_FC old_hsc_env) { lookupFileCache = unliftIO unlift . use_ GetFileHash . toNormalizedUri . filePathToUri } }
994994#else
995995 return old_hsc_env
996996#endif
You can’t perform that action at this time.
0 commit comments