From 205f0f921590a6365ed1c36d34f557a1e387bfa2 Mon Sep 17 00:00:00 2001 From: Andrea Condoluci Date: Mon, 27 Sep 2021 09:47:29 +0000 Subject: Trees That Grow refactor for HsTick and HsBinTick Move HsTick and HsBinTick to XExpr, the extension tree of HsExpr. Part of #16830 . --- compiler/Language/Haskell/Syntax/Expr.hs | 15 --------------- 1 file changed, 15 deletions(-) (limited to 'compiler/Language/Haskell/Syntax') 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 @@ -637,20 +636,6 @@ data HsExpr p | HsStatic (XStatic p) -- Free variables of the body (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) -- cgit v1.2.1