X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fprelude%2FTysWiredIn.lhs;h=59241ac37dfbe1f2dfa29ecf664d7d1b4e40c3c3;hb=ce1a26945eefbf58eb020cf8c4464094eebb5d9e;hp=82ecbba9af01cdb8bd9efaed32c706688480b121;hpb=79952b699c31f885d0bdf76e451cf1471a4892da;p=ghc-hetmet.git

diff --git a/ghc/compiler/prelude/TysWiredIn.lhs b/ghc/compiler/prelude/TysWiredIn.lhs
index 82ecbba..59241ac 100644
--- a/ghc/compiler/prelude/TysWiredIn.lhs
+++ b/ghc/compiler/prelude/TysWiredIn.lhs
@@ -83,7 +83,6 @@ module TysWiredIn (
 --import Pretty
 --import Util
 --import PprType
---import PprStyle
 --import Kind
 
 IMP_Ubiq()
@@ -100,8 +99,9 @@ import TysPrim
 import Kind		( mkBoxedTypeKind, mkArrowKind )
 import Name		--( mkWiredInTyConName, mkWiredInIdName, mkTupNameStr )
 import TyCon		( mkDataTyCon, mkTupleTyCon, mkSynTyCon,
-			  NewOrData(..), TyCon, SYN_IE(Arity)
+			  TyCon, SYN_IE(Arity)
 			)
+import BasicTypes	( NewOrData(..) )
 import Type		( mkTyConTy, applyTyCon, mkSigmaTy, mkTyVarTys, 
 			  mkFunTy, mkFunTys, maybeAppTyCon,
 			  GenType(..), SYN_IE(ThetaType), SYN_IE(TauType) )