remove unused function: printError

diff --git a/compiler/main/ErrUtils.lhs b/compiler/main/ErrUtils.lhs
index 6ba9df4..52d05d0 100644 (file)
--- a/compiler/main/ErrUtils.lhs
+++ b/compiler/main/ErrUtils.lhs
@@ -9,7 +9,7 @@ module ErrUtils (
         ErrMsg, WarnMsg, Severity(..),
         Messages, ErrorMessages, WarningMessages,
         errMsgSpans, errMsgContext, errMsgShortDoc, errMsgExtraInfo,
-        MsgDoc, mkLocMessage, printError, pprMessageBag, pprErrMsgBag, 
+        MsgDoc, mkLocMessage, pprMessageBag, pprErrMsgBag,
         pprLocErrMsg, makeIntoWarning,
         
         errorsFound, emptyMessages,
@@ -95,9 +95,6 @@ mkLocMessage severity locn msg
       -- For warnings, print    Foo.hs:34: Warning:
       --                           <the warning message>
 
-printError :: SrcSpan -> MsgDoc -> IO ()
-printError span msg = printErrs (mkLocMessage SevError span msg) defaultErrStyle
-
 makeIntoWarning :: ErrMsg -> ErrMsg
 makeIntoWarning err = err { errMsgSeverity = SevWarning }