From: simonmar <unknown>
Date: Mon, 26 Jan 2004 10:04:42 +0000 (+0000)
Subject: [project @ 2004-01-26 10:04:42 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~119
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d0ed82bcb676fc7cdd2295ac40162d6ce91be8a9;p=ghc-hetmet.git

[project @ 2004-01-26 10:04:42 by simonmar]
Fix error message printing
---

diff --git a/ghc/compiler/main/ErrUtils.lhs b/ghc/compiler/main/ErrUtils.lhs
index 358c7ab..9c47296 100644
--- a/ghc/compiler/main/ErrUtils.lhs
+++ b/ghc/compiler/main/ErrUtils.lhs
@@ -120,9 +120,12 @@ printErrorsAndWarnings (warns, errs)
 
 pprBagOfErrors :: Bag ErrMsg -> Pretty.Doc
 pprBagOfErrors bag_of_errors
-  = Pretty.vcat [ let style = mkErrStyle unqual in
-		  Pretty.text "" Pretty.$$ d style Pretty.$$ e style
-		| ErrMsg { errMsgShortDoc = d,
+  = Pretty.vcat [ let style = mkErrStyle unqual
+		      doc = mkLocMessage s (d $$ e)
+		  in
+		  Pretty.text "" Pretty.$$ doc style
+		| ErrMsg { errMsgSpans = s:ss,
+			   errMsgShortDoc = d,
 			   errMsgExtraInfo = e,
 			   errMsgContext = unqual } <- sorted_errs ]
     where