diff options
| author | David Waern <david.waern@gmail.com> | 2008-06-30 10:16:17 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2008-06-30 10:16:17 +0000 |
| commit | 4af378687fbe30ae39d57b04071fb933727317c4 (patch) | |
| tree | 3c6a17188093e7a43d6c25cc366ebe10488dc311 /src/Haddock/Interface | |
| parent | 2486f948d0bb6915a833dcbb9111078058188ba4 (diff) | |
Rename ForeignType
Diffstat (limited to 'src/Haddock/Interface')
| -rw-r--r-- | src/Haddock/Interface/Rename.hs | 7 |
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 |