[project @ 1999-02-05 14:28:34 by sof]

Add initial empty line to a block of errors/warnings

[project @ 1999-02-05 14:28:34 by sof]
Add initial empty line to a block of errors/warnings
99f24744 · sof · 102e3b7d · 99f24744
Commit 99f24744 authored Feb 05, 1999 by sof
--- a/ghc/compiler/main/ErrUtils.lhs
+++ b/ghc/compiler/main/ErrUtils.lhs
@@ -59,7 +59,7 @@ dontAddErrLoc title rest_of_err_msg

 pprBagOfErrors :: Bag ErrMsg -> SDoc
 pprBagOfErrors bag_of_errors
-  = vcat [p $$ text "" | (_,p) <- sorted_errs ]
+  = text "" $$ vcat [p $$ text "" | (_,p) <- sorted_errs ]
    where
      bag_ls	  = bagToList bag_of_errors
      sorted_errs = sortLt occ'ed_before bag_ls