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

diff --git a/compiler/main/ErrUtils.lhs b/compiler/main/ErrUtils.lhs
index 7bdb019..42cb314 100644
--- a/compiler/main/ErrUtils.lhs
+++ b/compiler/main/ErrUtils.lhs
@@ -31,15 +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 IO		( hPutStrLn, stderr )
-import DYNAMIC
+
+import System.Exit	( ExitCode(..), exitWith )
+import Data.Dynamic
 
 
 -- -----------------------------------------------------------------------------