diff options
| author | Andrea Condoluci <andrea.condoluci@tweag.io> | 2021-09-27 09:47:29 +0000 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-09-30 00:57:09 -0400 |
| commit | 205f0f921590a6365ed1c36d34f557a1e387bfa2 (patch) | |
| tree | d6b85511dc4f1163f22cfeb91fceb39d890a9ddc /utils/check-exact | |
| parent | c261f2207cf85c8770dc46fcfc46e9b1ddb49589 (diff) | |
| download | haskell-205f0f921590a6365ed1c36d34f557a1e387bfa2.tar.gz | |
Trees That Grow refactor for HsTick and HsBinTick
Move HsTick and HsBinTick to XExpr, the extension tree of HsExpr.
Part of #16830 .
Diffstat (limited to 'utils/check-exact')
| -rw-r--r-- | utils/check-exact/ExactPrint.hs | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/utils/check-exact/ExactPrint.hs b/utils/check-exact/ExactPrint.hs index 29512e84b5..16631d0bd2 100644 --- a/utils/check-exact/ExactPrint.hs +++ b/utils/check-exact/ExactPrint.hs @@ -1846,8 +1846,6 @@ instance ExactPrint (HsExpr GhcPs) where getAnnotationEntry (HsSpliceE an _) = fromAnn an getAnnotationEntry (HsProc an _ _) = fromAnn an getAnnotationEntry (HsStatic an _) = fromAnn an - getAnnotationEntry (HsTick {}) = NoEntryVal - getAnnotationEntry (HsBinTick {}) = NoEntryVal getAnnotationEntry (HsPragE{}) = NoEntryVal @@ -2083,8 +2081,6 @@ instance ExactPrint (HsExpr GhcPs) where markEpAnn an AnnStatic markAnnotated e - -- exact x@(HsTick {}) = withPpr x - -- exact x@(HsBinTick {}) = withPpr x exact (HsPragE _ prag e) = do markAnnotated prag markAnnotated e |