diff options
| author | Ryan Scott <ryan.gl.scott@gmail.com> | 2019-03-20 09:41:00 -0400 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-03-20 20:35:28 -0400 |
| commit | 1382d09efadc900f7242c2e23482a9970eaf4f9b (patch) | |
| tree | 291f4ae562b13bd3e9442644103c734d80a6f753 /compiler/hsSyn | |
| parent | 07d44ed144ef06de4b125389f318c1f514eee004 (diff) | |
| download | haskell-1382d09efadc900f7242c2e23482a9970eaf4f9b.tar.gz | |
Remove unused XArrApp and XArrForm extension points
!301 removed the `HsArrApp` and `HsArrForm` constructors, which
renders the corresponding extension points `XArrApp` and `XArrForm`
useless. This patch finally rips them out.
Diffstat (limited to 'compiler/hsSyn')
| -rw-r--r-- | compiler/hsSyn/HsExpr.hs | 5 | ||||
| -rw-r--r-- | compiler/hsSyn/HsExtension.hs | 4 |
2 files changed, 0 insertions, 9 deletions
diff --git a/compiler/hsSyn/HsExpr.hs b/compiler/hsSyn/HsExpr.hs index bd63150c02..b86f4a147d 100644 --- a/compiler/hsSyn/HsExpr.hs +++ b/compiler/hsSyn/HsExpr.hs @@ -758,11 +758,6 @@ type instance XStatic GhcPs = NoExt type instance XStatic GhcRn = NameSet type instance XStatic GhcTc = NameSet -type instance XArrApp GhcPs = NoExt -type instance XArrApp GhcRn = NoExt -type instance XArrApp GhcTc = Type - -type instance XArrForm (GhcPass _) = NoExt type instance XTick (GhcPass _) = NoExt type instance XBinTick (GhcPass _) = NoExt type instance XTickPragma (GhcPass _) = NoExt diff --git a/compiler/hsSyn/HsExtension.hs b/compiler/hsSyn/HsExtension.hs index 9a017c250f..f5e3133788 100644 --- a/compiler/hsSyn/HsExtension.hs +++ b/compiler/hsSyn/HsExtension.hs @@ -536,8 +536,6 @@ type family XTcBracketOut x type family XSpliceE x type family XProc x type family XStatic x -type family XArrApp x -type family XArrForm x type family XTick x type family XBinTick x type family XTickPragma x @@ -586,8 +584,6 @@ type ForallXExpr (c :: * -> Constraint) (x :: *) = , c (XSpliceE x) , c (XProc x) , c (XStatic x) - , c (XArrApp x) - , c (XArrForm x) , c (XTick x) , c (XBinTick x) , c (XTickPragma x) |