diff options
author | Alan Zimmerman <alan.zimm@gmail.com> | 2018-06-22 21:32:19 +0200 |
---|---|---|
committer | Alan Zimmerman <alan.zimm@gmail.com> | 2018-06-22 21:34:54 +0200 |
commit | 5f06cf6b6199c8f0e4921f4126f6eb15e2ff18ac (patch) | |
tree | a307050beac702489d50804be0d0f784769a5e8d /compiler/deSugar/Coverage.hs | |
parent | 122ba98af22c2b016561433dfa55bbabba98d972 (diff) | |
download | haskell-5f06cf6b6199c8f0e4921f4126f6eb15e2ff18ac.tar.gz |
TTG for IPBind had wrong extension name
The standard[1] for extension naming is to use the XC prefix for the
internal extension points, rather than for a new constructor.
This is violated for IPBind, having
data IPBind id
= IPBind
(XIPBind id)
(Either (Located HsIPName) (IdP id))
(LHsExpr id)
| XCIPBind (XXIPBind id)
Swap the usage of XIPBind and XCIPBind
[1] https://ghc.haskell.org/trac/ghc/wiki/ImplementingTreesThatGrow#Namingconventions
Closes #15302
Diffstat (limited to 'compiler/deSugar/Coverage.hs')
-rw-r--r-- | compiler/deSugar/Coverage.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/deSugar/Coverage.hs b/compiler/deSugar/Coverage.hs index ac02989572..b5c18e5d66 100644 --- a/compiler/deSugar/Coverage.hs +++ b/compiler/deSugar/Coverage.hs @@ -810,7 +810,7 @@ addTickIPBind (IPBind x nm e) = liftM2 (IPBind x) (return nm) (addTickLHsExpr e) -addTickIPBind (XCIPBind x) = return (XCIPBind x) +addTickIPBind (XIPBind x) = return (XIPBind x) -- There is no location here, so we might need to use a context location?? addTickSyntaxExpr :: SrcSpan -> SyntaxExpr GhcTc -> TM (SyntaxExpr GhcTc) |