From 4af378687fbe30ae39d57b04071fb933727317c4 Mon Sep 17 00:00:00 2001 From: David Waern Date: Mon, 30 Jun 2008 10:16:17 +0000 Subject: Rename ForeignType --- src/Haddock/Interface/Rename.hs | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'src') diff --git a/src/Haddock/Interface/Rename.hs b/src/Haddock/Interface/Rename.hs index 5ce6aa24..0436cd3e 100644 --- a/src/Haddock/Interface/Rename.hs +++ b/src/Haddock/Interface/Rename.hs @@ -295,10 +295,9 @@ renameDecl d = case d of renameTyClD d = case d of - ForeignType _ _ _ -> error "renameTyClD" -- I'm guessing these can't be exported - -- ForeignType name a b -> do - -- name' <- renameL name - -- return (ForeignType name' a b) + ForeignType name a b -> do + name' <- renameL name + return (ForeignType name' a b) TyData x lcontext lname ltyvars _ k cons _ -> do lcontext' <- renameLContext lcontext -- cgit v1.2.3