diff options
Diffstat (limited to 'ghc/GHCi/UI.hs')
| -rw-r--r-- | ghc/GHCi/UI.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/GHCi/UI.hs b/ghc/GHCi/UI.hs index b628575362..3a7946bca8 100644 --- a/ghc/GHCi/UI.hs +++ b/ghc/GHCi/UI.hs @@ -1299,7 +1299,7 @@ runStmt input step = do setDumpFilePrefix :: GHC.GhcMonad m => InteractiveContext -> m () -- #17500 setDumpFilePrefix ic = do dflags <- GHC.getInteractiveDynFlags - GHC.setInteractiveDynFlags dflags { dumpPrefix = Just (modStr ++ ".") } + GHC.setInteractiveDynFlags dflags { dumpPrefix = modStr ++ "." } where modStr = moduleNameString $ moduleName $ icInteractiveModule $ ic |