From: simonmar <unknown>
Date: Tue, 27 Jan 2004 14:41:22 +0000 (+0000)
Subject: [project @ 2004-01-27 14:41:22 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~116
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=938931c615a6ef1c0dc7eb3ebd12d24b66eb04b5

[project @ 2004-01-27 14:41:22 by simonmar]
error message sorting wibble
---

diff --git a/ghc/compiler/main/ErrUtils.lhs b/ghc/compiler/main/ErrUtils.lhs
index 9c47296..f5f0b9b 100644
--- a/ghc/compiler/main/ErrUtils.lhs
+++ b/ghc/compiler/main/ErrUtils.lhs
@@ -30,7 +30,7 @@ import SrcLoc		( srcSpanStart )
 import CmdLineOpts	( DynFlags(..), DynFlag(..), dopt,
 			  opt_ErrorSpans )
 
-import List             ( replicate )
+import List             ( replicate, sortBy )
 import System		( ExitCode(..), exitWith )
 import IO		( hPutStr, stderr, stdout )
 
@@ -133,7 +133,7 @@ pprBagOfErrors bag_of_errors
       sorted_errs = sortLt occ'ed_before bag_ls
 
       occ'ed_before err1 err2 = 
-         LT == compare (head (errMsgSpans err1)) (head (errMsgSpans err1))
+         LT == compare (head (errMsgSpans err1)) (head (errMsgSpans err2))
 
 pprBagOfWarnings :: Bag WarnMsg -> Pretty.Doc
 pprBagOfWarnings bag_of_warns = pprBagOfErrors bag_of_warns