Commit 623e6139 authored by Duncan Coutts's avatar Duncan Coutts

Fix formatting of module deprecation/warning messages

It was accidentally using list syntax. Fixes #3303 again.
parent 11b79683
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment