aboutsummaryrefslogtreecommitdiff
path: root/haddock-api/src/Haddock
diff options
context:
space:
mode:
authorYuras Shumovich <shumovichy@gmail.com>2014-10-31 16:11:04 -0500
committerMateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk>2014-12-12 06:46:41 +0000
commit1e99fd024be45203452d82a036f5a5b113cb7a06 (patch)
treeec49ec10fa64c97410c1687aa3b75a5bbc38edc2 /haddock-api/src/Haddock
parentad22493300eff0c1f55a617bdb129408011c35e0 (diff)
reflect ForeignType constructore removal
Reviewers: austin Reviewed By: austin Differential Revision: https://phabricator.haskell.org/D358
Diffstat (limited to 'haddock-api/src/Haddock')
-rw-r--r--haddock-api/src/Haddock/Interface/Rename.hs4
1 files changed, 0 insertions, 4 deletions
diff --git a/haddock-api/src/Haddock/Interface/Rename.hs b/haddock-api/src/Haddock/Interface/Rename.hs
index 31bb2b98..e9048b53 100644
--- a/haddock-api/src/Haddock/Interface/Rename.hs
+++ b/haddock-api/src/Haddock/Interface/Rename.hs
@@ -297,10 +297,6 @@ renameLThing fn (L loc x) = return . L loc =<< fn x
renameTyClD :: TyClDecl Name -> RnM (TyClDecl DocName)
renameTyClD d = case d of
- ForeignType lname b -> do
- lname' <- renameL lname
- return (ForeignType lname' b)
-
-- TyFamily flav lname ltyvars kind tckind -> do
FamDecl { tcdFam = decl } -> do
decl' <- renameFamilyDecl decl