X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypecheck%2FTcForeign.lhs;h=3bf446e30e23416022286c538fc30b2a625e3b85;hb=23f40f0e9be6d4aa5cf9ea31d73f4013f8e7b4bd;hp=d18fe5f4839e2e90617d263d7d898dfb0115109d;hpb=9b6858cb53438a2651ab00202582b13f95036058;p=ghc-hetmet.git

diff --git a/ghc/compiler/typecheck/TcForeign.lhs b/ghc/compiler/typecheck/TcForeign.lhs
index d18fe5f..3bf446e 100644
--- a/ghc/compiler/typecheck/TcForeign.lhs
+++ b/ghc/compiler/typecheck/TcForeign.lhs
@@ -45,13 +45,15 @@ import TcType		( Type, tcSplitFunTys, tcSplitTyConApp_maybe,
 import ForeignCall	( CExportSpec(..), CCallTarget(..), 
 			  CLabelString, isCLabelString,
 			  isDynamicTarget, withDNTypes, DNKind(..), DNCallSpec(..) ) 
-import MachOp		( machRepByteWidth )
 import PrelNames	( hasKey, ioTyConKey )
 import CmdLineOpts	( dopt_HscLang, HscLang(..) )
 import Outputable
 import SrcLoc		( Located(..), srcSpanStart )
-import Bag		( emptyBag, consBag )
+import Bag		( consBag )
 
+#if alpha_TARGET_ARCH
+import MachOp		( machRepByteWidth )
+#endif
 \end{code}
 
 \begin{code}
@@ -200,7 +202,7 @@ checkFEDArgs arg_tys = returnM ()
 tcForeignExports :: [LForeignDecl Name] 
     		 -> TcM (LHsBinds TcId, [LForeignDecl TcId])
 tcForeignExports decls
-  = foldlM combine (emptyBag, []) (filter isForeignExport decls)
+  = foldlM combine (emptyLHsBinds, []) (filter isForeignExport decls)
   where
    combine (binds, fs) fe = 
        wrapLocSndM tcFExport fe	`thenM` \ (b, f) ->