X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Fcompiler%2Fmain%2FMkIface.lhs;h=2061b9806a51e6dc37b05bb2d1b4da6a64321212;hb=510d96b44148caf7261dcc3530648c5905016efc;hp=e43429c28c095d0c3cd8414eebd92fb46627ba9b;hpb=db791f3ce801f99b944908c5c1e36f1f8a027d8f;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/MkIface.lhs b/ghc/compiler/main/MkIface.lhs
index e43429c..2061b98 100644
--- a/ghc/compiler/main/MkIface.lhs
+++ b/ghc/compiler/main/MkIface.lhs
@@ -15,7 +15,7 @@ import HsSyn
 import HsCore		( HsIdInfo(..), UfExpr(..), toUfExpr, toUfBndr )
 import HsTypes		( toHsTyVars )
 import BasicTypes	( Fixity(..), NewOrData(..),
-			  Version, initialVersion, bumpVersion, isLoopBreaker
+			  Version, initialVersion, bumpVersion, 
 			)
 import RnMonad
 import RnHsSyn		( RenamedInstDecl, RenamedTyClDecl )
@@ -29,7 +29,7 @@ import HscTypes		( VersionInfo(..), ModIface(..), ModDetails(..),
 			)
 
 import CmdLineOpts
-import Id		( Id, idType, idInfo, omitIfaceSigForId, isDictFunId,
+import Id		( Id, idType, idInfo, isImplicitId, isDictFunId,
 			  idSpecialisation, setIdInfo, isLocalId, idName, hasNoBinding
 			)
 import Var		( isId )
@@ -261,8 +261,8 @@ ifaceTyCls (ATyCon tycon) so_far
 	= ([getName field_label], mk_bang_ty strict_mark (fieldLabelType field_label))
 
 ifaceTyCls (AnId id) so_far
-  | omitIfaceSigForId id = so_far
-  | otherwise 		 = iface_sig : so_far
+  | isImplicitId id = so_far
+  | otherwise 	    = iface_sig : so_far
   where
     iface_sig = IfaceSig { tcdName   = getName id, 
 			   tcdType   = toHsType id_type,
@@ -296,7 +296,6 @@ ifaceTyCls (AnId id) so_far
 			NoStrictnessInfo -> []
 			info		 -> [HsStrictness info]
 
-
     ------------  Worker  --------------
     work_info   = workerInfo id_info
     has_worker  = case work_info of { HasWorker _ _ -> True; other -> False }