Skip to content
Snippets Groups Projects
Commit 1deb7f34 authored by Simon Marlow's avatar Simon Marlow
Browse files

[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.
parent 3eb5132a
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment