diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2021-02-04 23:20:25 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-03-26 19:00:07 -0400 |
| commit | 599efd90d54a01802b1285c0e357738e4d0bdb3a (patch) | |
| tree | 2f6468fe8caabebd85d4a84d805bf04f7de1cd77 /testsuite | |
| parent | 872a9444df4d38cd5dc0fbb7a249d89596e73ea2 (diff) | |
| download | haskell-599efd90d54a01802b1285c0e357738e4d0bdb3a.tar.gz | |
Refactor FinderCache
Diffstat (limited to 'testsuite')
| -rw-r--r-- | testsuite/tests/ghc-api/downsweep/OldModLocation.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/testsuite/tests/ghc-api/downsweep/OldModLocation.hs b/testsuite/tests/ghc-api/downsweep/OldModLocation.hs index 153509f29e..122fdfd1c4 100644 --- a/testsuite/tests/ghc-api/downsweep/OldModLocation.hs +++ b/testsuite/tests/ghc-api/downsweep/OldModLocation.hs @@ -5,6 +5,7 @@ import GHC import GHC.Driver.Make import GHC.Driver.Session +import GHC.Driver.Env import GHC.Unit.Module.ModSummary (ExtendedModSummary(..)) import GHC.Unit.Finder @@ -47,7 +48,7 @@ main = do _emss <- downsweep hsc_env [] [] False - flushFinderCaches hsc_env + flushFinderCaches (hsc_FC hsc_env) (hsc_home_unit hsc_env) createDirectoryIfMissing False "mydir" renameFile "B.hs" "mydir/B.hs" |