diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2012-06-05 11:43:31 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2012-06-05 11:43:31 +0100 |
| commit | d69f5e46a6d421e17ccf49d5517d009733de3dd5 (patch) | |
| tree | 3bed0e573076493f00ff507b7c0909b89279c3be | |
| parent | 50fddb2b046605315f903d9b744780497cc978de (diff) | |
| download | haskell-d69f5e46a6d421e17ccf49d5517d009733de3dd5.tar.gz | |
Use a *constructor* name when promoting a type
This is when converting from TH -> HsSyn
Thanks to Richard Eisenberg
| -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 |