diff options
| author | Vladislav Zavialov <vlad.z.4096@gmail.com> | 2021-04-01 21:51:17 +0300 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-05-23 18:53:50 -0400 |
| commit | f8c6fce4a09762adea6009540e523c2b984b2978 (patch) | |
| tree | fb0898eadf884f4320e5a05f783f6308663350e9 /compiler/GHC/Iface/Ext | |
| parent | d82d38239f232c3970a8641bb6d47d436e3cbc11 (diff) | |
| download | haskell-f8c6fce4a09762adea6009540e523c2b984b2978.tar.gz | |
HsToken for HsPar, ParPat, HsCmdPar (#19523)
This patch is a first step towards a simpler design for exact printing.
Diffstat (limited to 'compiler/GHC/Iface/Ext')
| -rw-r--r-- | compiler/GHC/Iface/Ext/Ast.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/GHC/Iface/Ext/Ast.hs b/compiler/GHC/Iface/Ext/Ast.hs index c9cbd4b723..94da21083f 100644 --- a/compiler/GHC/Iface/Ext/Ast.hs +++ b/compiler/GHC/Iface/Ext/Ast.hs @@ -962,7 +962,7 @@ instance HiePass p => ToHie (PScoped (LocatedA (Pat (GhcPass p)))) where lname , toHie $ PS rsp scope pscope pat ] - ParPat _ pat -> + ParPat _ _ pat _ -> [ toHie $ PS rsp scope pscope pat ] BangPat _ pat -> @@ -1112,7 +1112,7 @@ instance HiePass p => ToHie (LocatedA (HsExpr (GhcPass p))) where NegApp _ a _ -> [ toHie a ] - HsPar _ a -> + HsPar _ _ a _ -> [ toHie a ] SectionL _ a b -> @@ -1415,7 +1415,7 @@ instance HiePass p => ToHie (LocatedA (HsCmd (GhcPass p))) where HsCmdLam _ mg -> [ toHie mg ] - HsCmdPar _ a -> + HsCmdPar _ _ a _ -> [ toHie a ] HsCmdCase _ expr alts -> |