From 599efd90d54a01802b1285c0e357738e4d0bdb3a Mon Sep 17 00:00:00 2001 From: Sylvain Henry Date: Thu, 4 Feb 2021 23:20:25 +0100 Subject: Refactor FinderCache --- testsuite/tests/ghc-api/downsweep/OldModLocation.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'testsuite/tests/ghc-api') 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" -- cgit v1.2.1