diff options
| author | romes <rodrigo.m.mesquita@gmail.com> | 2022-06-14 00:14:16 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-07-06 13:50:27 -0400 |
| commit | 371c5ecf6898294f4e5bf91784dc794e7e16b7cc (patch) | |
| tree | 85ff46ffd1af9b075d3291780058791167d3f32e /compiler/GHC/ThToHs.hs | |
| parent | acc1816b9153f134a3308d13b90d67bfcb123d87 (diff) | |
| download | haskell-371c5ecf6898294f4e5bf91784dc794e7e16b7cc.tar.gz | |
TTG for HsTyLit
Add TTG parameter to `HsTyLit` to move the GHC-specific `SourceText`
fields to the extension point and out of the base AST.
Progress towards #21592
Diffstat (limited to 'compiler/GHC/ThToHs.hs')
| -rw-r--r-- | compiler/GHC/ThToHs.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/ThToHs.hs b/compiler/GHC/ThToHs.hs index 52861159d5..04ba20804f 100644 --- a/compiler/GHC/ThToHs.hs +++ b/compiler/GHC/ThToHs.hs @@ -1829,7 +1829,7 @@ split_ty_app ty = go ty [] go (ParensT t) as' = do { loc <- getL; go t (HsArgPar loc: as') } go f as = return (f,as) -cvtTyLit :: TH.TyLit -> HsTyLit +cvtTyLit :: TH.TyLit -> HsTyLit (GhcPass p) cvtTyLit (TH.NumTyLit i) = HsNumTy NoSourceText i cvtTyLit (TH.StrTyLit s) = HsStrTy NoSourceText (fsLit s) cvtTyLit (TH.CharTyLit c) = HsCharTy NoSourceText c |