diff options
Diffstat (limited to 'testsuite/tests/ghc-api/downsweep/OldModLocation.hs')
| -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 76338b0f1e..180932bd18 100644 --- a/testsuite/tests/ghc-api/downsweep/OldModLocation.hs +++ b/testsuite/tests/ghc-api/downsweep/OldModLocation.hs @@ -3,6 +3,7 @@ import GHC import GHC.Driver.Make import GHC.Driver.Session +import GHC.Unit.Module.ModSummary (ExtendedModSummary(..)) import GHC.Unit.Finder import Control.Monad.IO.Class (liftIO) @@ -54,7 +55,7 @@ main = do -- using the 'location' parameter we'd end up using the old location of -- the "B" module in this test. Make sure that doesn't happen. - hPrint stderr $ sort (map (ml_hs_file . ms_location) (rights emss)) + hPrint stderr $ sort (map (ml_hs_file . ms_location) (map emsModSummary (rights emss))) writeMod :: [String] -> IO () writeMod src@(head -> stripPrefix "module " -> Just (takeWhile (/=' ') -> mod)) |