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

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