aboutsummaryrefslogtreecommitdiff
path: root/haddock-api/src/Haddock/Interface
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2018-06-02 15:45:54 -0400
committerSimon Jakobi <simon.jakobi@gmail.com>2018-06-13 23:05:22 +0200
commit6be939f24f9db58c19a220daa0ff73d3a633a244 (patch)
tree3dce29850579337afb24d76cb56e762d709f0622 /haddock-api/src/Haddock/Interface
parent090813eaa7a7dbc5ba20a979150ca37521849994 (diff)
Remove ParallelArrays and Data Parallel Haskell
Diffstat (limited to 'haddock-api/src/Haddock/Interface')
-rw-r--r--haddock-api/src/Haddock/Interface/Rename.hs1
-rw-r--r--haddock-api/src/Haddock/Interface/Specialize.hs1
2 files changed, 0 insertions, 2 deletions
diff --git a/haddock-api/src/Haddock/Interface/Rename.hs b/haddock-api/src/Haddock/Interface/Rename.hs
index 7fb1f4b7..5684e70a 100644
--- a/haddock-api/src/Haddock/Interface/Rename.hs
+++ b/haddock-api/src/Haddock/Interface/Rename.hs
@@ -244,7 +244,6 @@ renameType t = case t of
return (HsFunTy NoExt a' b')
HsListTy _ ty -> return . (HsListTy NoExt) =<< renameLType ty
- HsPArrTy _ ty -> return . (HsPArrTy NoExt) =<< renameLType ty
HsIParamTy _ n ty -> liftM (HsIParamTy NoExt n) (renameLType ty)
HsEqTy _ ty1 ty2 -> liftM2 (HsEqTy NoExt) (renameLType ty1) (renameLType ty2)
diff --git a/haddock-api/src/Haddock/Interface/Specialize.hs b/haddock-api/src/Haddock/Interface/Specialize.hs
index 80fbc714..2fcb495c 100644
--- a/haddock-api/src/Haddock/Interface/Specialize.hs
+++ b/haddock-api/src/Haddock/Interface/Specialize.hs
@@ -257,7 +257,6 @@ renameType (HsTyVar x ip name) = HsTyVar x ip <$> located renameName name
renameType (HsAppTy x lf la) = HsAppTy x <$> renameLType lf <*> renameLType la
renameType (HsFunTy x la lr) = HsFunTy x <$> renameLType la <*> renameLType lr
renameType (HsListTy x lt) = HsListTy x <$> renameLType lt
-renameType (HsPArrTy x lt) = HsPArrTy x <$> renameLType lt
renameType (HsTupleTy x srt lt) = HsTupleTy x srt <$> mapM renameLType lt
renameType (HsSumTy x lt) = HsSumTy x <$> mapM renameLType lt
renameType (HsOpTy x la lop lb) =