update inline doc

ghcide/session-loader/Development/IDE/Session.hs

@@ -438,8 +438,8 @@
  -- they are inconsistent. So, everywhere you modify 'fileToFlags',
  -- you have to modify 'filesMap' as well.
  filesMap <- newVar HM.empty :: IO (Var FilesMap)
- pendingFilesTQueue <- newTQueueIO
  -- Pending files waiting to be loaded
+ pendingFilesTQueue <- newTQueueIO
  -- Version of the mappings above
  version <- newVar 0
  biosSessionLoadingVar <- newVar Nothing :: IO (Var (Maybe SessionLoadingPreferenceConfig))
@@ -606,7 +606,7 @@
  let !exportsMap' = createExportsMap $ mapMaybe (fmap hirModIface) modIfaces
  liftIO $ atomically $ modifyTVar' (exportsMap shakeExtras) (exportsMap' <>)
  return [keys1, keys2]
  return $ (second Map.keys this_options, Set.fromList $ fromNormalizedFilePath <$> newLoaded)
 
  let consultCradle :: Maybe FilePath -> FilePath -> IO (IdeResult HscEnvEq, [FilePath])
  consultCradle hieYaml cfp = do
@@ -656,18 +656,18 @@
  -- 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
  | otherwise -> return (([renderPackageSetupException cfp GhcVersionMismatch{..}], Nothing),[])
  -- Failure case, either a cradle error or the none cradle
  Left err -> do
  if (length toLoads > 1)
  then do
  succLoaded_files <- readIORef cradle_files
  -- mark as less loaded files as failedLoadingFiles as possible
  let failedLoadingFiles = (Set.insert cfp toLoads) `Set.difference` succLoaded_files
  atomicModifyIORef' error_loading_files (\xs -> (failedLoadingFiles <> xs,()))
  -- retry without other files
  atomically $ forM_ pendingFiles (writeTQueue pendingFilesTQueue)
  consultCradle hieYaml cfp
@@ -721,8 +721,8 @@
  then do
  -- todo invoke the action to recompile the file
  -- if deps are old, we can try to load the error files again
  atomicModifyIORef' error_loading_files (\xs -> (Set.delete file xs,()))
  atomicModifyIORef' cradle_files (\xs -> (Set.delete file xs,()))
  -- If the dependencies are out of date then clear both caches and start
  -- again.
  modifyVar_ fileToFlags (const (return Map.empty))
@@ -920,7 +920,7 @@
  x <- bagToList $ mapBag errMsgDiagnostic $ unionManyBags $ map Compat.getMessages closure_errs
  DriverHomePackagesNotClosed us <- pure x
  pure us
  isBad ci = (homeUnitId_ (componentDynFlags ci)) `OS.member` bad_units
  -- Whenever we spin up a session on Linux, dynamically load libm.so.6
  -- in. We need this in case the binary is statically linked, in which
  -- case the interactive session will fail when trying to load