diff options
| author | Vladislav Zavialov <vlad.z.4096@gmail.com> | 2021-06-10 16:04:26 +0300 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-11-02 01:36:32 -0400 |
| commit | f1a782dd29480c4570465ea0aa06008bbf444e13 (patch) | |
| tree | 4837a90b7d2e3e1786aa19d75d1d5db5e834f1cf /compiler/Language/Haskell/Syntax | |
| parent | 7445bd714c1bea39207f9a2fa497c325b95ba2c7 (diff) | |
| download | haskell-f1a782dd29480c4570465ea0aa06008bbf444e13.tar.gz | |
HsToken for let/in (#19623)
One more step towards the new design of EPA.
Diffstat (limited to 'compiler/Language/Haskell/Syntax')
| -rw-r--r-- | compiler/Language/Haskell/Syntax/Expr.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/compiler/Language/Haskell/Syntax/Expr.hs b/compiler/Language/Haskell/Syntax/Expr.hs index e8538dfa43..b472ac9589 100644 --- a/compiler/Language/Haskell/Syntax/Expr.hs +++ b/compiler/Language/Haskell/Syntax/Expr.hs @@ -477,7 +477,9 @@ data HsExpr p -- For details on above see note [exact print annotations] in GHC.Parser.Annotation | HsLet (XLet p) + !(LHsToken "let" p) (HsLocalBinds p) + !(LHsToken "in" p) (LHsExpr p) -- | - 'GHC.Parser.Annotation.AnnKeywordId' : 'GHC.Parser.Annotation.AnnDo', @@ -952,7 +954,9 @@ data HsCmd id -- For details on above see note [exact print annotations] in GHC.Parser.Annotation | HsCmdLet (XCmdLet id) + !(LHsToken "let" id) (HsLocalBinds id) -- let(rec) + !(LHsToken "in" id) (LHsCmd id) -- ^ - 'GHC.Parser.Annotation.AnnKeywordId' : 'GHC.Parser.Annotation.AnnLet', -- 'GHC.Parser.Annotation.AnnOpen' @'{'@, |