From 623e6139a5a3834bb1eb0582763c464549f7b918 Mon Sep 17 00:00:00 2001 From: Duncan Coutts Date: Sun, 15 Nov 2009 15:56:17 +0000 Subject: [PATCH] Fix formatting of module deprecation/warning messages It was accidentally using list syntax. Fixes #3303 again. --- compiler/rename/RnNames.lhs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/rename/RnNames.lhs b/compiler/rename/RnNames.lhs index c30fdd9..8037449 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 -- 1.7.10.4