Skip to content

Commit de8cb1f

Browse files
committed
Avoid creating IsFileOfInterest keys for non workspace files
1 parent 553a2e5 commit de8cb1f

File tree

1 file changed

+2
-1
lines changed

1 file changed

+2
-1
lines changed

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

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -129,7 +129,8 @@ getModificationTimeImpl vfs isWatched missingFileDiags file = do
129129
mbVirtual <- liftIO $ getVirtualFile vfs $ filePathToUri' file
130130
-- we use 'getVirtualFile' to discriminate FOIs so make that
131131
-- dependency explicit by using the IsFileOfInterest rule
132-
_ <- use_ IsFileOfInterest file
132+
isWF <- isWorkspaceFile file
133+
when isWF $ void $ use_ IsFileOfInterest file
133134
case mbVirtual of
134135
Just (virtualFileVersion -> ver) -> do
135136
alwaysRerun

0 commit comments

Comments
 (0)