diff options
| author | Vladislav Zavialov <vlad.z.4096@gmail.com> | 2021-06-10 16:04:26 +0300 |
|---|---|---|
| committer | Vladislav Zavialov <vlad.z.4096@gmail.com> | 2021-06-10 16:04:26 +0300 |
| commit | f1982a5cfb7b0b3d534167e40db0f390cc0adaa3 (patch) | |
| tree | bdea70b71df66157aefbe0c1fb0180f26b709955 /compiler/Language/Haskell/Syntax | |
| parent | 8ca20db863ffa80a3e2aed492603010e1f7c3e23 (diff) | |
| download | haskell-wip/hs-token-let.tar.gz | |
WIP: HsToken for let/inwip/hs-token-let
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 88f15515c8..7bf99f4fcd 100644 --- a/compiler/Language/Haskell/Syntax/Expr.hs +++ b/compiler/Language/Haskell/Syntax/Expr.hs @@ -478,7 +478,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', @@ -971,7 +973,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' @'{'@, |