[commit: ghc] master, wip/deploy-docs, wip/packaging-fail, wip/run-nofib, wip/windows-32bit: Remove unused XArrApp and XArrForm extension points (1382d09)
git at git.haskell.org
git at git.haskell.org
Thu Mar 21 17:01:42 UTC 2019
Repository : ssh://git@git.haskell.org/ghc
On branches: master,wip/deploy-docs,wip/packaging-fail,wip/run-nofib,wip/windows-32bit
Link : http://ghc.haskell.org/trac/ghc/changeset/1382d09efadc900f7242c2e23482a9970eaf4f9b/ghc
>---------------------------------------------------------------
commit 1382d09efadc900f7242c2e23482a9970eaf4f9b
Author: Ryan Scott <ryan.gl.scott at gmail.com>
Date: Wed Mar 20 09:41:00 2019 -0400
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.
>---------------------------------------------------------------
1382d09efadc900f7242c2e23482a9970eaf4f9b
compiler/hsSyn/HsExpr.hs | 5 -----
compiler/hsSyn/HsExtension.hs | 4 ----
2 files changed, 9 deletions(-)
diff --git a/compiler/hsSyn/HsExpr.hs b/compiler/hsSyn/HsExpr.hs
index bd63150..b86f4a1 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 9a017c2..f5e3133 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)
More information about the ghc-commits
mailing list