diff options
author | David Waern <david.waern@gmail.com> | 2008-06-30 10:25:09 +0000 |
---|---|---|
committer | David Waern <david.waern@gmail.com> | 2008-06-30 10:25:09 +0000 |
commit | 44af9f6a215e70219e1b5eae16e23fc954bea27e (patch) | |
tree | c2a8cd26f5255e4e4337fe0479bd6506f90f0ed3 | |
parent | 4af378687fbe30ae39d57b04071fb933727317c4 (diff) |
Rename TyFamily
-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 |