From 1e99fd024be45203452d82a036f5a5b113cb7a06 Mon Sep 17 00:00:00 2001 From: Yuras Shumovich Date: Fri, 31 Oct 2014 16:11:04 -0500 Subject: reflect ForeignType constructore removal Reviewers: austin Reviewed By: austin Differential Revision: https://phabricator.haskell.org/D358 --- haddock-api/src/Haddock/Interface/Rename.hs | 4 ---- 1 file changed, 4 deletions(-) (limited to 'haddock-api') 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 -- cgit v1.2.3