[project @ 2004-01-28 17:26:48 by igloo]

Import getPrimRepSize, isFloatingRep, typePrimRep for alpha.

diff --git a/ghc/compiler/typecheck/TcForeign.lhs b/ghc/compiler/typecheck/TcForeign.lhs
index e18a485..d13b4bb 100644 (file)
--- a/ghc/compiler/typecheck/TcForeign.lhs
+++ b/ghc/compiler/typecheck/TcForeign.lhs
@@ -28,6 +28,10 @@ import TcExpr                ( tcCheckSigma )
 
 import ErrUtils                ( Message )
 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,