diff options
Diffstat (limited to 'compiler/GHC/Hs/Dump.hs')
| -rw-r--r-- | compiler/GHC/Hs/Dump.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/compiler/GHC/Hs/Dump.hs b/compiler/GHC/Hs/Dump.hs index 9be0f96640..247e8099da 100644 --- a/compiler/GHC/Hs/Dump.hs +++ b/compiler/GHC/Hs/Dump.hs @@ -62,6 +62,7 @@ showAstData bs ba a0 = blankLine $$ showAstData' a0 `extQ` annotationEpAnnImportDecl `extQ` annotationAnnParen `extQ` annotationTrailingAnn + `extQ` annotationEpaLocation `extQ` addEpAnn `extQ` lit `extQ` litr `extQ` litt `extQ` sourceText @@ -254,6 +255,9 @@ showAstData bs ba a0 = blankLine $$ showAstData' a0 annotationTrailingAnn :: EpAnn TrailingAnn -> SDoc annotationTrailingAnn = annotation' (text "EpAnn TrailingAnn") + annotationEpaLocation :: EpAnn EpaLocation -> SDoc + annotationEpaLocation = annotation' (text "EpAnn EpaLocation") + annotation' :: forall a .(Data a, Typeable a) => SDoc -> EpAnn a -> SDoc annotation' tag anns = case ba of |