[project @ 2004-05-12 13:01:30 by simonpj]

[ghc-hetmet.git] / ghc / compiler / typecheck / TcForeign.lhs

diff --git a/ghc/compiler/typecheck/TcForeign.lhs b/ghc/compiler/typecheck/TcForeign.lhs
index b5b08f3..d13b4bb 100644 (file)
--- a/ghc/compiler/typecheck/TcForeign.lhs
+++ b/ghc/compiler/typecheck/TcForeign.lhs
@@ -27,7 +27,11 @@ import TcHsType              ( tcHsSigType, UserTypeCtxt(..) )
 import TcExpr          ( tcCheckSigma )                        
 
 import ErrUtils                ( Message )
-import Id              ( Id, mkLocalId, setIdLocalExported )
+import Id              ( Id, mkLocalId, mkExportedLocalId )
+#if alpha_TARGET_ARCH
+import PrimRep         ( getPrimRepSize, isFloatingRep )
+import Type            ( typePrimRep )
+#endif
 import OccName         ( mkForeignExportOcc )
 import Name            ( Name, NamedThing(..), mkExternalName )
 import TcType          ( Type, tcSplitFunTys, tcSplitTyConApp_maybe,
@@ -220,7 +224,7 @@ tcFExport fo@(ForeignExport (L loc nm) hs_ty spec isDeprec) =
    let
         gnm  = mkExternalName uniq mod (mkForeignExportOcc (getOccName nm)) 
                              Nothing (srcSpanStart loc)
-       id   = setIdLocalExported (mkLocalId gnm sig_ty)
+       id   = mkExportedLocalId gnm sig_ty
        bind = L loc (VarBind id rhs)
    in
    returnM (bind, ForeignExport (L loc id) undefined spec isDeprec)