remove unused function: printError
authorSimon Marlow <marlowsd@gmail.com>
Mon, 27 Feb 2012 11:49:55 +0000 (11:49 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Mon, 27 Feb 2012 11:59:18 +0000 (11:59 +0000)
compiler/main/ErrUtils.lhs

index 6ba9df4..52d05d0 100644 (file)
@@ -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 }