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 d789197dd3bf..a29c6b39763f 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 ->
--
GitLab