diff options
| -rw-r--r-- | compiler/hsSyn/Convert.lhs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/hsSyn/Convert.lhs b/compiler/hsSyn/Convert.lhs index ef17c60299..aa141fa0f3 100644 --- a/compiler/hsSyn/Convert.lhs +++ b/compiler/hsSyn/Convert.lhs @@ -861,7 +861,8 @@ cvtTypeKind ty_str ty LitT lit -> returnL (HsTyLit (cvtTyLit lit)) - PromotedT nm -> do { nm' <- tconName nm; mk_apps (HsTyVar nm') tys' } + PromotedT nm -> do { nm' <- cName nm; mk_apps (HsTyVar nm') tys' } + -- Promoted data constructor; hence cName PromotedTupleT n | n == 1 |