diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-02-27 11:49:55 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-02-27 11:59:18 +0000 |
| commit | 7a61f477f52a895d854e82b52f3b4e2fee912121 (patch) | |
| tree | 6b2988b591c429af7f4309b5bc9fbe802a2a3cb5 | |
| parent | d12f609b4d07fb58d2f7a0760cc9e73c5a24ca84 (diff) | |
| download | haskell-7a61f477f52a895d854e82b52f3b4e2fee912121.tar.gz | |
remove unused function: printError
| -rw-r--r-- | compiler/main/ErrUtils.lhs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/compiler/main/ErrUtils.lhs b/compiler/main/ErrUtils.lhs index 6ba9df436c..52d05d0fdc 100644 --- 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 } |