Skip to content

Commit 0111207

Browse files
committed
[chore] adjust to use ur within setFilecacheHook
1 parent 76bcac1 commit 0111207

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

ghcide/src/Development/IDE/Core/Rules.hs

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -162,7 +162,7 @@ import Ide.Types (DynFlagsModificat
162162
import qualified Language.LSP.Protocol.Lens as JL
163163
import Language.LSP.Protocol.Message (SMethod (SMethod_CustomMethod, SMethod_WindowShowMessage))
164164
import Language.LSP.Protocol.Types (MessageType (MessageType_Info),
165-
ShowMessageParams (ShowMessageParams), normalizedFilePathToUri, uriToNormalizedFilePath)
165+
ShowMessageParams (ShowMessageParams), normalizedFilePathToUri, uriToNormalizedFilePath, filePathToUri)
166166
import Language.LSP.Server (LspT)
167167
import qualified Language.LSP.Server as LSP
168168
import Language.LSP.VFS
@@ -990,7 +990,7 @@ setFileCacheHook :: HscEnv -> Action HscEnv
990990
setFileCacheHook 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

0 commit comments

Comments
 (0)