aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Interface/Rename.hs
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2008-06-30 10:16:17 +0000
committerDavid Waern <david.waern@gmail.com>2008-06-30 10:16:17 +0000
commit4af378687fbe30ae39d57b04071fb933727317c4 (patch)
tree3c6a17188093e7a43d6c25cc366ebe10488dc311 /src/Haddock/Interface/Rename.hs
parent2486f948d0bb6915a833dcbb9111078058188ba4 (diff)
Rename ForeignType
Diffstat (limited to 'src/Haddock/Interface/Rename.hs')
-rw-r--r--src/Haddock/Interface/Rename.hs7
1 files changed, 3 insertions, 4 deletions
diff --git a/src/Haddock/Interface/Rename.hs b/src/Haddock/Interface/Rename.hs
index 5ce6aa24..0436cd3e 100644
--- a/src/Haddock/Interface/Rename.hs
+++ b/src/Haddock/Interface/Rename.hs
@@ -295,10 +295,9 @@ renameDecl d = case d of
renameTyClD d = case d of
- ForeignType _ _ _ -> error "renameTyClD" -- I'm guessing these can't be exported
- -- ForeignType name a b -> do
- -- name' <- renameL name
- -- return (ForeignType name' a b)
+ ForeignType name a b -> do
+ name' <- renameL name
+ return (ForeignType name' a b)
TyData x lcontext lname ltyvars _ k cons _ -> do
lcontext' <- renameLContext lcontext