From: Duncan Coutts <duncan@well-typed.com>
Date: Sun, 15 Nov 2009 15:56:17 +0000 (+0000)
Subject: Fix formatting of module deprecation/warning messages
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=623e6139a5a3834bb1eb0582763c464549f7b918;p=ghc-hetmet.git

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
--- 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