diff options
| author | romes <rodrigo.m.mesquita@gmail.com> | 2022-06-13 14:12:44 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-07-06 13:50:27 -0400 |
| commit | e4eea07b808bea530cf4b4fd2468035dd2cad67b (patch) | |
| tree | caccdfb05a598410064c0d24b32845d5471d1278 /compiler/Language | |
| parent | 3547e2640af45ab48187387fb60795a09b662038 (diff) | |
| download | haskell-e4eea07b808bea530cf4b4fd2468035dd2cad67b.tar.gz | |
TTG: Move CoreTickish out of LHS.Binds
Remove the `[CoreTickish]` fields from datatype `HsBindLR idL idR` and
move them to the extension point instance, according to the plan
outlined in #21592 to separate the base AST from the GHC specific bits.
Diffstat (limited to 'compiler/Language')
| -rw-r--r-- | compiler/Language/Haskell/Syntax/Binds.hs | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/compiler/Language/Haskell/Syntax/Binds.hs b/compiler/Language/Haskell/Syntax/Binds.hs index 467304af53..22f2116b04 100644 --- a/compiler/Language/Haskell/Syntax/Binds.hs +++ b/compiler/Language/Haskell/Syntax/Binds.hs @@ -31,8 +31,7 @@ import {-# SOURCE #-} Language.Haskell.Syntax.Pat import Language.Haskell.Syntax.Extension import Language.Haskell.Syntax.Type -import GHC.Types.Basic -import GHC.Types.Tickish +import GHC.Types.Basic (InlinePragma) import GHC.Types.Fixity import GHC.Data.Bag @@ -200,9 +199,8 @@ data HsBindLR idL idR fun_id :: LIdP idL, -- Note [fun_id in Match] in GHC.Hs.Expr - fun_matches :: MatchGroup idR (LHsExpr idR), -- ^ The payload + fun_matches :: MatchGroup idR (LHsExpr idR) -- ^ The payload - fun_tick :: [CoreTickish] -- ^ Ticks to put on the rhs, if any } -- | Pattern Binding @@ -221,10 +219,7 @@ data HsBindLR idL idR | PatBind { pat_ext :: XPatBind idL idR, pat_lhs :: LPat idL, - pat_rhs :: GRHSs idR (LHsExpr idR), - pat_ticks :: ([CoreTickish], [[CoreTickish]]) - -- ^ Ticks to put on the rhs, if any, and ticks to put on - -- the bound variables. + pat_rhs :: GRHSs idR (LHsExpr idR) } -- | Variable Binding |