diff options
| -rw-r--r-- | src/Haddock/Interface/Rename.hs | 11 |
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 |