From: simonmar <unknown>
Date: Wed, 26 Jul 2000 13:13:49 +0000 (+0000)
Subject: [project @ 2000-07-26 13:13:49 by simonmar]
X-Git-Tag: Approximately_9120_patches~3944
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1deb7f3446202e677be9d9b7a88000ec4f2ff85b;p=ghc-hetmet.git

[project @ 2000-07-26 13:13:49 by simonmar]
Revert part of the previous change, which broke the build by
generating a PrelStable.hi with some bogus kind information in it.
---

diff --git a/ghc/compiler/typecheck/TcForeign.lhs b/ghc/compiler/typecheck/TcForeign.lhs
index 883103d..c84c3c8 100644
--- a/ghc/compiler/typecheck/TcForeign.lhs
+++ b/ghc/compiler/typecheck/TcForeign.lhs
@@ -28,7 +28,7 @@ import RnHsSyn		( RenamedHsDecl, RenamedForeignDecl )
 import TcMonad
 import TcEnv		( newLocalId )
 import TcType		( tcSplitRhoTy, zonkTcTypeToType )
-import TcMonoType	( tcHsSigType, tcHsBoxedSigType )
+import TcMonoType	( tcHsBoxedSigType )
 import TcHsSyn		( TcMonoBinds, TypecheckedForeignDecl,
 			  TcForeignExportDecl )
 import TcExpr		( tcId, tcPolyExpr )			
@@ -115,7 +115,7 @@ tcFImport fo@(ForeignDecl nm imp_exp@(FoImport isUnsafe) hs_ty ext_nm cconv src_
    tcAddSrcLoc src_loc		     $
    tcAddErrCtxt (foreignDeclCtxt fo) $
 
-   tcHsSigType hs_ty		     `thenTc` \ ty ->
+   tcHsBoxedSigType hs_ty		     `thenTc` \ ty ->
     -- Check that the type has the right shape
     -- and that the argument and result types are acceptable.
    let