Wolfgang Jeltsch pushed to branch wip/jeltsch/module-graph-reuse-in-downsweep at Glasgow Haskell Compiler / GHC
Commits:
-
5b3e0386
by Wolfgang Jeltsch at 2026-05-26T17:43:11+03:00
1 changed file:
Changes:
| ... | ... | @@ -73,17 +73,17 @@ outputModuleNamesInGraph = mgModSummaries >>> |
| 73 | 73 | |
| 74 | 74 | main :: IO ()
|
| 75 | 75 | main = do
|
| 76 | - libDir : otherArgs <- getArgs
|
|
| 77 | - runGhc (Just libDir) $ withSimpleErrorHandler $ do
|
|
| 78 | - logger <- getLogger
|
|
| 79 | - originalDynFlags <- getSessionDynFlags
|
|
| 80 | - (finalDynFlags, _, _)
|
|
| 81 | - <- parseDynamicFlags logger originalDynFlags $
|
|
| 82 | - map noLoc (["-i", "-i" ++ sourceDirectory] ++ otherArgs)
|
|
| 83 | - _ <- setSessionDynFlags finalDynFlags
|
|
| 84 | - intermediateModuleGraph
|
|
| 85 | - <- performDownsweepTurn Nothing "A"
|
|
| 86 | - liftIO $ outputModuleNamesInGraph intermediateModuleGraph
|
|
| 87 | - finalModuleGraph
|
|
| 88 | - <- performDownsweepTurn (Just intermediateModuleGraph) "X"
|
|
| 89 | - liftIO $ outputModuleNamesInGraph finalModuleGraph |
|
| 76 | + libDir : otherArgs <- getArgs
|
|
| 77 | + runGhc (Just libDir) $ withSimpleErrorHandler $ do
|
|
| 78 | + logger <- getLogger
|
|
| 79 | + originalDynFlags <- getSessionDynFlags
|
|
| 80 | + (finalDynFlags, _, _)
|
|
| 81 | + <- parseDynamicFlags logger originalDynFlags $
|
|
| 82 | + map noLoc (["-i", "-i" ++ sourceDirectory] ++ otherArgs)
|
|
| 83 | + _ <- setSessionDynFlags finalDynFlags
|
|
| 84 | + intermediateModuleGraph
|
|
| 85 | + <- performDownsweepTurn Nothing "A"
|
|
| 86 | + liftIO $ outputModuleNamesInGraph intermediateModuleGraph
|
|
| 87 | + finalModuleGraph
|
|
| 88 | + <- performDownsweepTurn (Just intermediateModuleGraph) "X"
|
|
| 89 | + liftIO $ outputModuleNamesInGraph finalModuleGraph |