diff options
| -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 -> |