From 44af9f6a215e70219e1b5eae16e23fc954bea27e Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
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')
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