Skip to content

Commit

Permalink
update inline doc
Browse files Browse the repository at this point in the history
  • Loading branch information
soulomoon committed Nov 4, 2024
1 parent 8953aec commit 4bdc2c8
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion ghcide/session-loader/Development/IDE/Session.hs
Original file line number Diff line number Diff line change
Expand Up @@ -623,7 +623,6 @@ loadSessionWithOptions recorder SessionLoadingOptions{..} rootDir que = do
<> " (for " <> T.pack lfpLog <> ")"

pendingFiles' <- Set.fromList <$> (atomically $ flushTQueue pendingFilesTQueue)
-- remove the file from error loading files
errorFiles <- readIORef error_loading_files
-- remove error files from pending files since error loading need to load one by one
let pendingFiles = pendingFiles' `Set.difference` errorFiles
Expand Down Expand Up @@ -656,6 +655,7 @@ loadSessionWithOptions recorder SessionLoadingOptions{..} rootDir que = do
atomically $ forM_ remainPendingFiles (writeTQueue pendingFilesTQueue)
-- log new loaded files
logWith recorder Info $ LogSessionNewLoadedFiles $ Set.toList newLoadedT
-- remove the file from error loading files
atomicModifyIORef' cradle_files (\xs -> (newLoadedT <> xs,()))
atomicModifyIORef' error_loading_files (\old -> (old `Set.difference` newLoadedT, ()))
return results
Expand Down

0 comments on commit 4bdc2c8

Please sign in to comment.