Fix formatting of module deprecation/warning messages

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

diff --git a/compiler/rename/RnNames.lhs b/compiler/rename/RnNames.lhs
index c30fdd9..8037449 100644 (file)
--- 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 ":"), 
 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:"), 
 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
 
 implicitPreludeWarn :: SDoc
 implicitPreludeWarn