X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FErrUtils.lhs;fp=ghc%2Fcompiler%2Fmain%2FErrUtils.lhs;h=7b7dcf8afb52be42255708163e9d6ce73cc2e1da;hb=3ed515ed9481278a8cf200d6aaf7668502e627d0;hp=3e93a50c46e5a7eea9e4badda011e3d0cf876b64;hpb=a3c686ddfab2e7ae618eb9b625814db0e24360d3;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/ErrUtils.lhs b/ghc/compiler/main/ErrUtils.lhs
index 3e93a50..7b7dcf8 100644
--- a/ghc/compiler/main/ErrUtils.lhs
+++ b/ghc/compiler/main/ErrUtils.lhs
@@ -34,13 +34,10 @@ import Util		( sortLe, global )
 import Outputable
 import qualified Pretty
 import SrcLoc		( srcSpanStart )
-import CmdLineOpts	( DynFlags(..), DynFlag(..), dopt,
-			  opt_ErrorSpans )
-
-import List             ( replicate, sortBy )
+import CmdLineOpts	( DynFlags(..), DynFlag(..), dopt, opt_ErrorSpans )
 import System		( ExitCode(..), exitWith )
 import DATA_IOREF
-import IO		( hPutStrLn, stderr, stdout )
+import IO		( hPutStrLn, stderr )
 
 
 -- -----------------------------------------------------------------------------
@@ -92,18 +89,9 @@ mkLongErrMsg :: SrcSpan -> PrintUnqualified -> Message -> Message -> ErrMsg
 mkLongErrMsg locn print_unqual msg extra 
  = ErrMsg [locn] print_unqual msg extra
 
--- A long (multi-line) error message, with context to tell us whether
--- to qualify names in the message or not.
-mkLongMultiLocErrMsg :: [SrcSpan] -> PrintUnqualified -> Message -> Message -> ErrMsg
-mkLongMultiLocErrMsg locns print_unqual msg extra
-  = ErrMsg locns print_unqual msg extra
-
 mkWarnMsg :: SrcSpan -> PrintUnqualified -> Message -> WarnMsg
 mkWarnMsg = mkErrMsg
 
-mkLongWarnMsg :: SrcSpan -> PrintUnqualified -> Message -> Message -> WarnMsg
-mkLongWarnMsg = mkLongErrMsg
-
 type Messages = (Bag WarnMsg, Bag ErrMsg)
 
 emptyMessages :: Messages