aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock
diff options
context:
space:
mode:
Diffstat (limited to 'src/Haddock')
-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