summaryrefslogtreecommitdiff
path: root/testsuite/tests/parser/should_run/CountDeps.hs
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/tests/parser/should_run/CountDeps.hs')
-rw-r--r--testsuite/tests/parser/should_run/CountDeps.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/testsuite/tests/parser/should_run/CountDeps.hs b/testsuite/tests/parser/should_run/CountDeps.hs
index df483c3ff1..43a5c58f9f 100644
--- a/testsuite/tests/parser/should_run/CountDeps.hs
+++ b/testsuite/tests/parser/should_run/CountDeps.hs
@@ -27,7 +27,8 @@ calcDeps modName libdir =
defaultErrorHandler defaultFatalMessager defaultFlushOut $ do
runGhc (Just libdir) $ do
df <- getSessionDynFlags
- (df, _, _) <- parseDynamicFlags df [noLoc "-package=ghc"]
+ logger <- getLogger
+ (df, _, _) <- parseDynamicFlags logger df [noLoc "-package=ghc"]
setSessionDynFlags df
env <- getSession
loop env emptyUniqSet [mkModuleName modName]