X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fmain%2FErrUtils.lhs;h=42cb31474d24fe5462ea499f9d0a81f93ff65773;hp=90e5dc87b6a204cdf98fc6d0f42e377df1527cc9;hb=b1ab4b8a607addc4d097588db5761313c996a41f;hpb=0065d5ab628975892cea1ec7303f968c3338cbe1

diff --git a/compiler/main/ErrUtils.lhs b/compiler/main/ErrUtils.lhs
index 90e5dc8..42cb314 100644
--- a/compiler/main/ErrUtils.lhs
+++ b/compiler/main/ErrUtils.lhs
@@ -31,16 +31,14 @@ module ErrUtils (
 
 import Bag		( Bag, bagToList, isEmptyBag, emptyBag )
 import SrcLoc		( SrcSpan )
-import Util		( sortLe, global )
+import Util		( sortLe )
 import Outputable
-import qualified Pretty
 import SrcLoc		( srcSpanStart, noSrcSpan )
 import DynFlags		( DynFlags(..), DynFlag(..), dopt )
 import StaticFlags	( opt_ErrorSpans )
-import System		( ExitCode(..), exitWith )
-import DATA_IOREF
-import IO		( hPutStrLn, stderr )
-import DYNAMIC
+
+import System.Exit	( ExitCode(..), exitWith )
+import Data.Dynamic
 
 
 -- -----------------------------------------------------------------------------