diff options
| author | romes <rodrigo.m.mesquita@gmail.com> | 2022-05-17 16:06:52 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-07-03 14:11:31 -0400 |
| commit | f9f8099598fd169fa2f17305fc660e5c473f8836 (patch) | |
| tree | 5acdb9a38b78dc17ffa0abb63d87555e214d98af /utils/check-ppr | |
| parent | 3a8970ac0c69335a1d229f9c9a71e6e333e99bfb (diff) | |
| download | haskell-f9f8099598fd169fa2f17305fc660e5c473f8836.tar.gz | |
TTG: Move ImpExp client-independent bits to L.H.S.ImpExp
Move the GHC-independent definitions from GHC.Hs.ImpExp to
Language.Haskell.Syntax.ImpExp with the required TTG extension fields
such as to keep the AST independent from GHC.
This is progress towards having the haskell-syntax package, as described
in #21592
Bumps haddock submodule
Diffstat (limited to 'utils/check-ppr')
| -rw-r--r-- | utils/check-ppr/Main.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/utils/check-ppr/Main.hs b/utils/check-ppr/Main.hs index 47b3fe3bbf..9758889052 100644 --- a/utils/check-ppr/Main.hs +++ b/utils/check-ppr/Main.hs @@ -90,8 +90,8 @@ parseOneFile libdir fileName = do Left _err -> error "parseOneFile" Right ms -> parseModule ms -getPragmas :: Located HsModule -> String -getPragmas (L _ (HsModule { hsmodAnn = anns'})) = pragmaStr +getPragmas :: Located (HsModule GhcPs) -> String +getPragmas (L _ (HsModule { hsmodExt = XModulePs { hsmodAnn = anns' } })) = pragmaStr where tokComment (L _ (EpaComment (EpaBlockComment s) _)) = s tokComment (L _ (EpaComment (EpaLineComment s) _)) = s |