File tree Expand file tree Collapse file tree 1 file changed +4
-1
lines changed
ghcide/session-loader/Development/IDE Expand file tree Collapse file tree 1 file changed +4
-1
lines changed Original file line number Diff line number Diff line change @@ -753,7 +753,8 @@ loadSessionWithOptions recorder SessionLoadingOptions{..} rootDir que = do
753
753
case HM. lookup (toNormalizedFilePath' file) v of
754
754
Just (_opts, old_di) -> do
755
755
deps_ok <- checkDependencyInfo old_di
756
- when (not deps_ok) $ do
756
+ if (not deps_ok)
757
+ then do
757
758
-- if deps are old, we can try to load the error files again
758
759
atomicModifyIORef' error_loading_files (\ xs -> (Set. delete file xs,() ))
759
760
atomicModifyIORef' cradle_files (\ xs -> (Set. delete file xs,() ))
@@ -765,6 +766,8 @@ loadSessionWithOptions recorder SessionLoadingOptions{..} rootDir que = do
765
766
-- Keep the same name cache
766
767
modifyVar_ hscEnvs (return . Map. adjust (const [] ) hieYaml )
767
768
consultCradle hieYaml file
769
+ -- if deps are ok, we can just remove the file from pending files
770
+ else atomically $ S. delete file pendingFileSet
768
771
Nothing -> consultCradle hieYaml file
769
772
770
773
let checkInCache :: NormalizedFilePath -> STM (Maybe (IdeResult HscEnvEq , DependencyInfo ))
You can’t perform that action at this time.
0 commit comments