Wolfgang Jeltsch pushed to branch wip/jeltsch/module-graph-reuse-in-downsweep at Glasgow Haskell Compiler / GHC
Commits:
-
f2b9217d
by Wolfgang Jeltsch at 2026-05-26T19:43:14+03:00
1 changed file:
Changes:
| ... | ... | @@ -9,6 +9,7 @@ import Data.List (sort) |
| 9 | 9 | import System.Environment (getArgs)
|
| 10 | 10 | import System.Exit (exitFailure)
|
| 11 | 11 | import System.IO (stderr)
|
| 12 | +import System.Directory (removeFile)
|
|
| 12 | 13 | import Language.Haskell.Syntax.Module.Name (moduleNameString)
|
| 13 | 14 | import GHC.Utils.Ppr (Mode (PageMode))
|
| 14 | 15 | import GHC.Utils.Outputable (vcat, defaultSDocContext, printSDocLn, ppr)
|
| ... | ... | @@ -84,6 +85,9 @@ main = do |
| 84 | 85 | intermediateModuleGraph
|
| 85 | 86 | <- performDownsweepTurn Nothing "A"
|
| 86 | 87 | liftIO $ outputModuleNamesInGraph intermediateModuleGraph
|
| 88 | + _ <- liftIO $
|
|
| 89 | + mapM_ (((sourceDirectory ++ "/") ++) >>> (++ ".hs") >>> removeFile)
|
|
| 90 | + ["A", "B", "C", "D"]
|
|
| 87 | 91 | finalModuleGraph
|
| 88 | 92 | <- performDownsweepTurn (Just intermediateModuleGraph) "X"
|
| 89 | 93 | liftIO $ outputModuleNamesInGraph finalModuleGraph |