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

Fix formatting of module deprecation/warning messages

It was accidentally using list syntax. Fixes #3303 again.
parent 11b79683
...@@ -1475,11 +1475,11 @@ nullModuleExport mod ...@@ -1475,11 +1475,11 @@ nullModuleExport mod
moduleWarn :: ModuleName -> WarningTxt -> SDoc moduleWarn :: ModuleName -> WarningTxt -> SDoc
moduleWarn mod (WarningTxt txt) moduleWarn mod (WarningTxt txt)
= sep [ ptext (sLit "Module") <+> quotes (ppr mod) <> ptext (sLit ":"), = sep [ ptext (sLit "Module") <+> quotes (ppr mod) <> ptext (sLit ":"),
nest 4 (ppr txt) ] nest 2 (vcat (map ppr txt)) ]
moduleWarn mod (DeprecatedTxt txt) moduleWarn mod (DeprecatedTxt txt)
= sep [ ptext (sLit "Module") <+> quotes (ppr mod) = sep [ ptext (sLit "Module") <+> quotes (ppr mod)
<+> ptext (sLit "is deprecated:"), <+> ptext (sLit "is deprecated:"),
nest 4 (ppr txt) ] nest 2 (vcat (map ppr txt)) ]
implicitPreludeWarn :: SDoc implicitPreludeWarn :: SDoc
implicitPreludeWarn implicitPreludeWarn
......
Supports Markdown
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