diff options
| author | Yuras Shumovich <shumovichy@gmail.com> | 2014-10-31 16:11:04 -0500 |
|---|---|---|
| committer | Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk> | 2014-12-12 06:46:41 +0000 |
| commit | 1e99fd024be45203452d82a036f5a5b113cb7a06 (patch) | |
| tree | ec49ec10fa64c97410c1687aa3b75a5bbc38edc2 /haddock-api/src/Haddock/Interface | |
| parent | ad22493300eff0c1f55a617bdb129408011c35e0 (diff) | |
reflect ForeignType constructore removal
Reviewers: austin
Reviewed By: austin
Differential Revision: https://phabricator.haskell.org/D358
Diffstat (limited to 'haddock-api/src/Haddock/Interface')
| -rw-r--r-- | haddock-api/src/Haddock/Interface/Rename.hs | 4 |
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 |