summaryrefslogtreecommitdiff
path: root/compiler/Language
diff options
context:
space:
mode:
authorAndrea Condoluci <andrea.condoluci@tweag.io>2021-09-27 09:47:29 +0000
committerMarge Bot <ben+marge-bot@smart-cactus.org>2021-09-30 00:57:09 -0400
commit205f0f921590a6365ed1c36d34f557a1e387bfa2 (patch)
treed6b85511dc4f1163f22cfeb91fceb39d890a9ddc /compiler/Language
parentc261f2207cf85c8770dc46fcfc46e9b1ddb49589 (diff)
downloadhaskell-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 'compiler/Language')
-rw-r--r--compiler/Language/Haskell/Syntax/Expr.hs15
1 files changed, 0 insertions, 15 deletions
diff --git a/compiler/Language/Haskell/Syntax/Expr.hs b/compiler/Language/Haskell/Syntax/Expr.hs
index 29769b6e93..563505e373 100644
--- a/compiler/Language/Haskell/Syntax/Expr.hs
+++ b/compiler/Language/Haskell/Syntax/Expr.hs
@@ -40,7 +40,6 @@ import GHC.Types.Basic
import GHC.Types.Fixity
import GHC.Types.SourceText
import GHC.Types.SrcLoc
-import GHC.Types.Tickish
import GHC.Unit.Module (ModuleName)
import GHC.Utils.Outputable
import GHC.Utils.Panic
@@ -638,20 +637,6 @@ data HsExpr p
(LHsExpr p) -- Body
---------------------------------------
- -- Haskell program coverage (Hpc) Support
-
- | HsTick
- (XTick p)
- CoreTickish
- (LHsExpr p) -- sub-expression
-
- | HsBinTick
- (XBinTick p)
- Int -- module-local tick number for True
- Int -- module-local tick number for False
- (LHsExpr p) -- sub-expression
-
- ---------------------------------------
-- Expressions annotated with pragmas, written as {-# ... #-}
| HsPragE (XPragE p) (HsPragE p) (LHsExpr p)