diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2020-06-17 17:11:19 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-06-18 23:07:47 -0400 |
| commit | 2af0ec9059b94e1fa6b37eda60216e0222e1a53d (patch) | |
| tree | db9449d504a8e0065bf2cbfd1243c4837ad2476a /compiler/GHC/Rename | |
| parent | da18ff9935e72c7fe6127cb5d5d0c53654a204b0 (diff) | |
| download | haskell-2af0ec9059b94e1fa6b37eda60216e0222e1a53d.tar.gz | |
DynFlags: store default depth in SDocContext (#17957)
It avoids having to use DynFlags to reach for pprUserLength.
Diffstat (limited to 'compiler/GHC/Rename')
| -rw-r--r-- | compiler/GHC/Rename/Names.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Rename/Names.hs b/compiler/GHC/Rename/Names.hs index 69c0746646..677e695420 100644 --- a/compiler/GHC/Rename/Names.hs +++ b/compiler/GHC/Rename/Names.hs @@ -1623,7 +1623,7 @@ printMinimalImports imports_w_usage ; this_mod <- getModule ; dflags <- getDynFlags ; liftIO $ withFile (mkFilename dflags this_mod) WriteMode $ \h -> - printForUser dflags h neverQualify (vcat (map ppr imports')) + printForUser dflags h neverQualify AllTheWay (vcat (map ppr imports')) -- The neverQualify is important. We are printing Names -- but they are in the context of an 'import' decl, and -- we never qualify things inside there |