From 44af9f6a215e70219e1b5eae16e23fc954bea27e Mon Sep 17 00:00:00 2001 From: David Waern Date: Mon, 30 Jun 2008 10:25:09 +0000 Subject: Rename TyFamily --- src/Haddock/Interface/Rename.hs | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) (limited to 'src/Haddock/Interface/Rename.hs') diff --git a/src/Haddock/Interface/Rename.hs b/src/Haddock/Interface/Rename.hs index 0436cd3e..1939bb9b 100644 --- a/src/Haddock/Interface/Rename.hs +++ b/src/Haddock/Interface/Rename.hs @@ -295,9 +295,14 @@ renameDecl d = case d of renameTyClD d = case d of - ForeignType name a b -> do - name' <- renameL name - return (ForeignType name' a b) + ForeignType lname a b -> do + lname' <- renameL lname + return (ForeignType lname' a b) + + TyFamily flav lname ltyvars kind -> do + lname' <- renameL lname + ltyvars' <- mapM renameLTyVarBndr ltyvars + return (TyFamily flav lname' ltyvars' kind) TyData x lcontext lname ltyvars _ k cons _ -> do lcontext' <- renameLContext lcontext -- cgit v1.2.3