aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2008-06-30 10:25:09 +0000
committerDavid Waern <david.waern@gmail.com>2008-06-30 10:25:09 +0000
commit44af9f6a215e70219e1b5eae16e23fc954bea27e (patch)
treec2a8cd26f5255e4e4337fe0479bd6506f90f0ed3
parent4af378687fbe30ae39d57b04071fb933727317c4 (diff)
Rename TyFamily
-rw-r--r--src/Haddock/Interface/Rename.hs11
1 files changed, 8 insertions, 3 deletions
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