X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypes%2FTyCon.lhs;h=ada7c8d4b362d990b6ea8ce1584b9cb5d10ca7a9;hb=641b068da46513abf8b2697b83fb03b2c36cb528;hp=0608ba553c25b319553ce0f924d26fce1f0a1cec;hpb=d7ce19a02315e6dd7ab1fa8f8f241ba9d198f51e;p=ghc-hetmet.git

diff --git a/ghc/compiler/types/TyCon.lhs b/ghc/compiler/types/TyCon.lhs
index 0608ba5..ada7c8d 100644
--- a/ghc/compiler/types/TyCon.lhs
+++ b/ghc/compiler/types/TyCon.lhs
@@ -49,10 +49,9 @@ IMPORT_DELOOPER(TyLoop) ( SYN_IE(Type), GenType,
 			  --LATER: specMaybeTysSuffix
 			)
 #else
-import {-# SOURCE #-} Type  ( Type  )
+import {-# SOURCE #-} Type  ( Type, splitSigmaTy, splitFunTy  )
 import {-# SOURCE #-} Class ( Class )
 import {-# SOURCE #-} Id    ( Id, isNullaryDataCon, idType )
-import {-# SOURCE #-} Type  ( splitSigmaTy, splitFunTy  )
 import {-# SOURCE #-} TysWiredIn ( tupleCon )
 #endif
 
@@ -63,8 +62,7 @@ import Kind		( Kind, mkBoxedTypeKind, mkArrowKind, resultKind, argKind )
 
 import Maybes
 import Name		( Name, nameUnique, mkWiredInTyConName, NamedThing(getName) )
-import Unique		( Unique, funTyConKey )
-import UniqFM           ( Uniquable(..) )
+import Unique		( Unique, funTyConKey, Uniquable(..) )
 import Pretty		( Doc )
 import PrimRep		( PrimRep(..) )
 import PrelMods		( gHC__, pREL_TUP, pREL_BASE )