diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2020-05-18 12:01:57 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-06-13 02:13:03 -0400 |
| commit | 36e1daf0a604d98a34d9a066a01dd4f5439b4aca (patch) | |
| tree | 4c1bfcc10867c8e0f8fb0df87df740d527d5ef82 /testsuite/tests/ghc-api/T9595.hs | |
| parent | bd5810dc4e23331ca4f73ec3b1818c3350b5bbd7 (diff) | |
| download | haskell-36e1daf0a604d98a34d9a066a01dd4f5439b4aca.tar.gz | |
DynFlags: make listVisibleModuleNames take a UnitState
Diffstat (limited to 'testsuite/tests/ghc-api/T9595.hs')
| -rw-r--r-- | testsuite/tests/ghc-api/T9595.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/testsuite/tests/ghc-api/T9595.hs b/testsuite/tests/ghc-api/T9595.hs index 3910a20115..468b63a342 100644 --- a/testsuite/tests/ghc-api/T9595.hs +++ b/testsuite/tests/ghc-api/T9595.hs @@ -14,7 +14,8 @@ main = dflags <- getSessionDynFlags setSessionDynFlags dflags dflags <- getSessionDynFlags - liftIO $ print (mkModuleName "GHC.Utils.Outputable" `elem` listVisibleModuleNames dflags) + let state = unitState dflags + liftIO $ print (mkModuleName "GHC.Utils.Outputable" `elem` listVisibleModuleNames state) _ <- runGhc (Just libdir) $ do dflags <- getSessionDynFlags setSessionDynFlags (dflags { @@ -23,5 +24,6 @@ main = (ModRenaming True [])] }) dflags <- getSessionDynFlags - liftIO $ print (mkModuleName "GHC.Utils.Outputable" `elem` listVisibleModuleNames dflags) + let state = unitState dflags + liftIO $ print (mkModuleName "GHC.Utils.Outputable" `elem` listVisibleModuleNames state) return () |