diff options
| author | Yuras Shumovich <shumovichy@gmail.com> | 2014-10-31 16:11:04 -0500 |
|---|---|---|
| committer | Austin Seipp <aseipp@pobox.com> | 2014-10-31 16:11:04 -0500 |
| commit | 5a79e5b25a1e628f7d1d9f4bf97ccd9e30242c6a (patch) | |
| tree | f23c4f331584a04b06353556e9f446df857f9446 /src/Haddock | |
| parent | 3937a98afe1bf1a215fd9115051af388e45b7299 (diff) | |
reflect ForeignType constructore removal
Reviewers: austin
Reviewed By: austin
Differential Revision: https://phabricator.haskell.org/D358
Diffstat (limited to 'src/Haddock')
| -rw-r--r-- | src/Haddock/Interface/Rename.hs | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/src/Haddock/Interface/Rename.hs b/src/Haddock/Interface/Rename.hs index dd2bd73f..dca93cc0 100644 --- a/src/Haddock/Interface/Rename.hs +++ b/src/Haddock/Interface/Rename.hs @@ -298,10 +298,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 |