@@ -172,6 +172,7 @@ loadPackage opt packageState us lps p =
172172 let mods =
173173 [ Module (DefiniteUnitId (DefUnitId p)) mod
174174 | (mod, _mbParent) <- exposedMods
175+ , False {- HLINT ignore "Short-circuited list comprehension" -}
175176 ]
176177 forM_ mods $ \mod -> GHC.getModuleInfo mod
177178 -- this populates the namecache and external package state
@@ -336,12 +337,13 @@ setupEnv uniqSupply tms lps = do
336337 foldl' (\fc (im, ifr) -> GHC.extendInstalledModuleEnv fc im ifr) fc
337338 $ zip ims ifrs
338339
339− -- construct a new NameCache
340− nc' <- mkNameCache uniqSupply tms lps
341− -- update the name cache
342− liftIO $ modifyIORef (hsc_NC session) $ const nc'
343− -- update the external package state
344− liftIO $ modifyIORef (hsc_EPS session) (updateEps lps)
340+ when False $ do
341+ -- construct a new NameCache
342+ nc' <- mkNameCache uniqSupply tms lps
343+ -- update the name cache
344+ liftIO $ modifyIORef (hsc_NC session) $ const nc'
345+ -- update the external package state
346+ liftIO $ modifyIORef (hsc_EPS session) (updateEps lps)
345347 -- load dependent modules, which must be in topological order.
346348 mapM_ loadModuleHome tms
347349