From 99f2474458f8eec90ee51305a3855df469cb023a Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Fri, 5 Feb 1999 14:28:34 +0000
Subject: [PATCH] [project @ 1999-02-05 14:28:34 by sof] Add initial empty line
 to a block of errors/warnings

---
 ghc/compiler/main/ErrUtils.lhs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/compiler/main/ErrUtils.lhs b/ghc/compiler/main/ErrUtils.lhs
index 39bdd00c00db..96c7b671303b 100644
--- 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
-- 
GitLab