X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FdeSugar%2FDesugar.lhs;h=61ce1e65750071d6f02bcd5ef41f44e5101338f7;hb=0fe38fdce8e7c7e88fd1188ba95c085717524e21;hp=8bee5d613ed913add0fcc2ddeae9d1479428932e;hpb=be33dbc967b4915cfdb0307ae1b7ae3cee651b8c;p=ghc-hetmet.git

diff --git a/ghc/compiler/deSugar/Desugar.lhs b/ghc/compiler/deSugar/Desugar.lhs
index 8bee5d6..61ce1e6 100644
--- a/ghc/compiler/deSugar/Desugar.lhs
+++ b/ghc/compiler/deSugar/Desugar.lhs
@@ -9,25 +9,20 @@ module Desugar ( deSugar, pprDsWarnings ) where
 #include "HsVersions.h"
 
 import CmdLineOpts	( opt_D_dump_ds )
-import HsSyn		( HsBinds, HsExpr, MonoBinds
-			)
-import TcHsSyn		( TypecheckedMonoBinds, TypecheckedHsExpr
-			)
+import HsSyn		( MonoBinds )
+import TcHsSyn		( TypecheckedMonoBinds )
 import CoreSyn
 import PprCore		( pprCoreBindings )
-import Name             ( isExported )
 import DsMonad
 import DsBinds		( dsMonoBinds )
 import DsUtils
 
-import Bag		( unionBags, isEmptyBag )
-import BasicTypes       ( Module, RecFlag(..) )
-import CmdLineOpts	( opt_DoCoreLinting, opt_SccGroup, opt_SccProfilingOn )
-import CostCentre       ( IsCafCC(..), mkAutoCC )
+import Bag		( isEmptyBag )
+import BasicTypes       ( Module )
+import CmdLineOpts	( opt_SccGroup, opt_SccProfilingOn )
 import CoreLift		( liftCoreBindings )
 import CoreLint		( lintCoreBindings )
-import Id		( nullIdEnv, mkIdEnv, idType, 
-			  DictVar, GenId, Id )
+import Id		( nullIdEnv, GenId, Id )
 import ErrUtils		( dumpIfSet, doIfSet )
 import Outputable
 import UniqSupply	( splitUniqSupply, UniqSupply )