From f1a782dd29480c4570465ea0aa06008bbf444e13 Mon Sep 17 00:00:00 2001 From: Vladislav Zavialov Date: Thu, 10 Jun 2021 16:04:26 +0300 Subject: HsToken for let/in (#19623) One more step towards the new design of EPA. --- compiler/Language/Haskell/Syntax/Expr.hs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'compiler/Language') 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' @'{'@, -- cgit v1.2.1