X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FstgSyn%2FStgLint.lhs;fp=compiler%2FstgSyn%2FStgLint.lhs;h=cb08c40ba2d11b85e06969c26f94a1154b1ba09d;hp=21db424b43d0db9564f7d56b4890185ec8ce0cd2;hb=f96194794bf099020706c3816d1a5678b40addbb;hpb=016f155090557cd63f377b3ced95453bffd87d60

diff --git a/compiler/stgSyn/StgLint.lhs b/compiler/stgSyn/StgLint.lhs
index 21db424..cb08c40 100644
--- a/compiler/stgSyn/StgLint.lhs
+++ b/compiler/stgSyn/StgLint.lhs
@@ -316,7 +316,7 @@ initL (LintM m)
     if isEmptyBag errs then
         Nothing
     else
-        Just (vcat (punctuate (text "") (bagToList errs)))
+        Just (vcat (punctuate blankLine (bagToList errs)))
     }
 
 instance Monad LintM where