Fix formatting of module deprecation/warning messages

It was accidentally using list syntax. Fixes #3303 again.

Fix formatting of module deprecation/warning messages
It was accidentally using list syntax. Fixes #3303 again.
623e6139 · Duncan Coutts · 11b79683 · 623e6139
Commit 623e6139 authored Nov 15, 2009 by Duncan Coutts
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

compiler/rename/RnNames.lhs compiler/rename/RnNames.lhs +2 -2

No files found.
--- 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