Commit 3ed515ed authored by simonpj's avatar simonpj
Browse files

[project @ 2004-12-02 17:17:28 by simonpj]

Trim imports
parent a3c686dd
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment