X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FbasicTypes%2FId.lhs;h=0076c36bf888f32a57b4a7f4a19fd9dc91fc7cff;hb=cbfde9c5824d107ab9bec73ce0e31ca81c3f167f;hp=389631a6baed1e95482009e13f7093d9ffdf12fa;hpb=111cee3f1ad93816cb828e38b38521d85c3bcebb;p=ghc-hetmet.git

diff --git a/ghc/compiler/basicTypes/Id.lhs b/ghc/compiler/basicTypes/Id.lhs
index 389631a..0076c36 100644
--- a/ghc/compiler/basicTypes/Id.lhs
+++ b/ghc/compiler/basicTypes/Id.lhs
@@ -70,9 +70,8 @@ module Id (
 
 #include "HsVersions.h"
 
-import {-# SOURCE #-} CoreUnfold ( Unfolding )
-import {-# SOURCE #-} CoreSyn    ( CoreRules )
 
+import CoreSyn		( Unfolding, CoreRules )
 import BasicTypes	( Arity )
 import Var		( Id, DictId,
 			  isId, mkIdVar,
@@ -96,7 +95,7 @@ import OccName		( UserFS )
 import PrimRep		( PrimRep )
 import PrimOp		( PrimOp, primOpIsCheap )
 import TysPrim		( statePrimTyCon )
-import FieldLabel	( FieldLabel(..) )
+import FieldLabel	( FieldLabel )
 import SrcLoc		( SrcLoc )
 import Unique		( Unique, mkBuiltinUnique, getBuiltinUniques )
 import Outputable