Strictness for !fullModuleGraph

wz1000 · wz1000 · commit a8c13f19b98e · 2023-07-05T17:37:15.000+05:30
diff --git a/ghcide/src/Development/IDE/Core/Rules.hs b/ghcide/src/Development/IDE/Core/Rules.hs
@@ -66,6 +66,7 @@ import Control.Concurrent.Async (concurrently)
 import Control.Concurrent.Strict
 import Control.DeepSeq
 import Control.Exception.Safe
+import Control.Exception (evaluate)
 import Control.Monad.Extra
 import Control.Monad.Reader
 import Control.Monad.State
@@ -824,7 +825,8 @@ ghcSessionDepsDefinition fullModSummary GhcSessionDepsConfig{..} env file = do
 #endif
 nubOrdOn ms_mod (ms : concatMap mgModSummaries mgs)
 #endif
- pure $ mkModuleGraph module_graph_nodes
+ liftIO $ evaluate $ liftRnf rwhnf module_graph_nodes
+ return $ mkModuleGraph module_graph_nodes
 session' <- liftIO $ mergeEnvs hsc mg ms inLoadOrder depSessions
 
 -- Here we avoid a call to to `newHscEnvEqWithImportPaths`, which creates a new

-Original file line number
+Diff line change
 importControl.Concurrent.Strict
 importControl.DeepSeq
 importControl.Exception.Safe
 +importControl.Exception (evaluate)
 importControl.Monad.Extra
 importControl.Monad.Reader
 importControl.Monad.State
 #endif
  nubOrdOn ms_mod (ms :concatMap mgModSummaries mgs)
 #endif
 -pure$ mkModuleGraph module_graph_nodes
 + liftIO $ evaluate $ liftRnf rwhnf module_graph_nodes
 +return$ mkModuleGraph module_graph_nodes
  session' <- liftIO $ mergeEnvs hsc mg ms inLoadOrder depSessions
 -- Here we avoid a call to to `newHscEnvEqWithImportPaths`, which creates a new