Commit 99f24744 authored by sof's avatar sof
Browse files

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

Add initial empty line to a block of errors/warnings
parent 102e3b7d
......@@ -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
......
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