From 1deb7f3446202e677be9d9b7a88000ec4f2ff85b Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 26 Jul 2000 13:13:49 +0000
Subject: [PATCH] [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.
---
ghc/compiler/typecheck/TcForeign.lhs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/ghc/compiler/typecheck/TcForeign.lhs b/ghc/compiler/typecheck/TcForeign.lhs
index 883103dbe7e8..c84c3c8ca41a 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
--
GitLab