X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FbasicTypes%2FId.lhs;h=4b7f131634f6a198239855964504cea1d5d4bf03;hb=423d477bfecd490de1449c59325c8776f91d7aac;hp=87617629c1233dd6552b9610dddb2a1692fd4758;hpb=553e90d9a32ee1b1809430f260c401cc4169c6c7;p=ghc-hetmet.git

diff --git a/ghc/compiler/basicTypes/Id.lhs b/ghc/compiler/basicTypes/Id.lhs
index 8761762..4b7f131 100644
--- a/ghc/compiler/basicTypes/Id.lhs
+++ b/ghc/compiler/basicTypes/Id.lhs
@@ -15,7 +15,7 @@ module Id (
 
 	-- Taking an Id apart
 	idName, idType, idUnique, idInfo,
-	idPrimRep, isId, globalIdDetails,
+	isId, globalIdDetails, idPrimRep,
 	recordSelectorFieldLabel,
 
 	-- Modifying an Id
@@ -90,7 +90,8 @@ import Var		( Id, DictId,
 			  globalIdDetails
 			)
 import qualified Var	( mkLocalId, mkGlobalId, mkSpecPragmaId, mkExportedLocalId )
-import Type		( Type, typePrimRep, addFreeTyVars, seqType, splitTyConApp_maybe )
+import Type		( Type, typePrimRep, addFreeTyVars, seqType, 
+			  splitTyConApp_maybe, PrimRep )
 import TysPrim		( statePrimTyCon )
 import IdInfo 
 
@@ -105,7 +106,6 @@ import Name	 	( Name, OccName, nameIsLocalOrFrom,
 			) 
 import Module		( Module )
 import OccName		( EncodedFS, mkWorkerOcc )
-import PrimRep		( PrimRep )
 import FieldLabel	( FieldLabel )
 import Maybes		( orElse )
 import SrcLoc		( SrcLoc )