X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FcoreSyn%2FCoreLint.lhs;h=a3ba3ae250afa9d3a7bc2ab58116b3609e5a10ae;hp=4e04e04980af47aceae1c7664b44b6fc5b32059f;hb=f96194794bf099020706c3816d1a5678b40addbb;hpb=9d0c8f842e35dde3d570580cf62a32779f66a6de

diff --git a/compiler/coreSyn/CoreLint.lhs b/compiler/coreSyn/CoreLint.lhs
index 4e04e04..a3ba3ae 100644
--- a/compiler/coreSyn/CoreLint.lhs
+++ b/compiler/coreSyn/CoreLint.lhs
@@ -650,7 +650,7 @@ initL :: LintM a -> Maybe Message {- errors -}
 initL m
   = case unLintM m [] emptyTvSubst emptyBag of
       (_, errs) | isEmptyBag errs -> Nothing
-		| otherwise	  -> Just (vcat (punctuate (text "") (bagToList errs)))
+		| otherwise	  -> Just (vcat (punctuate blankLine (bagToList errs)))
 \end{code}
 
 \begin{code}