diff options
Diffstat (limited to 'testsuite/tests/ghc-api/downsweep/PartialDownsweep.hs')
| -rw-r--r-- | testsuite/tests/ghc-api/downsweep/PartialDownsweep.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/testsuite/tests/ghc-api/downsweep/PartialDownsweep.hs b/testsuite/tests/ghc-api/downsweep/PartialDownsweep.hs index 732321935b..4f0f4d33bb 100644 --- a/testsuite/tests/ghc-api/downsweep/PartialDownsweep.hs +++ b/testsuite/tests/ghc-api/downsweep/PartialDownsweep.hs @@ -6,6 +6,7 @@ import GHC import GHC.Driver.Make import GHC.Driver.Session +import GHC.Unit.Module.ModSummary (ExtendedModSummary(..)) import GHC.Utils.Outputable import GHC.Utils.Exception (ExceptionMonad) import GHC.Data.Bag @@ -169,7 +170,7 @@ go label mods cnd = -- liftIO $ hPutStrLn stderr $ showSDoc (hsc_dflags hsc_env) $ ppr $ rights emss -- liftIO $ hPrint stderr $ bagToList $ unionManyBags $ lefts emss - it label $ cnd (rights emss) + it label $ cnd (map emsModSummary (rights emss)) writeMod :: [String] -> IO () |