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 Change indentation of `main` in `IncrementalDownsweep.hs` - - - - - 1 changed file: - testsuite/tests/ghc-api/downsweep/IncrementalDownsweep.hs Changes: ===================================== testsuite/tests/ghc-api/downsweep/IncrementalDownsweep.hs ===================================== @@ -73,17 +73,17 @@ outputModuleNamesInGraph = mgModSummaries >>> main :: IO () main = do - libDir : otherArgs <- getArgs - runGhc (Just libDir) $ withSimpleErrorHandler $ do - logger <- getLogger - originalDynFlags <- getSessionDynFlags - (finalDynFlags, _, _) - <- parseDynamicFlags logger originalDynFlags $ - map noLoc (["-i", "-i" ++ sourceDirectory] ++ otherArgs) - _ <- setSessionDynFlags finalDynFlags - intermediateModuleGraph - <- performDownsweepTurn Nothing "A" - liftIO $ outputModuleNamesInGraph intermediateModuleGraph - finalModuleGraph - <- performDownsweepTurn (Just intermediateModuleGraph) "X" - liftIO $ outputModuleNamesInGraph finalModuleGraph + libDir : otherArgs <- getArgs + runGhc (Just libDir) $ withSimpleErrorHandler $ do + logger <- getLogger + originalDynFlags <- getSessionDynFlags + (finalDynFlags, _, _) + <- parseDynamicFlags logger originalDynFlags $ + map noLoc (["-i", "-i" ++ sourceDirectory] ++ otherArgs) + _ <- setSessionDynFlags finalDynFlags + intermediateModuleGraph + <- performDownsweepTurn Nothing "A" + liftIO $ outputModuleNamesInGraph intermediateModuleGraph + finalModuleGraph + <- performDownsweepTurn (Just intermediateModuleGraph) "X" + liftIO $ outputModuleNamesInGraph finalModuleGraph View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/5b3e03868a512e7a20e597005a98038d... -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/5b3e03868a512e7a20e597005a98038d... You're receiving this email because of your account on gitlab.haskell.org.