diff options
| author | Ben Gamari <bgamari.foss@gmail.com> | 2018-06-02 11:56:58 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2018-06-02 16:21:12 -0400 |
| commit | faee23bb69ca813296da484bc177f4480bcaee9f (patch) | |
| tree | 28e1c99f0de9d505c1df81ae7459839f5db4121c /compiler/hsSyn/HsExtension.hs | |
| parent | 13a86606e51400bc2a81a0e04cfbb94ada5d2620 (diff) | |
| download | haskell-faee23bb69ca813296da484bc177f4480bcaee9f.tar.gz | |
vectorise: Put it out of its misery
Poor DPH and its vectoriser have long been languishing; sadly it seems there is
little chance that the effort will be rekindled. Every few years we discuss
what to do with this mass of code and at least once we have agreed that it
should be archived on a branch and removed from `master`. Here we do just that,
eliminating heaps of dead code in the process.
Here we drop the ParallelArrays extension, the vectoriser, and the `vector` and
`primitive` submodules.
Test Plan: Validate
Reviewers: simonpj, simonmar, hvr, goldfire, alanz
Reviewed By: simonmar
Subscribers: goldfire, rwbarton, thomie, mpickering, carter
Differential Revision: https://phabricator.haskell.org/D4761
Diffstat (limited to 'compiler/hsSyn/HsExtension.hs')
| -rw-r--r-- | compiler/hsSyn/HsExtension.hs | 39 |
1 files changed, 0 insertions, 39 deletions
diff --git a/compiler/hsSyn/HsExtension.hs b/compiler/hsSyn/HsExtension.hs index 4545b2b0cb..4898e36e3b 100644 --- a/compiler/hsSyn/HsExtension.hs +++ b/compiler/hsSyn/HsExtension.hs @@ -216,7 +216,6 @@ type family XForD x type family XWarningD x type family XAnnD x type family XRuleD x -type family XVectD x type family XSpliceD x type family XDocD x type family XRoleAnnotD x @@ -233,7 +232,6 @@ type ForallXHsDecl (c :: * -> Constraint) (x :: *) = , c (XWarningD x) , c (XAnnD x) , c (XRuleD x) - , c (XVectD x) , c (XSpliceD x) , c (XDocD x) , c (XRoleAnnotD x) @@ -442,25 +440,6 @@ type ForallXRuleBndr (c :: * -> Constraint) (x :: *) = ) -- ------------------------------------- --- RuleBndr type families -type family XHsVect x -type family XHsNoVect x -type family XHsVectType x -type family XHsVectClass x -type family XHsVectInst x -type family XXVectDecl x - -type ForallXVectDecl (c :: * -> Constraint) (x :: *) = - ( c (XHsVect x) - , c (XHsNoVect x) - , c (XHsVectType x) - , c (XHsVectClass x) - , c (XHsVectInst x) - , c (XXVectDecl x) - , c (XXVectDecl x) - ) - --- ------------------------------------- -- WarnDecls type families type family XWarnings x type family XXWarnDecls x @@ -528,12 +507,10 @@ type family XMultiIf x type family XLet x type family XDo x type family XExplicitList x -type family XExplicitPArr x type family XRecordCon x type family XRecordUpd x type family XExprWithTySig x type family XArithSeq x -type family XPArrSeq x type family XSCC x type family XCoreAnn x type family XBracket x @@ -580,12 +557,10 @@ type ForallXExpr (c :: * -> Constraint) (x :: *) = , c (XLet x) , c (XDo x) , c (XExplicitList x) - , c (XExplicitPArr x) , c (XRecordCon x) , c (XRecordUpd x) , c (XExprWithTySig x) , c (XArithSeq x) - , c (XPArrSeq x) , c (XSCC x) , c (XCoreAnn x) , c (XBracket x) @@ -856,7 +831,6 @@ type family XBangPat x type family XListPat x type family XTuplePat x type family XSumPat x -type family XPArrPat x type family XConPat x type family XViewPat x type family XSplicePat x @@ -878,7 +852,6 @@ type ForallXPat (c :: * -> Constraint) (x :: *) = , c (XListPat x) , c (XTuplePat x) , c (XSumPat x) - , c (XPArrPat x) , c (XViewPat x) , c (XSplicePat x) , c (XLitPat x) @@ -929,7 +902,6 @@ type family XAppsTy x type family XAppTy x type family XFunTy x type family XListTy x -type family XPArrTy x type family XTupleTy x type family XSumTy x type family XOpTy x @@ -957,7 +929,6 @@ type ForallXType (c :: * -> Constraint) (x :: *) = , c (XAppTy x) , c (XFunTy x) , c (XListTy x) - , c (XPArrTy x) , c (XTupleTy x) , c (XSumTy x) , c (XOpTy x) @@ -1129,16 +1100,6 @@ type OutputableX p = -- See Note [OutputableX] , Outputable (XAppTypeE p) , Outputable (XAppTypeE GhcRn) - - , Outputable (XHsVectType p) - , Outputable (XHsVectType GhcRn) - - , Outputable (XHsVectClass p) - , Outputable (XHsVectClass GhcRn) - - , Outputable (XHsVectInst p) - , Outputable (XHsVectInst GhcRn) - ) -- TODO: Should OutputableX be included in OutputableBndrId? |