[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