From 7f35c865d768166b1c4be903b00fa3624db569b3 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Tue, 19 Jan 1999 14:40:00 +0000
Subject: [PATCH] [project @ 1999-01-19 14:40:00 by sof] foreign decls: use
 wlkHsSigType, not wlkHsType, since the tysig may have
 implicitly quantified tyvars.

---
 ghc/compiler/reader/ReadPrefix.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 ->
-- 
1.7.10.4