From: sof <unknown>
Date: Tue, 19 Jan 1999 14:40:00 +0000 (+0000)
Subject: [project @ 1999-01-19 14:40:00 by sof]
X-Git-Tag: Approx_2487_patches~48
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=7f35c865d768166b1c4be903b00fa3624db569b3;p=ghc-hetmet.git

[project @ 1999-01-19 14:40:00 by sof]
foreign decls: use wlkHsSigType, not wlkHsType, since the tysig may
have implicitly quantified tyvars.
---

diff --git a/ghc/compiler/reader/ReadPrefix.lhs b/ghc/compiler/reader/ReadPrefix.lhs
index d789197..a29c6b3 100644
--- a/ghc/compiler/reader/ReadPrefix.lhs
+++ b/ghc/compiler/reader/ReadPrefix.lhs
@@ -612,7 +612,7 @@ wlkBinding binding
       U_fobind id ty ext_name unsafe_flag cconv imp_exp srcline ->
 	mkSrcLocUgn        srcline		   $ \ src_loc ->
 	wlkVarId id				   `thenUgn` \ h_id ->
-	wlkHsType ty				   `thenUgn` \ h_ty ->
+	wlkHsSigType ty				   `thenUgn` \ h_ty ->
 	wlkExtName ext_name			   `thenUgn` \ h_ext_name ->
 	rdCallConv cconv		           `thenUgn` \ h_cconv ->
 	rdForKind imp_exp (cvFlag unsafe_flag)    `thenUgn` \ h_imp_exp ->