diff options
| author | Ryan Scott <ryan.gl.scott@gmail.com> | 2018-06-19 19:13:17 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2018-06-19 23:17:31 -0400 |
| commit | 679f61210b18acd6299687fca66c81196ca358a5 (patch) | |
| tree | 349e426ffc45c0a92005b356369274fb76f3faf5 /haddock-api/src/Haddock/Interface/Rename.hs | |
| parent | 5e3cf5d8868323079ff5494a8225b0467404a5d1 (diff) | |
Remove HsEqTy and XEqTy
Diffstat (limited to 'haddock-api/src/Haddock/Interface/Rename.hs')
| -rw-r--r-- | haddock-api/src/Haddock/Interface/Rename.hs | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock/Interface/Rename.hs b/haddock-api/src/Haddock/Interface/Rename.hs index 86d9fd6a..1c976410 100644 --- a/haddock-api/src/Haddock/Interface/Rename.hs +++ b/haddock-api/src/Haddock/Interface/Rename.hs @@ -247,7 +247,6 @@ renameType t = case t of HsListTy _ ty -> return . (HsListTy NoExt) =<< renameLType ty HsIParamTy _ n ty -> liftM (HsIParamTy NoExt n) (renameLType ty) - HsEqTy _ ty1 ty2 -> liftM2 (HsEqTy NoExt) (renameLType ty1) (renameLType ty2) HsTupleTy _ b ts -> return . HsTupleTy NoExt b =<< mapM renameLType ts HsSumTy _ ts -> HsSumTy NoExt <$> mapM renameLType ts |