diff options
| author | sof <unknown> | 1999-01-19 14:40:00 +0000 |
|---|---|---|
| committer | sof <unknown> | 1999-01-19 14:40:00 +0000 |
| commit | 7f35c865d768166b1c4be903b00fa3624db569b3 (patch) | |
| tree | 6b11a716f917d9a3f7e146cf4dd2005e5278aab4 | |
| parent | 2f5d63f3caae395b3a0b41d8e3a3359a428ae88d (diff) | |
| download | haskell-7f35c865d768166b1c4be903b00fa3624db569b3.tar.gz | |
[project @ 1999-01-19 14:40:00 by sof]
foreign decls: use wlkHsSigType, not wlkHsType, since the tysig may
have implicitly quantified tyvars.
| -rw-r--r-- | ghc/compiler/reader/ReadPrefix.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/reader/ReadPrefix.lhs b/ghc/compiler/reader/ReadPrefix.lhs index d789197dd3..a29c6b3976 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 -> |