diff options
| author | Duncan Coutts <duncan@well-typed.com> | 2009-11-15 15:56:17 +0000 |
|---|---|---|
| committer | Duncan Coutts <duncan@well-typed.com> | 2009-11-15 15:56:17 +0000 |
| commit | 623e6139a5a3834bb1eb0582763c464549f7b918 (patch) | |
| tree | 06d07bd1f57bc2b38b6396d36eea995e7b2850ea /compiler/rename | |
| parent | 11b79683262dfba851d17f298186393ef063ed40 (diff) | |
| download | haskell-623e6139a5a3834bb1eb0582763c464549f7b918.tar.gz | |
Fix formatting of module deprecation/warning messages
It was accidentally using list syntax. Fixes #3303 again.
Diffstat (limited to 'compiler/rename')
| -rw-r--r-- | compiler/rename/RnNames.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/rename/RnNames.lhs b/compiler/rename/RnNames.lhs index c30fdd9fcf..803744957f 100644 --- a/compiler/rename/RnNames.lhs +++ b/compiler/rename/RnNames.lhs @@ -1475,11 +1475,11 @@ nullModuleExport mod moduleWarn :: ModuleName -> WarningTxt -> SDoc moduleWarn mod (WarningTxt txt) = sep [ ptext (sLit "Module") <+> quotes (ppr mod) <> ptext (sLit ":"), - nest 4 (ppr txt) ] + nest 2 (vcat (map ppr txt)) ] moduleWarn mod (DeprecatedTxt txt) = sep [ ptext (sLit "Module") <+> quotes (ppr mod) <+> ptext (sLit "is deprecated:"), - nest 4 (ppr txt) ] + nest 2 (vcat (map ppr txt)) ] implicitPreludeWarn :: SDoc implicitPreludeWarn |